内容显示页
 
类别:ASP+VBS | 浏览(481) | 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)
ForEach Match in Contents ' 遍历匹配集合。
        Images = Images + Match.SubMatches(1)+"|"
Next
    getImages = Mid(Images,1, Len(Images)-1)
EndFunction

MsgBox(getImages(Str))

引用本页地址:http://www.yongfa365.com/item/VBS-Get-Images-From-String.html
 
 
相关链接
 
网友评论:
1 myvbscript - 2007-6-30 21:21:20
取出所有连接呢?好象比较困难,还有JS那样的连接……好多种形式
 
2 lj - 2007-7-3 12:33:06
哈哈,不错呀。好久没来了!
 
姓名: 记住我
网址:
邮箱:
内容:
验证码:  验证码图片看不清? 换张图试试
 
   
 
 
文章分类
 
   

power by :柳永法(yongfa365)'Blog | model by :hibaidu | css by:众网友 | 京ICP备07011491号   我要统计  

本空间赞助商:北京中科兴联信息技术有限公司

QQ:64049027    E-mail:64049027<at>qq.com