一個僅保留圖片src的函數

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

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 />
結果<img src="http://www.ajide.com.cn/*.jpg" border="0" />

下一條：VB轉換UNIX時間戳的方法

上一條：時間日期計算取舍格式化函數