1,451
社区成员
发帖
与我相关
我的任务
分享正则表达式只返回一次结果
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?
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?
...全文
请发表友善的回复…
发表回复
森少 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
自己搞定
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
自己搞定
