Hsieh

¦^´_ 7# wsx24680

1. Sub Ex()
   
2. Dim Ar(), Mystr$, a$, s&, k%, fs$
   
3. Cells = ""
   
4. fs = Application.GetOpenFilename("Text Files (*.txt), *.txt")
   
5. If fs = "False" Then MsgBox "½Ð¿ï¾Ü¤å¦rÀÉ": Exit Sub
   
6. k = 2
   
7. Open fs For Input As #1
   
8. Do While Not EOF(1)
   
9.     Line Input #1, Mystr
   
10.     If Mystr <> "" And Not IsDate(Mystr) Then
    
11.       If InStr(Mystr, "=") = 0 And InStr(Mystr, "---") = 0 Then
    
12.       a = Mystr
    
13.       ElseIf InStr(Mystr, "=") > 0 Then
    
14.       ReDim Preserve Ar(s)
    
15.       Ar(s) = Array(a, Split(Mystr, "=")(0), "=", Split(Mystr, "=")(1))
    
16.       s = s + 1
    
17.       ElseIf InStr(Mystr, "---") > 0 Then
    
18.       Cells(1, k).Resize(s, 4).Value = Application.Transpose(Application.Transpose(Ar))
    
19.       k = k + 6: s = 0: Erase Ar
    
20.       End If
    
21.     End If
    
22. Loop
    
23. If s > 0 Then Cells(1, k).Resize(s, 4).Value = Application.Transpose(Application.Transpose(Ar))
    
24. Close #1
    
25. End Sub

½Æ»s¥N½X