正则表达式只返回一次结果

xlcc 2009-04-05 01:10:09
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

文章中有多个JPG,如果只选择第一个JPG?
...全文
56 点赞 收藏 3
写回复
3 条回复
森少 2009年06月17日
……
回复 点赞
lonelyriver 2009年04月07日
……
回复 点赞
xlcc 2009年04月05日
Function getImages(Str)
Set re = New RegExp
re.Pattern = "<img(.+?)src=""*([^\s]+?)""*(\s|>)"
re.Global = True
re.IgnoreCase = True
Set Contents = re.Execute(Str)
Images = Contents(0).SubMatches(1)
getImages = Mid(Images, 1, Len(Images) -0)
End Function

自己搞定
回复 点赞
发动态
发帖子
图象工具使用
创建于2007-09-28

896

社区成员

2.4w+

社区内容

多媒体/设计/Flash/Silverlight 开发 图象工具使用
社区公告
暂无公告