[VB6 ] 搜尋檔案內的字串

看板Visual_Basic作者 (大師兄)時間13年前 (2012/05/29 19:18), 編輯推噓0(0推 0噓 1→)
留言1則, 1人參與, 最新討論串1/2 (看更多)
請問一下，要怎麼用VB6去搜尋檔案內的特定的字串?? 我的做法如下: Private Sub Command1_Click() Dim test As String Open "function\ping.txt" For Input As #1 Input #1, test Label1.Caption = InStr(test, "3") ___________________________________________ ping.txt內容: abcdefghijklmnopqrstuvwxyz 123456789 ___________________________________________ 程式一直show "0"，原因應該是他只讀到ping.txt的第一行而已 請問要怎麼讓程式去抓到全部的檔案?? 謝謝~ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.120.179.172
→
05/29 19:30, , 1F
使用while not eof(1) ... wend
05/29 19:30, 1F
‣ 更多 kxdejavu 的文章
文章代碼(AID): #1FnB1kQQ (Visual_Basic)
‣ 更多 kxdejavu 的文章
文章代碼(AID): #1FnB1kQQ (Visual_Basic)