作者kxdejavu (大师兄)
看板Visual_Basic
标题[VB6 ] 搜寻档案内的字串
时间Tue May 29 19:18:01 2012
请问一下，要怎麽用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
1F：→ MOONRAKER:使用while not eof(1) ... wend 05/29 19:30