知识大全 ASP常用函数:getIMG()

Posted 2022-07-17 知

篇首语：讨厌自己明明不甘平凡，却又不好好努力。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 ASP常用函数:getIMG()相关的知识，希望对你有一定的参考价值。

ASP常用函数:getIMG() 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　目前还是有BUG的最新的测试页面在:

　　正则分析页面在: 发现BUG请在后面留言谢谢修正 src=后面有空格不能正确匹配已修正 src= 为空时出错已修正发现BUG: 图片路径有多个空格时只能保留一个未修正修正图片路径有多个空格时只能保留一个的BUG 已修正 <% 功能:获取全部图片地址保存到一个数组来源需要ReplaceAll函数

　　Function getIMG(sString) Dim sReallyDo regEx iReallyDo Dim oMatches cMatch //定义一个空数组 iReallyDo = ReDim aReallyDo(iReallyDo) If IsNull(sString) Then getIMG = aReallyDo 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 " ) sReallyDo = Replace(sReallyDo "/>" " />" ) sReallyDo = ReplaceAll(sReallyDo "= " "=" True) sReallyDo = ReplaceAll(sReallyDo "> " ">" True) sReallyDo = Replace(sReallyDo "><" ">" & vbCrLf & "<") sReallyDo = Trim(sReallyDo) Set regEx = New RegExp regEx IgnoreCase = True regEx Global = True //去除onclick onload等脚本 regEx Pattern = "s[on] +?=([""| ])( *?) " sReallyDo = regEx Replace(sReallyDo "") //将SRC不带引号的图片地址加上引号 regEx Pattern = "<img *?ssrc=([^"" s][^"" s>]*) *?>" sReallyDo = regEx Replace(sReallyDo "<img src=$ "" />") //正则匹配图片SRC地址 regEx Pattern = "<img *?ssrc=(["" ])([^"" ]+?) *?>" Set oMatches = regEx Execute(sReallyDo) //将图片地址存入数组 For Each cMatch in oMatches iReallyDo = iReallyDo + ReDim PReserve aReallyDo(iReallyDo) aReallyDo(iReallyDo) = regEx Replace(cMatch Value "$ ") Next getIMG = aReallyDo End Function %>

cha138/Article/program/net/201311/14392