目前還是有BUG的,最新的測試頁面在:http://www.reallydo.com/getimg.asp
正則分析頁面在:http://jorkin.reallydo.com/article.asp?id=380
發現BUG請在後面留言,謝謝.
1.31修正
src=後面有空格不能正確匹配.已修正.
src=''為空時出錯.已修正.
發現BUG:圖片路徑有多個空格時只能保留一個.未修正.
2.18修正
圖片路徑有多個空格時只能保留一個的BUG.已修正.
複製代碼代碼如下:
<%
'功能:獲取全部圖片地址,保存到一個數組.
'來源:http://jorkin.reallydo.com/article.asp?id=448
'需要ReplaceAll函數:http://jorkin.reallydo.com/article.asp?id=406
FunctiongetIMG(sString)
DimsReallyDo,regEx,iReallyDo
DimoMatches,cMatch
'//定義一個空數組
iReallyDo=-1
ReDimaReallyDo(iReallyDo)
IfIsNull(sString)Then
getIMG=""
ExitFunction
EndIf
'//格式化HTML代碼
'//將每個<img換行方便正則替換
sReallyDo=sString
OnErrorResumeNext
sReallyDo=Replace(sReallyDo,vbCr,"")
sReallyDo=Replace(sReallyDo,vbLf,"")
sReallyDo=Replace(sReallyDo,vbTab,"")
sReallyDo=Replace(sReallyDo,"<img",vbCrLf&"<img",1,-1,1)
sReallyDo=Replace(sReallyDo,"/>","/>",1,-1,1)
sReallyDo=ReplaceAll(sReallyDo,"=","=",True)
sReallyDo=ReplaceAll(sReallyDo,">",">",True)
sReallyDo=Replace(sReallyDo,"><",">"&vbCrLf&"<")
sReallyDo=Trim(sReallyDo)
OnErrorGoTo0
SetregEx=NewRegExp
regEx.IgnoreCase=True
regEx.Global=True
'//去除onclick,onload等腳本
regEx.Pattern="/s[on].+?=([/""|/'])(.*?)/1"