VB如何获取网页中文字？

来源：百度知道 编辑：UC知道 时间：2024/06/23 07:12:54
例如：http://hi.baidu.com/exeversion/blog/item/d3572b351825a849251f14e4.html
我想要获取那个”可用“
铁血黄昏大侠 下标越界
ljl88900大侠，如果我要获取内容而不是判断是否可用呢？

首先需要加载需要获取网页文的网址，然后根据WebBrowser1.document.body.innertext来获取文字，可参考下面部分代码

Private Sub cmdcommand1_click()
WebBrowser1.navigate "具体网页地址"
End Sub

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

根据反馈，修改如下：
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox "你要获取的内容是：" & WebBrowser1.Document.body.innertext
'你可以在此基础上进行下一步的筛选
End Sub

dim a as string
a=inet1.openurl("http://hi.baidu.com/exeversion/blog/item/d3572b351825a849251f14e4.html
")
b=split(a,"<tr><td><div id=""blog_text"" class=&quo