查人人中国名人网生化奇兵反和谐补丁:ASP字符串高难问题，请高手
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/06 07:40:25
在数据库中有不确定的一些图文混排的字符串，如：<img onmousewheel="return zoom_img(event,this)" alt="" src="UploadFiles/2006-7/200672975338566.jpg" onload="javascript:if(this.width>740)this.width=740" >文字文字文字文字文字文字文字文字文字文字
问，如何去掉图片只显示文字。
特别说明， 例如：<font size=2>等的代码还是要保留的
问，如何去掉图片只显示文字。
特别说明， 例如：<font size=2>等的代码还是要保留的
你是想达到不显示的效果呢还是想彻底去掉图片代码的呢？
不显示的可以
Set RegEx = New RegExp
RegEx.IgnoreCase = True
RegEx.Global = True
RegEx.Pattern = "[<]img"
RegEx.replace(ss,"<!img") 把img改成注释！然后把src去掉
RegEx.Pattern = "src=[\"\']*[^\"\']+[\"\']*" 去掉 src="adsf.gif"
RegEx.replace(ss,"")
原来的 <img src="upload/abc.gif">处理完后为 <!img >想得到它原来的样子都没法得到！如果还想去掉 lowsrc照样做！
Function aa(Str) '只区汉字
Dim RegEx,TempReg
Set RegEx = New RegExp
RegEx.IgnoreCase = True
RegEx.Global = True
RegEx.Pattern = "[\u4e00-\u9fa5]"
Set Matches = RegEx.Execute(Str)
For Each Match In Matches
aa = aa & Match.value
Next
End Function
kkk=rs("fgs")
for i=len(kkk) to 1
if mid(kkk,i,1)=">" then
kkk=right(kkk,i-1)
exit for
end if
next
第二个回答是基于什么原理呢