您所在位置：主题：VB查找网页是否有关键字(高手指点)谢谢...
zhaorui21
[专家分：0] 发布于 2008-04-14 18:59:00
问题是这样的：查找网页是否有关键字
我想用VB的WebBrowser控件来读取指定网页的文字，然后把它存到一个文本中，再逐行读取看是否有关键字！代码如下：
Dim wenben, a
Me.WebBrowser1.Navigate "http://www.qwzone.com"
wenben = Me.WebBrowser1.Document.body.innerText
Open App.Path & "wenben1.txt" For Output As #1
Print #1, wenben
Close #1
Open App.Path & "wenben1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
If Left(a, 3) = "关键字" Then
可怎么调试不通啊！报错为：文件已打开
谢谢指点啊！！
再次谢谢！！！
我想用VB的WebBrowser控件来读取指定网页的文字，然后把它存到一个文本中，再逐行读取看是否有关键字！代码如下：
Dim wenben, a
Me.WebBrowser1.Navigate "http://www.qwzone.com"
wenben = Me.WebBrowser1.Document.body.innerText
Open App.Path & "wenben1.txt" For Output As #1
Print #1, wenben
Close #1
Open App.Path & "wenben1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
If Left(a, 3) = "关键字" Then
可怎么调试不通啊！报错为：文件已打开
谢谢指点啊！！
再次谢谢！！！
