请教个位高手怎样用VB获取网页中的链接
请教个位高手我要怎样才能链接到“搜狐”啊以下是网页代码
<DIV class=t_nr1><A href="http://www.google.cn/" onFocus="undefined">goole</A><A
href="http://www.sohu.com/" onFocus="undefined">搜狐</A><A
href="http://www.1ting.com/" onFocus="undefined">一听</A><A
href="http://www.163.com/" onFocus="undefined">网易</A><A
href="http://www.taobao.com" onFocus="undefined">taobao</A><A
href="http://www.alipay.com/" onFocus="undefined">支付宝</A><A
href="http://www.alibaba.com.cn/" onFocus="undefined">阿里巴巴</A><A
href="http://www.verycd.com/start/" onFocus="undefined">emule</A><A
href="http://www.5566.net/" onFocus="undefined">5566</A><A
href="http://www.chinaiiss.com/" onFocus="undefined">军事</A><A
href="http://www.tianya.cn/" onFocus="undefined">天涯</A><A
href="http://www.xrqh.com/Blog/User0/32/default.asp?/_ClassName/0000053.html"
onFocus="undefined">操盘手</A></DIV> '此代码由“正则测试工具 v1.1.35”自动生成，请直接调用TestReg过程
Private Sub TestReg()用Microsoft.XMLHTTP的类也可以处理
Dim strData As String
Dim reg As Object
Dim matchs As Object, match As Object
strData = "<DIV class=t_nr1><A href=""http://www.google.cn/"" onFocus=""undefined"">goole</A><A " & vbCrLf & _
"href=""http://www.sohu.com/"" onFocus=""undefined"">搜狐</A><A " & vbCrLf & _
"href=""http://www.1ting.com/"" onFocus=""undefined"">一听</A><A " & vbCrLf & _
"href=""http://www.163.com/"" onFocus=""undefined"">网易</A><A " & vbCrLf & _
"href=""http://www.taobao.com"" onFocus=""undefined"">taobao</A><A " & vbCrLf & _
"href=""http://www.alipay.com/"" onFocus=""undefined"">支付宝</A><A " & vbCrLf & _
"href=""http://www.alibaba.com.cn/"" onFocus=""undefined"">阿里巴巴</A><A " & vbCrLf & _
"href=""http://www.verycd.com/start/"" onFocus=""undefined"">emule</A><A " & vbCrLf & _
"href=""http://www.5566.net/"" onFocus=""undefined"">5566</A><A " & vbCrLf & _
"href=""http://www.chinaiiss.com/"" onFocus=""undefined"">军事</A><A " & vbCrLf & _
"href=""http://www.tianya.cn/"" onFocus=""undefined"">天涯</A><A " & vbCrLf & _
"href=""http://www.xrqh.com/Blog/User0/32/default.asp?/_ClassName/0000053.html"" " & vbCrLf & _
"onFocus=""undefined"">操盘手</A></DIV>"
Set reg = CreateObject("vbscript.regExp")
reg.Global = True
reg.IgnoreCase = True
reg.MultiLine = False
reg.Pattern = "href=""(.*?)"""
Set matchs = reg.Execute(strData)
For Each match In matchs
'Debug.Print match.Value
Debug.Print match.SubMatches(0)
Next
End Sub
没正则好 能说详细点吗，还是看不懂，我刚学哈，谢谢谢！！！！ 都给你代码了 你还想怎么样 能解释一下代码的意思就好了！！！ 正则表达式把字符串按照指定规则提取出来"href=""(.*?)""" 哪里看不懂呢 该不会dim语句都要介绍吧，估计疑惑的就是正则对象那一块吧？具体参考：
http://baike.baidu.com/view/682097.htm
当年我也是抱着一本chm文档啃的 多谢你的指导，我好好研究下正则，有不懂的再请教你！谢谢你了！
补充：VB , 网络编程
