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  Function getIMG(sString)      Dim sReallyDo, regEx, iReallyDo      Dim oMatches, cMatch      '//定义一个空数组      iReallyDo = -1      ReDim aReallyDo(iReallyDo)      If IsNull(sString) Then          getIMG = ""          Exit Function      End If      '//格式化HTML代码      '//将每个 <img 换行 方便正则替换      sReallyDo = sString      On Error Resume Next      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)      On Error GoTo 0      Set regEx = New RegExp      regEx.IgnoreCase = True      regEx.Global = True      '//去除onclick,onload等脚本      regEx.Pattern = "\s[on].+?=([\""|\'])(.*?)\1"      sReallyDo = regEx.Replace(sReallyDo, "")      '//将SRC不带引号的图片地址加上引号      regEx.Pattern = "<img.*?\ssrc=([^\""\'\s][^\""\'\s>]*).*?>"      sReallyDo = regEx.Replace(sReallyDo, "<img src=""$1"" />")      '//正则匹配图片SRC地址      regEx.Pattern = "<img.*?\ssrc=([\""\'])([^\""\']+?)\1.*?>"      Set oMatches = regEx.Execute(sReallyDo)      '//将图片地址存入数组      For Each cMatch in oMatches          iReallyDo = iReallyDo + 1          ReDim Preserve aReallyDo(iReallyDo)          aReallyDo(iReallyDo) = regEx.Replace(cMatch.Value, "$2")      Next      getIMG = aReallyDo  End Function  %>