[导入]ASP常用函数:getIMG()
目前还是有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
%>
文章来源:http://Jorkin.Reallydo.Com/default.asp?id=448
转载于:https://www.cnblogs.com/pboy2925/archive/2008/01/25/1105404.html
[导入]ASP常用函数:getIMG()相关推荐
- [导入]ASP常用函数:doAlert()
<% '功能:输出alert信息并实现页面跳转 '来源:http://jorkin.reallydo.com/article.asp?id=470 '需要Str4Js函数:http://jork ...
- [导入]JavaScript常用函数:Trim() LTrim() RTrim()
//功能:JavaScript的Trim(), Ltrim(), RTrim() 函数 //来源:http://jorkin.reallydo.com/article.asp?id=460 Strin ...
- asp常用函数(备忘)
1.数组长度: <% Dim grade,i grade=split("1,2,5,10,20,50,100,200,500,1000",",") for ...
- python的应用领域和常用函数模块有哪些_Python模块导入区别与常用函数案例
作者:Nature 出品:AI机器思维 Python中包含很多模块,每个领域的应用有关专家开发了相应的模块,必须将其导入到python中,然后才能使用.每个模块安装导入后才能引用,下面通过math模块 ...
- dplyr | 数据导入和预处理的常用函数
在正式分析数据前,我们通常需要先预处理一下数据,比如筛选有效样本,定义变量格式,处理缺失值等,目的是把数据整理成比较清洁的形式,便于后续处理,而R的tidyverse系列工具包针对此提供了丰富多样的处 ...
- matlab实验5函数文件,matlab实验作业(数据类型,常用函数,导入外部文件)
实验一 MATLAB环境与运算基础 一.实验目的 掌握 MATLAB环境与基本操作: 掌握MATLAB常见数据类型的创建.表示和引用: 熟悉MATLAB数据类型的各种运算与常用函数: 熟悉导入外部数据 ...
- python math库常用函数_Python math库常用函数
math库常用函数及举例: 注意:使用math库前,用import导入该库 >>> import math 取大于等于x的最小的整数值,如果x是一个整数,则返回x >>& ...
- pandas常用函数说明及速查表
pandas常用函数说明及速查表 如果你用python做开发,那么几乎肯定会使用pandas库. Pandas 是 Python 语言的一个扩展程序库,用于数据分析. Pandas 是一个开放源码.B ...
- mysql 怎么导入函数_mysql导入导出包括函数或者存储过程_MySQL
bitsCN.com mysql导入导出包括函数或者存储过程 1.mysql导出整个数据库 mysqldump -h hostname -u username -p databasename > ...
最新文章
- python获取当前进程id_Python进程,多进程,获取进程id,给子进程传递参数操作示例...
- python读取大文件csv内存溢出_Python,内存错误,csv文件太大
- response生成图片验证码
- [转]项目失败的经验
- Project testing plan
- 2-14 DataTimePicker控件
- metacube 链接 mysql_2019 年 5月 随笔档案 - rgqancy - 博客园
- java流水号_java怎样自动生成流水号
- wps软件打不开共享超链接_wps excel的超链接打不开怎么办?
- 解决谷歌浏览器Chrome不能上网,其他浏览器可以正常上网问题
- AIX补丁中TL、SP、CSP、IF、PTF的含义
- 汉堡式折叠html,CSS/HTML - 带CSS的汉堡菜单
- MAC 下 解决ZOC 自动断开
- dell跳过开机硬件检测_戴尔笔记本关闭开机硬件自检
- EasyPoi导出Excel实现标记颜色
- java基础(个人笔记)
- 报错:“TypeError: Cannot read property ‘0‘ of undefined“的原因
- 利用CSS3动画制作“百度浏览器”官网奔跑的北极熊
- 程序员需要经纪人吗?10x 最好的程序员其生产力相当于同行的 10 倍~
- 【转】人际关系的书,我只推荐这三本,其它的根本就不用看了
热门文章
- android蓝牙串口 hc06,Android手机通过蓝牙模块HC-06连接Arduino串口输出
- sql查询mysql参数配置_查询参数配置
- php 分布式数据库查询,分布式数据库 · Thinkphp5.0完全开发手册 · 看云
- mysql-5.5.56配置_mysql 5.5.56免安装版配置方法
- linux 正则查找email_Hello Iris简易微博类App开发教程3-查找用户和用户登录
- 1107: 回文数猜想(函数专题)
- java中两种添加监听器的策略
- libiconv库简单裁剪支持CP437编码
- python全排列问题_Python基于回溯法子集树模板解决全排列问题示例
- docker gpu报错Error response from daemon: could not select device driver ““ with capabilities: [[gpu]]