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

<script language = vbs> 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)) </script>
可修改代码后再运行

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)
ForEach Match in Contents ' 遍历匹配集合。
        Images = Images + Match.SubMatches(1)+"|"
Next
    getImages = Mid(Images,1, Len(Images)-1)
EndFunction

MsgBox(getImages(Str))