28,391
社区成员
发帖
与我相关
我的任务
分享
Function urlr(str)
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="(href=[""']?)(.+?)([""']?\s)"
Set strMatchs = re.Execute(str)
str=re.Replace(str,"href=xxx.asp?url=$2")
urlr=str
End Function