VB 读取HTML代码及网页文字
发布时间:2020-12-16 22:43:57 所属栏目:大数据 来源:网络整理
导读:'得到当前browser的页面文字内容Public Function getWebContent(browser As WebBrowser) As String Dim doc As Object Dim i As Object Dim strHtml As String Set doc = browser.Document For Each i In doc.All strHtml = strHtml Chr(13) i.innerText Nex
'得到当前browser的页面文字内容 Public Function getWebContent(browser As WebBrowser) As String Dim doc As Object Dim i As Object Dim strHtml As String Set doc = browser.Document For Each i In doc.All strHtml = strHtml & Chr(13) & i.innerText Next getWebContent = strHtml End Function '得到当前browser的页面Html内容 Public Function getWebHtml(browser As WebBrowser) As String Dim doc As Object Dim i As Object Dim strHtml As String Set doc = browser.Document For Each i In doc.All strHtml = strHtml & Chr(13) & i.innerHtml Next getWebHtml = strHtml End Function (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |