100分 VB 如何在一个文本中找出自己想要的字符串

来源：百度知道 编辑：UC知道 时间：2024/05/23 15:30:01
知道的把答案往这写，谢谢！http://zhidao.baidu.com/question/99879320.html

如何查看一个文本里面是不是有QQ.EXE这个字符串呢？如图。这应该是个很简单的问题吧，要怎么做最简单呢？。。。
1)打开D:\1.TXT
2)搜索名为"qq.exe"的字符串
3)如果文本1里面包含qq.exe字符串，则a=yes,否则a=no

单击窗体即可。注意：区分大小写。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_Click()
Open "d:\1.txt" For Binary As 1
MsgBox IIf(InStr(Input(LOF(1), #1), "QQ.exe"), "有", "没有")
Close
End Sub

单击窗体即可。注意：区分大小写。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_Click()
Open "d:\1.txt" For Binary As 1
MsgBox IIf(InStr(Input(LOF(1), #1), "QQ.exe"), "有", "没有")
Close
End Sub

回答者： ARTERIOSCLEROS - 首席运营官 十二级 2009-6-13 15:09

Open "1.txt" For Binary As 1
a = IIf(InStr(Input(LOF(1), #1), "QQ.exe"), "yes", "no")
MsgBox a
Close