当前位置: 编程技术>其它
asp 图片正则 替换,替换前检查图片是不是本地地址的方法
来源: 互联网 发布时间:2014-10-15
本文导语: 直接用正则替换,但没有判断功能 Function FormatImg(content) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(script)" Content=re.Replace(Content,"script") re.Pattern="]*src(=| )(.[^>]*)>" Content=re.replace(Content,"") set re = nothing FormatImg = ...
直接用正则替换,但没有判断功能
Function FormatImg(content)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(script)"
Content=re.Replace(Content,"script")
re.Pattern="]*src(=| )(.[^>]*)>"
Content=re.replace(Content,"")
set re = nothing
FormatImg = content
End Function
这段代码将内容中的图片替换成 这中形式的,
我现在需要提取$2的前7个字符,用来判断是否需要被替换,如果前7=特定的字符,就不要替换,但获取$2的前7 无法。大家有什么办法支下招撒?
主要是参考了下面的代码,大家可以看下
'连接
re.Pattern = "[url=(.[^]]*)](.[^[]*)[/url]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
tmpStr2=strMatch.SubMatches(1)
strContent=replace(strContent,strMatch.Value,""&tmpStr2&"",1,-1,0)
Next
这里是正则的Matchs的说明文档
http://www./article/15362.htm
下面由测试代码,大家可以做出函数
Function FormatImg(content)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(script)"
Content=re.Replace(Content,"script")
re.Pattern="]*src(=| )(.[^>]*)>"
Content=re.replace(Content,"")
set re = nothing
FormatImg = content
End Function
这段代码将内容中的图片替换成 这中形式的,
我现在需要提取$2的前7个字符,用来判断是否需要被替换,如果前7=特定的字符,就不要替换,但获取$2的前7 无法。大家有什么办法支下招撒?
主要是参考了下面的代码,大家可以看下
'连接
re.Pattern = "[url=(.[^]]*)](.[^[]*)[/url]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=checkURL(strMatch.SubMatches(0))
tmpStr2=strMatch.SubMatches(1)
strContent=replace(strContent,strMatch.Value,""&tmpStr2&"",1,-1,0)
Next
这里是正则的Matchs的说明文档
http://www./article/15362.htm
下面由测试代码,大家可以做出函数