vb怎么采集页面的所有<a>

2012-01-08

vb如何采集页面的所有a我下载了一个页面源码，如何采集所有产品的连接地址，也就是,a href这的连接地址

vb如何采集页面的所有<a>
我下载了一个页面源码，如何采集所有产品的连接地址，也就是,<a href="这的连接地址">，里面的地址。vb如何写啊

[解决办法]

VB code

Private Sub Command1_Click()Set obj = WebBrowser1.Document.getElementsBytagName("a")For I = 0 To obj.LENGTH - 1Debug.Print obj(I).hrefNextEnd SubPrivate Sub Form_Load()WebBrowser1.Navigate "http://www.hao123.com/"End Sub
[解决办法]
这个表的ID?name?
[解决办法]
你的问题和你说的就不是一码事.哪个页面?
[解决办法]

VB code'引用Microsoft VBScript Regular Expressions 5.5Private Sub Command1_Click()Dim re As RegExp    Dim mh As Match    Dim mhs As MatchCollection  Text1.Text = 你的网页代码On Error Resume NextSet re = New RegExpre.Global = Truere.Pattern = "(http://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?)"Set mhs = re.Execute(Text1.Text)For Each mh In mhsDebug.Print mhEnd IfNextEnd Sub
[解决办法]
href 属性可以是绝对路径，也可能是相对路径，还是用 getElementsBytagName() 最保险。
[解决办法]
你过滤一下不就完了，比如if left(s,10) <>"Http://cgi.ebay" then

热点排行