ASP获取网页全部图片地址并保存为数组的正则
2023-06-13 09:13:59 时间
目前还是有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=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
%>
相关文章
- ASP操作Oracle数据库(asp链接oracle)
- 3.0Linux系统中运行ASP 3.0的实践(linux运行asp)
- 如何使用C ASP实现MySQL数据库连接(c asp连接mysql)
- 数据交互实现ASP页面与MySQL数据交互最佳方法(asp页面与mysql)
- ASP编程存取MySQL数据库出现乱码问题(asp读mysql乱码)
- Asp如何与MySQL建立连接(asp能链接mysql吗)
- ASP与MySQL结合最佳网站开发方案(asp接mysql)
- ASP搭配MySQL实现完美源代码(asp mysql源代码)
- ASP技术保障Oracle数据库安全备份(asp备份oracle)
- ASP与Oracle联手,智慧集群打造Web应用(asp和oracle联用)
- ASP程序开发与Oracle数据库结合实现(asp与oracle)
- ASP与Oracle数据库操作实例最佳实践之路(asp oracle实例)
- ASP与Oracle配合实现数据写入(asp oracle写入)
- ASP简洁的多重查询的解决方案
- asp网页邮箱访问
- ASP.NET2.0中的页面输出缓存
- asp复制文件夹代码
- 用asp实现网页邮箱访问的方法
- asp下request.querystring("id")与request("id")区别
- asp获取当前网页地址的代码
- ACCESS的参数化查询,附VBSCRIPT(ASP)和C#(ASP.NET)函数
- ASP保存远程图片到本地同时取得第一张图片并创建缩略图的代码
- asp.net计划任务管理程序实现,多线程任务加载
- jquery获取ASP.NET服务器端控件dropdownlist和radiobuttonlist生成客户端HTML标签后的value和text值
- asp.net传多个值到其它页面的具体实现
- Asp.net回调技术Callback学习笔记
- 使用asp.net改变网页上图片颜色比如灰色变彩色