使用VB提取网页中的内容，为何程序执行后TEXT框中什么都没有？（代码如下，可通过）

Question

代码如下，请大牛指点！

Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.pm2d5.com/city/beijing.html"
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
If Text = "完成" Then
'网页读取完后执行这里
Dim DataInfo As String

'从网页中取得全部文本信息
DataInfo = WebBrowser1.Document.body.innerText

Text1.Text = DataInfo
End If
End Sub

Answer 1

Private Sub Command1_Click()
   WebBrowser1.Navigate "

End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Debug.Print Text
   If Text = "完毕" Then
      '网页读取完后执行这里
      Dim DataInfo As String
      
      '从网页中取得全部文本信息
      DataInfo = WebBrowser1.Document.body.innerText
  
      Text1.Text = DataInfo
   End If
End Sub

读取完一个网页后，在调试窗口里可以看到是这样的，

TXT里没有东西说明   If Text = "完毕" Then这行代码不成立，所以不执行后面的。

如果按照你的思路，用StatusTextChange
事件，你可以改一下，如下：

Private Sub Command1_Click()
   WebBrowser1.Navigate "

End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
   If Text = "

      '网页读取完后执行这里
      Dim DataInfo As String
      
      '从网页中取得全部文本信息
      DataInfo = WebBrowser1.Document.body.innerText
  
      Text1.Text = DataInfo
   End If
End Sub

加载完之后就会看到txt里面有东西了。

我自己是习惯用DocumentComplete事件的

有问题请追问，满意请采纳！

追问

您好！您给出的第二段代码中， If Text = " 这句是不是没有写完整啊，还是我理解有误，能麻烦解释一下吗？谢谢您啦！

追答

疏忽，是没有写完整，其实上面的图片已经给出答案了。

完整代码如下：

Private Sub Command1_Click()
   WebBrowser1.Navigate "
 
End Sub
 
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
   If Text = "http://www.pm2d5.com/"
 
      '网页读取完后执行这里
      Dim DataInfo As String
       
      '从网页中取得全部文本信息
      DataInfo = WebBrowser1.Document.body.innerText
   
      Text1.Text = DataInfo
   End If
End Sub

Answer 2

我试了一下，没问题吗。

Answer 3

Option Explicit
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.pm2d5.com/city/beijing.html"
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Debug.Print Text
If Text = "完毕" Then
'网页读取完后执行这里
Dim DataInfo As String

'从网页中取得全部文本信息
DataInfo = WebBrowser1.Document.body.innerText

Text1.Text = DataInfo
End If
End Sub

追问

您好！现在还有一个问题：
我现在想读获取下来的TXT的部分内容，但是追问里写不下了，能麻烦您看一下这个位置的问题吗？谢谢您的宝贵时间啦！

http://zhidao.baidu.com/question/572882935.html