Hsieh

1. Sub Ex()
   
2. Dim ay(9), Ary()
   
3. fs = ThisWorkbook.Path & "\txt.txt"
   
4. Open fs For Input As #1
   
5. Do While Not EOF(1)
   
6.    Line Input #1, mystr
   
7.       If mystr = "#" Then tn = True: tk = False: GoTo 10
   
8.       If tn = True And Not IsNumeric(Split(mystr, " ")(0)) Then ty = Split(mystr, " ")(0): tn = False: GoTo 10
   
9.       If mystr = "%" Then tn = False: tk = True: GoTo 10
   
10.       If tn = False And tk = True And Val(mystr) <> 0 Then
    
11.          ar = Split(mystr, " ")
    
12.          ay(0) = ty & ar(0)
    
13.          For i = 1 To UBound(ar)
    
14.             If ar(i) <> "" Then
    
15.                j = j + 1
    
16.                ay(j) = ar(i)
    
17.             End If
    
18.          Next
    
19.          ReDim Preserve Ary(s)
    
20.          Ary(s) = ay
    
21.          s = s + 1: j = 0
    
22.        End If
    
23. 10
    
24. Loop
    
25. Close #1
    
26. [A2].Resize(s, 9) = Application.Transpose(Application.Transpose(Ary))
    
27. End Sub

½Æ»s¥N½X

Hsieh

tn,tk¦¹2ÅܼƬO¥Î¨Ó°µºI¨ú¸ê®Æ¶}©l¤Î¤ù¬qµ²§ô¨Ì¾Ú
¥i¥ÑIf mystr = "#" Then tn = True: tk = False: GoTo 10
³o¦æ´N¬O#¨º¤@¦æ³QŪ¤J®É¡A¥Îtn§i¶Dµ{¦¡¤U¤@¦æ¶}©l´N¬O¸ê®Æ©ïÀY°Ï°ì
If mystr = "%" Then tn = False: tk = True
´N¬O©ú²Óªº¶}©l
¨S³o2­ÓÅܼƷíµM°õ¦æ¤£¨ÓÅo

Hsieh

´N¦]¬°tn,tkªº²Õ¦Xª¬ªp·|¦³¦hºØ²Õ¦X,©Ò¥H¯à¥Î¨Ó°µ¬°¸ê®ÆÂ^¨úªº¶}©l»Pµ²§ô§PÂ_¨Ì¾Ú
¹J¨ì#ªº¤U¤@¦æ¤å¦rT409P086AA01´N¬Oid¸¹½Xªº«e¸m¦r¦ê
¦³¤Fid¸¹½Xªº«e¸m¦r¦ê«á­Y¹J¨ì¸Ó¦æ¬°%±µ¤U¨Óªº¦U¦æ«e­±¬O¼Æ¦r®É
«h¸Ó¼Æ¦r»Pid¸¹½Xªº«e¸m¦r¦êªº²Õ¦X´N¬O¾ã²Õid½X
ª½¨ì¦b¦¸¹J¨ì#¤~¦A­«·s¨ú±oid¸¹½Xªº«e¸m¦r¦ê

Hsieh

¨º­Ó§PÂ_¦¡«á­±¬O§Ú­Ì­n«ü©wÅܼƪº­È¬O¬Æ»ò?
¦Ó¤£¬O¨ú±o¨º®ÉªºÅܼƬO¬Æ»ò­È