Hsieh

¦^´_ 1# m06o2

§Aªº¦@¥Îkey¬O«ü­þ­Ó¸ê®Æªº­È?
¥ý¥HÀɮצWºÙ´À¥N

1. Sub ex()
   
2. Dim Ay(18), Ary()
   
3. fd = ThisWorkbook.Path & "\"
   
4. fs = Dir(fd & "\*.txt")
   
5. Do Until fs = ""
   
6. Open fd & fs For Input As #1
   
7. Ay(0) = fd: Ay(1) = Replace(fs, ".txt", "")
   
8. Do While Not EOF(1)
   
9.    Line Input #1, mystr
   
10.    If mystr <> "" Then
    
11.    ar = Split(mystr, " ")
    
12.    If InStr(mystr, "¤é´Á") > 0 Then
    
13.    Ay(2) = ar(1): Ay(3) = ar(2) & " " & ar(3)
    
14.    ElseIf InStr(mystr, "¿¤¥«") > 0 Then
    
15.    Ay(4) = ar(1)
    
16.    ElseIf InStr(mystr, "¸ô¦W") > 0 Then
    
17.    Ay(5) = ar(1)
    
18.    ElseIf InStr(mystr, "¨®¦æ¤è¦V") > 0 Then
    
19.    Ay(6) = ar(1)
    
20.    ElseIf InStr(mystr, "¨®¹D") > 0 Then
    
21.    Ay(7) = ar(1)
    
22.    ElseIf InStr(mystr, "¾Q­±Ãþ«¬") > 0 Then
    
23.    Ay(8) = ar(1)
    
24.    ElseIf InStr(mystr, "´ú¸Õ¦¸¼Æ") > 0 Then
    
25.    Ay(9) = ar(1)
    
26.    ElseIf InStr(mystr, "®ð·Å") > 0 Then
    
27.    Ay(10) = ar(1)
    
28.    ElseIf InStr(mystr, "¶³¶q") > 0 Then
    
29.    Ay(11) = ar(1)
    
30.    ElseIf InStr(mystr, "­·³t") > 0 Then
    
31.    Ay(12) = ar(1)
    
32.    ElseIf InStr(mystr, "­·¦V") > 0 Then
    
33.    Ay(13) = ar(1)
    
34.    ElseIf InStr(mystr, "ÀË´ú¤H­û") > 0 Then
    
35.    Ay(14) = ar(1)
    
36.    ElseIf InStr(mystr, "³Æµù") > 0 Then
    
37.    Ay(15) = ar(1)
    
38.    Else
    
39.    Ay(16) = ar(0): Ay(17) = ar(1)
    
40.    ReDim Preserve Ary(s)
    
41.    Ary(s) = Ay
    
42.    s = s + 1
    
43.    End If
    
44.    
    
45.    End If
    
46. Loop
    
47. Close #1
    
48. fs = Dir
    
49. Loop
    
50. [A65536].End(xlUp).Offset(1).Resize(s, 18) = Application.Transpose(Application.Transpose(Ary))
    
51. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# m06o2


    ³o­Óµ{¦¡«e´£¬OtxtÀɮסA»PxlsÀɮשñ¦b¦P¤@­Ó¸ê®Æ§¨
¥BtxtÀɪº®æ¦¡³£¥²¶·»P§A¤W¶ÇªºÀɮ׮榡¬Û¦P

Hsieh

¦^´_ 5# m06o2
°Ñ¦Ò¦¹³sµ²
ÀÉ®×¾Þ§@½d¨Ò