内容显示页

VBS取出(提取)一段文本里的所有图片地址[正则表达式实现]

类别：ASP+VBS　|　浏览(1362)　|　2007-6-29 15:35:45

Str = "<img src=""123.Gif"" alt=""dsddfsa"" >   <img src=""123.jpG"" > <img src=""123.jpg""><IMG SRC=123.JPG>"
'名称：VBS取出(提取)一段文本里的所有图片地址[正则表达式实现]
'作者：柳永法
'网址：http://www.yongfa365.com/item/VBS-Get-Images-From-String.html
'日期：2007-6-29
'使用方法：把这个文件存为：getImages.vbs,然后运行便可看到效果

Function getImages(Str)
    Set re = New RegExp
    re.Pattern = "<img(.+?)src=""*([^\s]+?)""*(\s|>)"
    re.Global = True
    re.IgnoreCase = True
    Set Contents = re.Execute(Str)
    For Each Match in Contents ' 遍历匹配集合。
        Images = Images + Match.SubMatches(1) + "|"
    Next
    getImages = Mid(Images, 1, Len(Images) -1)
End Function

MsgBox(getImages(Str))

引用本页地址：http://www.yongfa365.com/item/VBS-Get-Images-From-String.html

上一篇：如何让google找到(搜索到)我的网站
下一篇：经过一天的奋战,网站基本功能终于完善了

相关链接

网友评论：

1 myvbscript - 2007-6-30 21:21:20

取出所有连接呢？好象比较困难，还有JS那样的连接……好多种形式

2 lj - 2007-7-3 12:33:06

哈哈，不错呀。好久没来了！

3 Jorkin - 2009-1-4 10:00:05

img 的src可能有单引号双引号或没有引号。如：、
各种常见的代码障碍(单引号,双引号,脚本,样式...)
目前我只会用两次正则，不知道柳大哥有没有什么更好的方法。

4 匿名网友 - 2009-1-4 16:41:39

@Jorkin
单引号，双引号，没有引号，都给他替换成空格，
所有">"替换成" >"
再匹配。

至于脚本，你可以试试：document.body.innerHTML,这样可以解析脚本，但如果没有IE或其它宿主，我就不知道如何处理了。

你说的样式，我不明白是什么东西。我一般如果要处理这些，我会，先把脚本样式什么的都屏蔽掉，再把一些干扰都去掉，替换所有回车，把要匹配的内容都整到一行,再匹配。

5 雨中风铃 - 2009-1-21 14:09:21

回复myvbscript：

<a(.+?)href=""*([^\s]+?)""*(\s|>)