服务器之家

服务器之家 > 正文

ASP获取网页全部图片地址并保存为数组的正则

时间:2019-09-29 10:58     来源/作者: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  
%> 

 

相关文章

热门资讯

玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情 2019-06-22
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字 2019-06-05
超A是什么意思 你好a表达的是什么
超A是什么意思 你好a表达的是什么 2019-06-06
返回顶部