作者chinoyan ()
看板Visual_Basic
标题Re: [VB6 ] 搜寻档案内的字串
时间Tue May 29 21:47:55 2012
※ 引述《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
1F：推 kxdejavu:OK了，非常感谢!!! 05/29 22:54