得到连接和图片的地址 正则_正则表达式

复制代码 代码如下:

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

查看更多关于得到连接和图片的地址 正则_正则表达式的详细内容...