求高人修改一个正则函数

[漠叔]

Function getImg(Con)
	Dim regEx:Set regEx = New RegExp
	regEx.IgnoreCase = True
	regEx.Global = True
	regEx.Pattern = "src\=.+?\.(gif|jpg)"
	Set Matches = regEx.Execute(Con)
	If regEx.Test(Con) Then
	PhotoUrl=Lcase(Matches(0).value)
	PhotoUrl=replace(PhotoUrl,"src=","")
	PhotoUrl=replace(PhotoUrl,left(PhotoUrl,5),"")
	PhotoUrl=replace(PhotoUrl,";","")
	getImg=PhotoUrl
	End If	
End Function

此函数能提取文本中第一张图片地址，如何提取所有图片地址并在每个地址后加入特定字符如[Next]且最后一张不加

[漠叔]

2楼的结果：
aaa.gif[Next]
bbb.jpg[Next]
需要的结果是
aaa.gif[Next]
bbb.jpg[Next]
ccc.gif

[hookee]

content = "<img src='aaa.gif' border=""1""><img src='bbb.jpg'/><img src='ccc.gif'>"
Response.Write getImg(content)

Function getImg(Con)
    Dim regEx:Set regEx = New RegExp
    Dim s : s = ""
    Dim i
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.Pattern = "src\s*=\s*('|"")(.+?)(\1)"
    Set Matches = regEx.Execute(Con)
    For i=0 To Matches.Count-1
        s = s & Matches(i).SubMatches(1)
        If i <> Matches.Count-1 Then s = s & "[Next]"
        s = s & <br>" & VbCrLf
    Next
    getImg=s
End Function

[Dogfish]

楼主给个例子，方便大家回答。

[hookee]

content = "<img src='aaa.gif' border=""1""><img src='bbb.jpg'/><img src='ccc.gif'>"
Response.Write getImg(content)

Function getImg(Con)
    Dim regEx:Set regEx = New RegExp
    Dim s : s = ""
    Dim i
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.Pattern = "src\s*=\s*('|"")(.+?)(\1)"
    Set Matches = regEx.Execute(Con)
    For i=0 To Matches.Count-1
        If i <> Matches.Count-1 Then s = s & Matches(i).SubMatches(1) & "[Next]<br>" & VbCrLf
    Next
    getImg=s
End Function

[yousite1]

不错不错。学习了。