您现在的位置: 北京赛车计划公式周期 >> 教程专题 >> 正则表达式教程 >> 正文

pk10投注软件下载看龙虎有什么窍门没得

作者:佚名 来源:网络收集 更新时间:2011-2-13
分享到
代码如下:

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
转载请注明:北京赛车计划公式周期(谢谢合作)
网友评论: