'也添加编引用:Microsoft.mshtml
然后在页面上:Imports mshtmlFunction parseMyHtml(ByVal htmlToParse$) As String
Dim htmlDocument As IHTMLDocument2 = New HTMLDocumentClass()
htmlDocument.write(htmlToParse)
htmlDocument.close()
Dim allElements As IHTMLElementCollection = htmlDocument.body.all Dim allInputs As IHTMLElementCollection = allElements.tags("a")
Dim element As IHTMLElement For Each element In allInputs
element.title = element.innerText Next
Return htmlDocument.body.innerHTMLEnd Function
如在这里找到: