使用正则表达式从网页上提取网址
使用正则表达式想从如下的网页中提取网址,网页部分代码如下:<td><divclass="plus1-widget"><divclass="plus1-msg"><divc...
使用正则表达式想从如下的网页中提取网址,网页部分代码如下:
<td><div class="plus1-widget"><div class="plus1-msg"><div class="plus1-vote"><a href="/plus1/vote/51340?token=4d69b983e846af204adc0554645d16b2" class="plus1-link">投票</a></div></div><div class="plus1-score">319</div></div></td>
我需要获得"/plus1/vote/51340?token=4d69b983e846af204adc0554645d16b2"
其中token=后面的数据为随机的。
我是用VB编写的,把1楼的代码写进去提示出错语法错误。
Private Sub Command1_Click()
Dim re As RegExp
Dim mh As Match
Dim mhs As MatchCollection
Text1.Text = ""
Source1 = Inet1.OpenURL("www.baidu.com")
If Source1 <> "" Then
Text1.Text = Source1
Me.Inet1.Cancel
End If
Set re = New RegExp
re.Global = True
re.Pattern = "vote\"\>\<a\shref\=\"([/\w\d=?]*)"
Set mhs = re.Execute(Source1)
For Each mh In mhs
Debug.Print mh
Next
End Sub 展开
<td><div class="plus1-widget"><div class="plus1-msg"><div class="plus1-vote"><a href="/plus1/vote/51340?token=4d69b983e846af204adc0554645d16b2" class="plus1-link">投票</a></div></div><div class="plus1-score">319</div></div></td>
我需要获得"/plus1/vote/51340?token=4d69b983e846af204adc0554645d16b2"
其中token=后面的数据为随机的。
我是用VB编写的,把1楼的代码写进去提示出错语法错误。
Private Sub Command1_Click()
Dim re As RegExp
Dim mh As Match
Dim mhs As MatchCollection
Text1.Text = ""
Source1 = Inet1.OpenURL("www.baidu.com")
If Source1 <> "" Then
Text1.Text = Source1
Me.Inet1.Cancel
End If
Set re = New RegExp
re.Global = True
re.Pattern = "vote\"\>\<a\shref\=\"([/\w\d=?]*)"
Set mhs = re.Execute(Source1)
For Each mh In mhs
Debug.Print mh
Next
End Sub 展开
2010-08-12
展开全部
你没有说是用PHP还是JavaScript还是ASP还是JSP,你应该先说明那种语言。
PHP 的
<?php
preg_match('/href="([^"]+)"/',$html,$out);
print_r($out[1]);
?>
试试这个正则:
/href="([^"]+)"/
PHP 的
<?php
preg_match('/href="([^"]+)"/',$html,$out);
print_r($out[1]);
?>
试试这个正则:
/href="([^"]+)"/
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2010-08-12
展开全部
vote\"\>\<a\shref\=\"([/\w\d=?]*)
取匹配的第一组数据
vb6的正则参照这里
http://hi.baidu.com/kangkangpig/blog/item/543be962f28626dbe6113ad7.html
取匹配的第一组数据
vb6的正则参照这里
http://hi.baidu.com/kangkangpig/blog/item/543be962f28626dbe6113ad7.html
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询