Question

如何用VB提取网页文字？

我在窗口中创建了一个webbrowser控件和一个textbox控件，现在想在webbrowser读取一个网页的全部内容以后将所有文字提取到textbox中，以便我处理textbox中的文字信息，哪位大虾能提供一下代码啊？拜托在代码后写上具体的注释，我是菜鸟好些代码没有注释看不懂……谢谢！！
谢谢，您的代码很棒！但是我想要获取网页里的所有文字，而不仅仅是链接的文字，您看如何实现啊？还有，麻烦您写一下注释，谢谢！

Answer 1

Private Sub cmdcommand1_click()
WebBrowser1.navigate "http://www.baidu.com"
End Sub

Private Sub webbrowser1_documentcomplete(ByVal pDisp As Object, URL As Variant)
txtText1 = WebBrowser1.document.body.innertext
End Sub

Answer 2

Dim vTag As Variant, vCount As Integer
Set vTag = webbrowser(1).Document.getElementsByTagName("a")
vCount = vTag.length
For I = 0 To vCount - 1
Debug.Print vTag(I).innerText
next