str="adfjlmnnzlkjlkfjoj <img src=""http://www.baidu.com/logo.gif"" border=0 width=100>dfkjhdjfkadfjlmnnzlkjlkfjoj <img src=""http://www.baidu.com/logo.gif"" border=0 width=100>dfkjhdjfkadfjlmnnzlkjlkfjoj <img src=""http://www.baidu.com/logo.gif"" border=0 width=100>dfkjhdjfkadfjlmnnzlkjlkfjoj <img src=""http://www.baidu.com/logo.gif"" border=0 width=100>dfkjhdjfkadfjlmnnzlkjlkfjoj <img src=""http://www.baidu.com/logo.gif"" border=0 width=100>dfkjhdjfkadfjlmnnzlkjlkfjoj <img src=""http://www.baidu.com/logo.gif"" border=0 width=100>dfkjhdjfkadfjlmnnzlkjlkfjoj <img src=""http://www.baidu.com/logo.gif"" border=0 width=100>dfkjhdjfk"
'匹配字符串的所有图片的正则表达式
Set Re=new Regexp
Re.ignorecase=true
Re.global=true
Re.pattern="<img [^>]*src=""([^"">]+)""[^>]+>"
set m=Re.execute(str) '执行并返回一个图片数组
For Each n In m
result=result&n&"|"
result1=result1&n.submatches(0)&"|"
next
set M=nothing
set Re=nothing