我下载了一个页面源码，如何采集所有产品的连接地址，vb如何采集到瞄链接文字啊

Question

我下载了一个页面源码，如何采集所有产品的连接地址，也就是, <a href="***">想要这个文字</A>，。vb如何采集到瞄链接文字啊

Answer 1

Private Sub Command1_Click()
Dim obj As Object
Set obj = WebBrowser1.Document.getelementsbytagname("a")
For i = 0 To obj.length - 1
Debug.Print obj(i).innertext
Next
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "http://www.360buy.com/"
End Sub

Answer 2

1楼的大哥写的代码是对的，可是我的是截取源代码的一部分 <table> </table>这个表的内容，如何取到这个里面的所有瞄链接啊，

Answer 3

<div class="mbg">
<a href="http://myworld.ebay.fr/boutiquemagique">
<span class="mbg-nw">boutiquemagique</span>
</a> 例如这段代码中，把boutiquemagique，取出来

Answer 4

MsgBox WebBrowser1.Document.getelementsbytagname("span")(i).innertext
要从网页源文件确定i的值.

Answer 5

dim vtag
for each vtag in WebBrowser1.Document.getelementsbytagname("span")
  if vtag.classname="mbg-nw" then
    msgbox vtag.innerhtml
  end if
next

Answer 6

classname可能不唯一.innerhtml是代码,不是锚链接文字

Answer 7

觉得1楼老张用WebBrowser1.Navigate的方式速度不行，占资源，
可以用inet 或 httpxml 等试试..

Answer 8

class一般都是唯一的，那个span里面没有子标签，完全可以使用innerHTML，甚至outerhtml都是可以的。
你那个使用（i），i倒是极有可能不确定的。所以需要根据实际情况。

Answer 9

mbg-nw>shuangxi200888</SPAN></B></A> 
<SPAN class=mbg-l>
( <A href="dddd545465">238</A>
<IMG class=mbg-star title="Le Pr
我的意思是。就是上面的代码，如何得到shuangxi200888和238这个两个值

Answer 10

楼主你还是给具体地址吧，不要打比方，你所谓的简化问题只会把问题搞得越来越复杂，大家写出来了你又会发现不是你要的。对于这样的问题，无非就是：
1.利用dhtml直接取值 2.正则匹配取值 3.利用vb的基本内置函数，left、mid之类的处理
对于第一种方法适用范围较小，需要配合webbrowser操作，后两种比较万能，自己体会吧老张，没生气，交流而已

Answer 11

楼主你还是给具体地址吧，不要打比方，你所谓的简化问题只会把问题搞得越来越复杂，大家写出来了你又会发现不是你要的。 <br />  <br /> 对于这样的问题，无非就是： <br /> 1.利用dhtml直接取值 2.正则匹配取值 3.利用vb的基本内置函数，left、mid之类的处理 <br /> 对于第一种方法适用范围较小，需要配合webbrowser操作，后两种比较万能，自己体会吧 <br />  <br /> 老张，没生气，交流而已</div>
ps：什么破改版，上帖的回复怎么变成那样了，幸亏还可以从页面源代码里面拷出一部分来。