推 kxdejavu:OK了，非常感謝!!! 05/29 22:54
※ 引述《kxdejavu (大師兄)》之銘言：
: 請問一下，要怎麼用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的第一行而已
: 請問要怎麼讓程式去抓到全部的檔案??
: 謝謝~
DIM DstFileInfo As String
Open "C:\1.TXT" For Binary As #1
DstFileInfo = String(FileLen("C:\1.TXT"), " ")
Get 1, , DstFileInfo
Close #1
Label1.Caption = InStr(DstFileInfo, "3")
===============================================
沒測過,有錯請自己修一下
--
████ █ ★ ████ █ █ █
█ █ █ █ █ █ 超 級 熱 烈 歡 迎
█ ████ █ █ █ ████ █
█ █ █ █ ███★ █ █ 歡迎到嘉義版!
★███ █ █ █ █ █ █ █
訊馳電腦-路徑 → 嘉義市林森西路496號 →(05)2244-526 → 順發斜對面
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.117.242.200