如何頡取txt檔固定抬頭位置之內容

cmo140497

各位大大 :
小弟附件檔有一文字檔,小弟想利用VBA擷取固定抬頭之以下內容,並利用陣列相呼對應至cell內,這一連串數值為實際受檢之die of wafer,小弟想利用excel cells直接繪制wafer map,不知是否可行?謝謝!
如何頡取txt文字檔內之所需內容.zip (22.36 KB)

下載次數: 5

2011-2-9 13:32

Hsieh

回復 1# cmo140497


   看不懂 wafer map的繪製邏輯
取得文字檔請參考

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)    ' 執行迴圈直到檔尾為止。
   
6.     Line Input #1, Mystr    ' 讀入一行資料並將之指定給變數。
   
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

複製代碼

cmo140497

wafer mapping by cell_20110124.zip (15.17 KB)

下載次數: 5

2011-2-9 20:14

回復 2# Hsieh


    Dear 大大 :
感謝大大回覆,關於wafer map,其實有點像cells address,不過它的原點軸在wafer整個圓的左下角,與cells address的表格左上角相反,所以小弟想利用此資料省得畫wafer map

Hsieh

回復 3# cmo140497

不知道是不是這個意思?

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)    ' 執行迴圈直到檔尾為止。
   
5.     Line Input #1, Mystr    ' 讀入一行資料並將之指定給變數。
   
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

複製代碼

cmo140497

回復 4# Hsieh


    大大  您實在是太神了,解決小弟多個月來的疑惑,實在太感謝您了!
另外小弟還有一個問題,有關於二sheet之資料欄比對問題,比對後的結果如何不出現空白列,另外可以再新增多筆sheets作比較嗎?以小弟的能力目前僅能作二sheets 四個條件式的比較條件,再麻煩神大大指點迷津,
謝謝!

KLARF座標比對_20110210_RawProgram.zip (49.53 KB)

下載次數: 4

2011-2-10 09:19

Hsieh

回復 5# cmo140497
請說明比對規則，並將欲得到的結果配合說明

cmo140497

回復 6# Hsieh


    Dear 神大大 :
    小弟的比對規則四個條件式,分別為XINDEX / YINDEX 必須完全相符,XREL / YREL 加欲設定之搜尋範圍+Radius
作比對,如符合條件式,即分別將其XINDEX/YINDEX及Sheet1/2的XREL/YREL/DefFile分別代入check主頁內,再依DefFile
作圖片之抓取,不過抓取圖片這一段還沒完成,因為比對結果之空白列影響到抓取圖片的程式,所以....再麻煩神大大指點迷津
再次感謝神大大的幫助,謝謝!