得到连接和图片的地址 正则
更新时间: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
相关文章
使用正则表达式过滤 S3 上以 _$folder$ 结尾的占位文件的方法
当我们使用命令行批量从 S3 上拷贝文件或统计文件数量时,希望能排除掉 S3 上以 _$folder$ 结尾的占位文件,这个正则表达式应该怎么写呢,本文给大家介绍使用正则表达式过滤 S3 上以 _$folder$ 结尾的占位文件的方法,感兴趣的朋友一起看看吧2023-12-12
JS正则表达式字面量和使用new RegExp构造函数创建的正则表达式有什么区别
以前看到很多文章都说 字面量 会比 new 对象 形式效率高,但是在正则这里,好像不是这么回事,对于复杂类的替换还是用new 来写出来。前提也得把正则优化好2007-05-05


最新评论