各位高手,
麻煩請教一下....
如何讓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)
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(0) 人氣()