首页 相关文章 得到连接和图片的地址 正则

得到连接和图片的地址 正则

代码如下:


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<...[ 查看全文 ]

2016-02-19 标签:

得到连接和图片的地址 正则的相关文章

手机页面
收藏网站 回到头部