一個(gè)僅保留圖片src的函數(shù)

2015/2/10 16:09:241247 閱讀

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="<img.[^>]*src(=| )(.[^&gt;]*) style(=| )(.[^&gt;]*)/&gt;"
Content=re.replace(Content,"<img src="$2" border="0" />")
set re = nothing
FormatImg = content
End Function

<br />
<br />
原始：<img alt="\" src="http://www.ajide.com.cn/*.jpg" style="width:457px;height:300px;" /> <br />
<br />
結(jié)果<img src="http://www.ajide.com.cn/*.jpg" border="0" />

下一條：VB轉(zhuǎn)換UNIX時(shí)間戳的方法

上一條：時(shí)間日期計(jì)算取舍格式化函數(shù)