提取文章中的图片标签!!!

[fujunle]

如何提取数据库备注型字段中的<img ... </img>标签,最终得到在网页能够显示!!!

[fujunle]

<img标签前后都还有文字

[nihaopp]

关注！

[tantaiyizu]

replace(str , "<img>" ,"<img src=")
replace(str , "</img>" ,">")

[fujunle]

最后STR得出的还是不对

[fujunle]

木木木木木木木木木木木木木木木木木
"<A href=""http://cimg2.163.com/cnews/2007/4/13/200704131730145d240.jpg"" target=_blank>
<P align=center><IMG alt="""" src=""http://cimg2.163.com/cnews/2007/4/13/200704131730145d240.jpg"" onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333"" border=0></A><BR>木木木木木木木木木木木木木木木木木木木木木木木木木木</P>"

这些内容都在一个字段中,我想的是
<IMG alt="""" src=""http://cimg2.163.com/cnews/2007/4/13/200704131730145d240.jpg"" onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333"" border=0>

[Atai-Lu]

Function ReplaceText(fString,patrn,replStr)
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全局可用性。
ReplaceText = regEx.Replace(""&fString&"",""&replStr&"") ' 作替换。
Set reg=nothing
End Function

str=ReplaceText(str,"\[IMG\]([^"&CHR(34)&"[]*)(\[\/IMG\])","<img border=0 src=$1>")