得到连接和图片的地址 正则
导读:收集整理的这篇文章主要介绍了得到连接和图片的地址 正则,觉得挺不错的,现在分享给大家,也给大家做个参考。 复制代码 代码如下:function AddSITeURL(ByVal Str ...
收集整理的这篇文章主要介绍了得到连接和图片的地址 正则,觉得挺不错的,现在分享给大家,也给大家做个参考。 复制代码 代码如下:function AddSITeURL(ByVal Str)
If IsNull(Str) Then
AddSiteURL = ""
Exit Function
End If
Dim re
Set re=new RegExp
With re
.IgnoreCase =True
.Global=True
.Pattern="img (.*?)src=""(?!(http|https)://)(.*?)"""
str = .replace(str,"img $1src=""" & SiteURL & "$3""")
.Pattern="a (.*?)href=""(?!(http|https|ftp|mms|rstp)://)(.*?)"""
str = .replace(str,"a $1href=""" & SiteURL & "$3""")
End With
Set re=Nothing
AddSiteURL=Str
End Function
声明:本文内容由网友自发贡献,本站不承担相应法律责任。对本内容有异议或投诉,请联系2913721942#qq.com核实处理,我们将尽快回复您,谢谢合作!
若转载请注明出处: 得到连接和图片的地址 正则
本文地址: https://pptw.com/jishu/595310.html