ASP使用正则表达式批量分离编辑框中的图片从而获取图片路径
2010-06-21 09:35
706 查看
此函数可以将html代码里的所有图片路径读取出来,这样就可以将批量获取的图片路径保存到数据库,或者批量将图片打上水印,或者批量进行图片缩略,想怎么操作就怎么操作,这样就很方便了。
如果路径是http://开头的,您还可以使用远程下载文件的函数进行下载。这样就做到了批量下载HTML代码时的远程图片或者文件了。
Function oflink_lcasetag(imgstrng)
'非凡设计原创361du.net
'将内容html代码里的标签大写转换成小写
Dim regEx, Match, Matches '建立变量。
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = "<.+?\>" '设置模式。
regEx.IgnoreCase = true '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Set Matches = regEx.Execute(imgstrng) '执行搜索。
imgstrng=imgstrng
For Each Match in Matches '遍历匹配集合。
imgstrng=replace(imgstrng,Match.Value,lcase(Match.Value))
Next
oflink_lcasetag = imgstrng
End Function
Function ofink_getsrc(strng)
'非凡设计原创361du.net
'批量获取图片路径
strng=oflink_lcasetag(strng)
Dim regEx, Match, Matches,values,if_add '建立变量。
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = "src\=.+?\.(gif|jpg|jpeg|jpe|png)"
regEx.IgnoreCase = true '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Set Matches = regEx.Execute(strng) '执行搜索。
if_add=0
For Each Match in Matches '遍历匹配集合。
values=values&Match.Value&"|"
if_add=1
Next
values=replace(values,"src=""","")
values=replace(values,"src='","")
values=replace(values,"src=","")
if if_add=1 then values=left(values,len(values)-1)
ofink_getsrc = values
End Function
此函数使用方法:imglist=ofink_getsrc(content)
其中content可以是编辑框中包含多张图片的内容
imglist的结果就是将每个图片用"|"隔开,如:1.jpg|2.jpg|3.jpg
得到这个结果后就可以使用split函数获取单个图片,要对这些图片做什么操作就自己想了。
如果路径是http://开头的,您还可以使用远程下载文件的函数进行下载。这样就做到了批量下载HTML代码时的远程图片或者文件了。
Function oflink_lcasetag(imgstrng)
'非凡设计原创361du.net
'将内容html代码里的标签大写转换成小写
Dim regEx, Match, Matches '建立变量。
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = "<.+?\>" '设置模式。
regEx.IgnoreCase = true '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Set Matches = regEx.Execute(imgstrng) '执行搜索。
imgstrng=imgstrng
For Each Match in Matches '遍历匹配集合。
imgstrng=replace(imgstrng,Match.Value,lcase(Match.Value))
Next
oflink_lcasetag = imgstrng
End Function
Function ofink_getsrc(strng)
'非凡设计原创361du.net
'批量获取图片路径
strng=oflink_lcasetag(strng)
Dim regEx, Match, Matches,values,if_add '建立变量。
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = "src\=.+?\.(gif|jpg|jpeg|jpe|png)"
regEx.IgnoreCase = true '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Set Matches = regEx.Execute(strng) '执行搜索。
if_add=0
For Each Match in Matches '遍历匹配集合。
values=values&Match.Value&"|"
if_add=1
Next
values=replace(values,"src=""","")
values=replace(values,"src='","")
values=replace(values,"src=","")
if if_add=1 then values=left(values,len(values)-1)
ofink_getsrc = values
End Function
此函数使用方法:imglist=ofink_getsrc(content)
其中content可以是编辑框中包含多张图片的内容
imglist的结果就是将每个图片用"|"隔开,如:1.jpg|2.jpg|3.jpg
得到这个结果后就可以使用split函数获取单个图片,要对这些图片做什么操作就自己想了。
相关文章推荐
- PHP用正则批量替换Img中src内容,用正则表达式获取图片路径实现缩略图功能
- PHP用正则批量替换Img中src内容,用正则表达式获取图片路径实现缩略图功能
- PHP用正则批量替换Img中src内容,用正则表达式获取图片路径实现缩略图功能
- Java中使用正则表达式获取网页中所有图片的路径
- Java中使用正则表达式获取网页中所有图片的路径
- C#中使用 正则表达式 替换img中src路径但保留图片名
- php使用正则表达式获取图片url的方法
- 正则表达式匹配图片路径名然后使用DIalog显示
- 使用C#正则表达式获取必应每日图片地址
- 使用正则表达式实现模式图片新闻.ASP
- ASP使用正则表达式获得代码中第一张图片地址
- 正则表达式获取网页中所有图片的路径
- 使用Python正则表达式从文章中取出所有图片路径
- asp.net 正则表达式替换图片路径
- asp.net(VB)中使用正则获取图片地址并进行下载.
- 使用正则表达式实现模式图片新闻(加强).ASP
- JavaScript打开窗口函数(Window.Open)使用详解、绝对路径与相对路径的获取与转换(含ASP.NET)
- asp.net利用正则在HTML中提取图片路径
- Smarty 模板 图片、CSS、JavaScript文件路径替换(用ecshop的正则表达式)