得到連接和圖片的地址 正則
更新時間:2006年08月23日 00:00:00 作者:
復制代碼 代碼如下:
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
相關文章
淺談js正則字面量//與new RegExp的執(zhí)行效率
以前看到很多文章都說 字面量 會比 new 對象 形式效率高,但是在正則這里,好像不是這么回事,具體的請看下面的分析2020-04-04