Hsieh

¦^´_ 1# cmo140497


   ¬Ý¤£À´ wafer mapªºÃ¸»sÅÞ¿è
¨ú±o¤å¦rÀɽаѦÒ

1. Sub nn()
   
2. Dim Ar()
   
3. fs = Dir(ThisWorkbook.Path & "\*.txt")
   
4. Open ThisWorkbook.Path & "\" & fs For Input As #1
   
5. Do While Not EOF(1)    ' °õ¦æ°j°éª½¨ìÀɧÀ¬°¤î¡C
   
6.     Line Input #1, Mystr    ' Ū¤J¤@¦æ¸ê®Æ¨Ã±N¤§«ü©wµ¹ÅܼơC
   
7.     If Mystr = "SampleDieMap 175" Then y = True
   
8.     If Mystr = "InspectionTest 1;" Then y = False
   
9.     If y = True Then
   
10.     ReDim Preserve Ar(s)
    
11.     Ar(s) = Split(Replace(Mystr, ";", ""), " ")
    
12.     s = s + 1
    
13.     End If
    
14. Loop
    
15. Close #1
    
16. [E1].Resize(s, 2) = Application.Transpose(Application.Transpose(Ar))
    
17. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# cmo140497

¤£ª¾¹D¬O¤£¬O³o­Ó·N«ä?

1. Sub wafermapping()
   
2. fs = ThisWorkbook.Path & "\41M721-2_23_02082011_115952-KLAF.txt"
   
3. Open fs For Input As #1
   
4. Do While Not EOF(1)    ' °õ¦æ°j°éª½¨ìÀɧÀ¬°¤î¡C
   
5.     Line Input #1, Mystr    ' Ū¤J¤@¦æ¸ê®Æ¨Ã±N¤§«ü©wµ¹ÅܼơC
   
6.     If Mystr = "SampleDieMap 175" Then y = True
   
7.     If Mystr = "InspectionTest 1;" Then y = False
   
8.     Ar = Split(Replace(Mystr, ";", ""), " ")
   
9.     If y = True And Asc(Ar(0)) >= 48 And Asc(Ar(0)) <= 57 Then
   
10.     Cells(Val(Ar(0)) + 1, Val(Ar(1)) + 1) = "'(" & Ar(0) & "." & Ar(1) & ")"
    
11.     End If
    
12. Loop
    
13. Close #1
    
14. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 5# cmo140497
½Ð»¡©ú¤ñ¹ï³W«h¡A¨Ã±N±ý±o¨ìªºµ²ªG°t¦X»¡©ú