各位高手,
麻煩請教一下....
如何讓Textbox讀入一個列數不固定的.txt檔最後一行的資料???
原來的程式碼如下:
Dim fsQ As New FileSystemObject
Dim txtfQ As TextStream
Dim strQ As String
Set txtfQ = fsQ.OpenTextFile("h:\roc2\ans.geo") Do While Not txtfQ.AtEndOfStream
strQ = txtfQ.ReadLine Loop
Text1.Text = Mid(strQ, 32, 9)
麻煩請教一下....
如何讓Textbox讀入一個列數不固定的.txt檔最後一行的資料???
原來的程式碼如下:
Dim fsQ As New FileSystemObject
Dim txtfQ As TextStream
Dim strQ As String
Set txtfQ = fsQ.OpenTextFile("h:\roc2\ans.geo") Do While Not txtfQ.AtEndOfStream
strQ = txtfQ.ReadLine Loop
Text1.Text = Mid(strQ, 32, 9)
全站熱搜
留言列表