Question

vb怎么提取网页中的链接？

Answer 1

Private Sub Command1_Click()
Dim vTag, vDoc
Dim AllCount, i
List1.Clear
Set vDoc = WebBrowser1.Document.All
AllCount = vDoc.Length
MsgBox (AllCount)
For i = 0 To AllCount - 1
Debug.Print vDoc.Item(i)
If UCase(vDoc.Item(i).TagName) = "A" Then '?òμ?URL
vTag = vDoc.Item(i).href
If InStr(vTag, "http://dhunter.51.net") Then '?ì2aURL?Dê?·?o?óD[url]http://dhunter.51.net[/url]
List1.AddItem vDoc.Item(i).href 'è?1?óD?òìí?óμ?list1?D
End If
End If
Next i
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com"
End Sub

Answer 2

可以使用vb的字符串处理函数提取，也可以用正则表达式提取。