网络编程
位置:首页>> 网络编程>> Asp编程>> asp使用正则自动解析图片地址并保存

asp使用正则自动解析图片地址并保存

  发布时间:2007-08-17 11:29:00 

标签:正则,正则表达式,图片,远程,xml

内容摘要:本文介绍了asp使用正则表达式自动解析远程图片地址并下载保存的方法,值得收藏!

一、使用正则表达式Regexp匹配取得原页中的图片的地址

(1)先获取:http://图片的地址


function PicStr(str)
 Set objRegExp = New Regexp ’设置配置对象
 objRegExp.IgnoreCase = True ’忽略大小写
 objRegExp.Global = True ’设置为全文搜索
 objRegExp.Pattern = "<IMG.+?>" ’为了确保能准确地取出图片地址所以分为两层配置:首先找到里面的<IMG>标签,然后再取出里面的图片地址后面的getimgs函数就是实现后一个功能的。
 strs=trim(str)
 Set Matches =objRegExp.Execute(strs) ’开始执行配置
 For Each Match in Matches
 PicStr = PicStr &getimgs( Match.Value ) ’执行第二轮的匹配
 Next 
 ’所有的图片在里面都是这样的src="http://图片的地址",所以可以这样来取得确切的图片地址
end function



 (2)获取准确的图片地址


function getimgs(str)
 getimgs=""
 Set objRegExp1 = New Regexp
 objRegExp1.IgnoreCase = True
 objRegExp1.Global = True
 objRegExp1.Pattern = "http://.+?""" ’取出里面的地址
 set mm=objRegExp1.Execute(str)
 For Each Match1 in mm
 getimgs=getimgs&"||"&left(Match1.Value,len(Match1.Value)-1) ’把里面的地址串起来备用
 next
end function



当然你也可以一步到位直接获取图片地址。

如果您对正则表达式不是很了解可以这篇文章看:ASP中RegExp对象正则表达式语法及相关例子

下一页将介绍如何自动下载并保存图片

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com