急：如何使用正则表达式分析HTML中的内容 - 编程论坛

我从WORD中保存为HTML文件，其中含有以下一些代码：
<Html>
...
<v:imagedata o:title="1" src = "file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msoclip1/02/clip_image001.jpg"> </v:imagedata>
...
<v:imagedata o:title="2" src ="file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msoclip1/02/clip_image003.jpg"> </v:imagedata>
...
<v:imagedata o:title="3" src = "file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msoclip1/02/clip_image004.jpg"> </v:imagedata>
...
<v:imagedata o:title="4" src = "file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msoclip1/02/clip_image006.jpg"> </v:imagedata>
...
</Html>
我有以下分析代码：
'------------------------------
On Error Resume next
Dim sGetimgs
sGetimgs = ""
Set objRegExp = New Regexp'设置配置对象
objRegExp.IgnoreCase = True'忽略大小写
objRegExp.Global = True'设置为全文搜索
objRegExp.Pattern = " <v:imagedata.+?>"'为了确保能准确地取出图片地址所以分为两层配置：首先找到里面的 <v:imagedata>标签，然后再取出里面的图片地址后
Set Matches =objRegExp.Execute(HtmlContent)  'HtmlContent是我已经取得的全部HTML代码，现在想做分析
For Each Match in Matches
Set objRegExp1 = New Regexp
objRegExp1.IgnoreCase = True
objRegExp1.Global = True
objRegExp1.Pattern = "file:///.+/?"""  '取出里面的地址
set mm=objRegExp1.Execute(Match.Value)
For Each Match1 in mm
sGetimgs = sGetimgs & " ¦ ¦" & left(Match1.Value,len(Match1.Value)-1)  '把里面的地址串起来备用
Next
Next
response.write " <br> <hr>" & sGetimgs & " <br> <hr>"
我想得到的结果是
sGetimgs="C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msoclip1/02/clip_image001.jpg ¦ ¦C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msoclip1/02/clip_image003.jpg ¦ ¦C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msoclip1/02/clip_image004.jpg ¦ ¦C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msoclip1/02/clip_image006.jpg"
我该怎么修改上面的代码，求各位帮忙！

[[it] 本帖最后由 cxmz 于 2008-6-3 17:41 编辑 [/it]]