最近遇到一个难题，是这样的我们一般做新闻的时候都是用编辑器上传图片，上传到一个特定的文件夹，而我们的编辑器里面的代码就如下：

<P><IMG height=420 src="/images_1/20071020214844840.jpg" width=560 border=0><IMG height=420 src="/images_1/20071020214919741.jpg" width=560 border=0><IMG height=420 src="/images_1/20071020215157563.jpg" width=560 border=0><IMG height=420 src="/images_1/20071020214940487.jpg" width=560 border=0><IMG height=420 src="/images_1/20071020215018517.jpg" width=560 border=0><IMG height=420 src="/images_1/20071020215117551.jpg" width=560 border=0><IMG height=420 src="/images_1/20071020215139327.jpg" width=560 border=0></P>

现在要解决的是如果我要删除这篇新闻，并且连新闻中出现的图片也要删除，就是删除“20071020214844840.jpg、20071020214919741.jpg……”，不知道怎么处理，望高手指点！

其实如果是单个表单项目删除很容易的，但是这个是在很多字符串中，虽然有编辑器自带的文件管理工具，但是对于客户来说他是不会去进去删除的，所以很想解决这个很实际的问题！我也想用检索字符来提取，但是写了很多都没有达到预期的效果。

用fso删除这些文件,应该可以吧

FSO是可以删除的，但是你怎么将这些字符串中的图片名称检索出来呢！

正则表达式

如何写了，望楼上的指教，我对正则表达式研究得少！

用ＦＳＯ获得文件的存放地址，然后删除就可以了！

我也不会正则，楼主可以这样试试，我发现你的img 的border属性都为0，
我的笨办法就是用把你这一长串定义为一个str，然后用split根据border分割，然后用replace替换。
然后再用fso进行删除操作。个人看法，仅作参考。

[CODE]\".+\.jpg\"[/CODE]
试试

先谢过了，去试试！

请问斑竹我这样写好象说不对啊！我对正则没有多大的研究。望指教啊！

Public Function GetPIC(strHtml)

Dim strPatrn

strpatrn=".+\.jpg\" '==这里不知道将你写的那个代码怎么写==

Dim regEx

Set regEx = New RegExp

regEx.Pattern = strPatrn

regEx.IgnoreCase = True

regEx.Global = True

GetPIC = regEx.Replace(strHtml,"")

End Function