将网页信息转换文字信息

发布网友 发布时间：2022-05-10 09:20

我来回答

共4个回答

热心网友 时间：2022-04-21 09:28

可以
Private Sub Command1_Click()
On Error Resume Next
Text1 = Inet1.OpenURL("http://zhidao.baidu.com/question/36462217.html")
End Sub
这时 text1.text的内容是网页的源代码 你还需要过滤其中的html标签
用下面的函数
Public Function FilterHTML(strToFilter) As String
Dim strTemp
strTemp = strToFilter
Do While InStr(1, strTemp, "<") And InStr(1, strTemp, ">") <> 0
strTemp = Left(strTemp, InStr(1, strTemp, "<") - 1) & Right(strTemp, Len(strTemp) - InStr(1, strTemp, ">"))
Loop
FilterHTML = strTemp
End Function

热心网友 时间：2022-04-21 10:46

你是指显示网页源码吗?
我通常是使用inet控件:

Private Sub Command1_Click()
On Error Resume Next
Text1 = Inet1.OpenURL("http://zhidao.baidu.com/question/36462217.html")
End Sub

热心网友 时间：2022-04-21 12:21

。。。
自己去看http://www.yesky.com/20010806/191323.shtml
VB制作浏览器

热心网友 时间：2022-04-21 14:12

用webbrowser控件,用WebBrowser_DocumentComplete事件,当该事件发生时用text1.text=WebBrowser.Document.body.innerTxT