UC知道求写个替换代码正则表达式 asp用的
来源：百度知道 编辑：UC知道 时间：2024/06/08 17:51:08
读出表里的内容字段
里面有图片代码，
如
<p><img src="/images/2/123.jpg">这里源码里的一段文字<img src=/images/3/789.gif">这里可能又有一段文字</p>
我需要在替换成
<img src="/images/2/123.jpg" onload="javascript:if(this.width>screen.width-500)this.width=screen.width-500" onmouseover="attachimg(this, 'mouseover')" onclick="zoom(this, /images/2/123.jpg'/*tpa=/images/2/123.jpg*/)" />
求高手帮忙
里面有图片代码，
如
<p><img src="/images/2/123.jpg">这里源码里的一段文字<img src=/images/3/789.gif">这里可能又有一段文字</p>
我需要在替换成
<img src="/images/2/123.jpg" onload="javascript:if(this.width>screen.width-500)this.width=screen.width-500" onmouseover="attachimg(this, 'mouseover')" onclick="zoom(this, /images/2/123.jpg'/*tpa=/images/2/123.jpg*/)" />
求高手帮忙
Set rea = New RegExp :rea.Global = True :rea.IgnoreCase = True :rea.MultiLine = True
Set reb = New RegExp :reb.Global = True :reb.IgnoreCase = True :reb.MultiLine = True
Set rec = New RegExp :rec.Global = True :rec.IgnoreCase = True :rec.MultiLine = True
rea.Pattern = "\<img[^>]*()\>"
reb.Pattern="src=""[^>]*()"""
set matches=rea.execute(str)
for each match in matches
ss=match.value
reb.Pattern="src=[^>]*() "
ss=reb.replace(match.value,"src=aaa.jpg ")
reb.Pattern="src=[^>]*()>"
ss=reb.replace(match.value,"src=aaa.jpg>")
rec.Pattern=match.value
str=rec.replace(str,ss)
next
这种替换方法可能略慢。其中str是要处理的串
你规定文件后缀和文件夹，这个问题好办多了
Set re = New RegExp :re.Global = True :re.IgnoreCase = True :reaMultiLine = True
re.Pattern = "src=\""*http\:\/\/test