Board logo

標題: 如何頡取txt檔固定抬頭位置之內容 [打印本頁]
作者: cmo140497    時間: 2011-2-9 13:33     標題: 如何頡取txt檔固定抬頭位置之內容

各位大大 :
小弟附件檔有一文字檔,小弟想利用VBA擷取固定抬頭之以下內容,並利用陣列相呼對應至cell內,這一連串數值為實際受檢之die of wafer,小弟想利用excel cells直接繪制wafer map,不知是否可行?謝謝!
[attach]4672[/attach]
作者: Hsieh    時間: 2011-2-9 14:30

回復 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    時間: 2011-2-9 20:15

[attach]4678[/attach]回復 2# Hsieh


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

回復 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    時間: 2011-2-10 09:22

回復 4# Hsieh


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

[attach]4684[/attach]
作者: Hsieh    時間: 2011-2-10 09:31

回復 5# cmo140497
請說明比對規則，並將欲得到的結果配合說明
作者: cmo140497    時間: 2011-2-10 09:50

回復 6# Hsieh


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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)