¨ú¤å¦rÀɤ¤,¯S©w¦r¤¸«á¤§¤å¦r

txiec

¦U¦ì¤j¤j,,,

¦A³Â·Ð..¦³ÂIÃø,·d¤£¥X¨Ó.

1. ³sÄò¨ú¤å¦rÀɤ¤,¯S©w¦r¤¸«á¤§¤å¦r,
2. ¨ú§¹DATA ,²¾¦Ü¨ä¥L¸ê®Æ§¨
3. ¨ú¤§«e,±q³Ì¤U¦æ,¶}©l¸m¤J..


·P®¦


list.rar (4.93 KB)

¤U¸ü¦¸¼Æ: 14

2011-12-9 09:47

Hsieh

¦^´_ 1# txiec

1. Sub Ex()
   
2. Dim ar()
   
3. fd = ThisWorkbook.Path & "\"
   
4. fs = Dir(fd & "*.txt")
   
5. Do Until fs = ""
   
6. Open fd & fs For Input As #1
   
7. Do Until EOF(1)
   
8.    Line Input #1, mystr
   
9.    If mystr <> "" Then
   
10.    a = Split(mystr, "=")
    
11.    If a(0) = "SERIAL" Then r = a(1)
    
12.    If a(0) = "SPEC" Then p = a(1)
    
13.    If a(0) = "Total QTY" Then t = a(1)
    
14.    If InStr(a(0), "SUPPLY") > 0 Then y = a(1)
    
15.    If InStr(a(0), "QTY-") > 0 Then q = a(1)
    
16.    If r <> "" And p <> "" And t <> "" And y <> "" And q <> "" Then
    
17.    ReDim Preserve ar(s)
    
18.    ar(s) = Array(r, p, t, y, q)
    
19.    s = s + 1
    
20.    y = "": q = ""
    
21.    End If
    
22.    End If
    
23. Loop
    
24. Close #1
    
25. fs = Dir
    
26. Loop
    
27. [A65536].End(xlUp).Offset(1, 0).Resize(s, 5) = Application.Transpose(Application.Transpose(ar))
    
28. End Sub

½Æ»s¥N½X

txiec

·PÁª©¥D...


¯uªº¬O¤ÓÆg....