vb中怎么抓取网页中的特定信息

r0b3r7 2008-04-16 04:41:21

比如我要抓google中的信息
我先在google中输入"xx"
把返回的所有的数据中，取数据中域名
比如返回如下格式：

事实恒等式
http://www.xxx.com/dddd.asp?....

我要取www.xxx.com
请教如何取这样的值

之前有参考过这个代码
http://blog.csdn.net/zou_seafarer/archive/2008/01/23/2061405.aspx
但是好象要抓google的比较的难
不太一样，很多垃圾信息！
请大侠帮下忙！

...全文

468 17 打赏收藏举报

写回复

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

winstear 2011-04-28

打赏
举报

好像用不了

wxz_upc 2008-07-02

打赏
举报

ri,楼猪不厚道,竟然没给7楼分

r0b3r7 2008-04-22

打赏
举报

帖子我明日来结，分只有20，呵呵
刚注册不久的菜鸟。so...

r0b3r7 2008-04-22

打赏
举报

3Q~~~
呵呵
还是csdn牛人多
先谢！！！

无·法 2008-04-22

打赏
举报

楼上的相当强大，不过还是还是喜欢无控件的

northwolves 2008-04-22

打赏
举报

Private Sub Command1_Click()

Dim x() As String, i As Long, j As Long, url As String

url = "http://www.google.cn/search?num=100&q=" & InputBox("Please enter something to search:", "Info", "Olympic")

For j = 0 To 5

WebBrowser1.Navigate url & "&start=" & j * 100

While WebBrowser1.Busy

DoEvents

Wend

x = Filter(Filter(Split(WebBrowser1.Document.body.innerhtml, "</a></nobr></div>", , vbTextCompare), "<br><span class=a>www.", , vbTextCompare), ".com/ -", , vbTextCompare)

For i = 0 To UBound(x)

x(i) = Replace(Replace("www." & Split(Split(x(i), "<br><span class=a>www.", , vbTextCompare)(1), ".com/ -", , vbTextCompare)(0) & ".com", "<b>", "", , , vbTextCompare), "</b>", "", , , vbTextCompare)

If Not x(i) Like "*.*.*.*" Then List1.AddItem x(i)

Next

Next



End Sub