帖子: 95
主題: 29
精華: 0
積分: 150
點名: 0
作業系統: windows2003
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: Kaoshiung
註冊時間: 2010-11-5
最後登錄: 2018-2-8

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-2-9 13:33 | 只看該作者

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

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

如何頡取txt文字檔內之所需內容.zip (22.36 KB)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-2-9 14:30 | 只看該作者

回復 1# cmo140497

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

Sub nn()
Dim Ar()
fs = Dir(ThisWorkbook.Path & "\*.txt")
Open ThisWorkbook.Path & "\" & fs For Input As #1
Do While Not EOF(1) ' 執行迴圈直到檔尾為止。
Line Input #1, Mystr ' 讀入一行資料並將之指定給變數。
If Mystr = "SampleDieMap 175" Then y = True
If Mystr = "InspectionTest 1;" Then y = False
If y = True Then
ReDim Preserve Ar(s)
Ar(s) = Split(Replace(Mystr, ";", ""), " ")
s = s + 1
End If
Loop
Close #1
[E1].Resize(s, 2) = Application.Transpose(Application.Transpose(Ar))
End Sub

複製代碼

學海無涯_不恥下問

TOP

cmo140497

中學生 Rank: 2

帖子: 95
主題: 29
精華: 0
積分: 150
點名: 0
作業系統: windows2003
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: Kaoshiung
註冊時間: 2010-11-5
最後登錄: 2018-2-8

3^#

發表於 2011-2-9 20:15 | 只看該作者

wafer mapping by cell_20110124.zip (15.17 KB) 回復 2# Hsieh

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-2-9 21:24 | 只看該作者

回復 3# cmo140497

不知道是不是這個意思?

Sub wafermapping()
fs = ThisWorkbook.Path & "\41M721-2_23_02082011_115952-KLAF.txt"
Open fs For Input As #1
Do While Not EOF(1) ' 執行迴圈直到檔尾為止。
Line Input #1, Mystr ' 讀入一行資料並將之指定給變數。
If Mystr = "SampleDieMap 175" Then y = True
If Mystr = "InspectionTest 1;" Then y = False
Ar = Split(Replace(Mystr, ";", ""), " ")
If y = True And Asc(Ar(0)) >= 48 And Asc(Ar(0)) <= 57 Then
Cells(Val(Ar(0)) + 1, Val(Ar(1)) + 1) = "'(" & Ar(0) & "." & Ar(1) & ")"
End If
Loop
Close #1
End Sub

複製代碼

學海無涯_不恥下問

TOP

cmo140497

中學生 Rank: 2

帖子: 95
主題: 29
精華: 0
積分: 150
點名: 0
作業系統: windows2003
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: Kaoshiung
註冊時間: 2010-11-5
最後登錄: 2018-2-8

5^#

發表於 2011-2-10 09:22 | 只看該作者

回復 4# Hsieh

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

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2011-2-10 09:31 | 只看該作者

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

學海無涯_不恥下問

TOP

cmo140497

中學生 Rank: 2

帖子: 95
主題: 29
精華: 0
積分: 150
點名: 0
作業系統: windows2003
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: Kaoshiung
註冊時間: 2010-11-5
最後登錄: 2018-2-8

7^#

發表於 2011-2-10 09:50 | 只看該作者

回復 6# Hsieh

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

TOP