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

来源:http://community.csdn.net/Expert/topic/3873/3873123.xml?temp=.402569

Dim Exps
Str="abc"
Set Exps= New Regexp
Exps.Pattern = "(.+?)"
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