伤心了难过了，一个人静静，不要在任何人面前掉眼泪，我不能原谅我的懦弱。经常笑，学会向比自己小的人称哥，以保持年轻心态。
functionAddSiteURL(ByValStr)
IfIsNull(Str)Then
AddSiteURL=""
ExitFunction
EndIf Dimre
Setre=newRegExp
Withre
.IgnoreCase=True
.Global=True .Pattern="<img(.*?)src=""(?!(http|https)://)(.*?)"""
str=.replace(str,"<img$1src="""&SiteURL&"$3""") .Pattern="<a(.*?)rel="nofollow noopener noreferrer" href=""(?!(http|https|ftp|mms|rstp)://)(.*?)"""
str=.replace(str,"<a$1rel="nofollow noopener noreferrer" href="""&SiteURL&"$3""")
EndWith
Setre=Nothing AddSiteURL=Str
EndFunction
以上就是得到连接和图片的地址 正则。善待他人，即是最好的善待自己。更多关于得到连接和图片的地址 正则请关注haodaima.com其它相关文章！