ASP獲取網頁全部圖片地址並保存為數組的正則

目前還是有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"