28,391
社区成员
发帖
与我相关
我的任务
分享
Dim str
str = "asdfasdfasd <img src='gif' border=0> dsfasd <b> sdfaf </b> DSFA蓄电池到处"
Dim re
Set re = New Regexp
re.IgnoreCase = True
re.Global = True
re.Pattern ="(<img)([^>]*)(>)"
Set Matches = re.Execute(str)
For Each match In Matches
MsgBox Match.Value
Next