您的位置:首页 > 其它

网页中整个链接地址的正则表达式

2005-03-26 11:21 302 查看
来源:http://community.csdn.net/Expert/topic/3873/3873123.xml?temp=.402569
Dim Exps
Str="<a taget=_blank href=""www.abc.com"">abc</a>"
Set Exps= New Regexp
Exps.Pattern = "<a/s(.*?)+href=(/"")?(.+?)(/"")?/s*(.*?)>(.+?)</a>"
Exps.Ignorecase = True
Exps.Global = True
Set Matches =Exps.Execute(Str)
For Each Match In Matches
   Msgbox Match.Submatches(1)
Next
Set Matches =Nothing
Set Exps=Nothing
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签:  正则表达式 each