Reg ex string

Jeg ville trække alle <a href..> .. </a> ud først, og f.eks. gemme dem i en array.
Jeg ville erstatte dem med placeholders.
Derefter ville jeg sætte nye hrefs omkring de tilbageværende <img> tags.
Til sidst ville jeg sætte linksene fra arrayet tilbage, hvor placeholderne angav deres oprindelige placeringer.

Forslag:

Function cvt(s)
    Set re = New RegExp
    rem (?<!<a\s+href\s*=\s*""[^""]*""\s*>)
    re.Pattern = "(<img\s+src\s*=\s*"")([^""]*)(""\s*>)(?!</a>)"
    re.Global = True
    cvt = re.Replace(s, "<a href=""$2"">$1$2$3</a>")
End Function

-->arne v

Det fungerede desværre ikke. De billeder som ikke allerede havde en a href på sig reagerede ikke på udtrykket.

Øh.

Koden er testet med dine to eksempler og virker med dem.

<%
Function cvt(s)
    Set re = New RegExp
    re.Pattern = "(<img\s+src\s*=\s*"")([^""]*)(""\s*>)(?!</a>)"
    re.Global = True
    cvt = re.Replace(s, "<a href=""$2"">$1$2$3</a>")
End Function

Response.Write cvt("<img src=""/images/testimage.jpg"">") & "<br>" & vbCrLf
Response.Write cvt("<a href=""/images/testimage.jpg""><img src=""/images/testimage.jpg""></a>") & "<br>" & vbCrLf
Response.Write cvt("bla <img src=""/images/testimage.jpg""> bla") & "<br>" & vbCrLf
Response.Write cvt("bla <a href=""/images/testimage.jpg""><img src=""/images/testimage.jpg""></a> bla") & "<br>" & vbCrLf
%>

outputter:

<a href="/images/testimage.jpg"><img src="/images/testimage.jpg"></a><br>
<a href="/images/testimage.jpg"><img src="/images/testimage.jpg"></a><br>
bla <a href="/images/testimage.jpg"><img src="/images/testimage.jpg"></a> bla<br>
bla <a href="/images/testimage.jpg"><img src="/images/testimage.jpg"></a> bla<br>

OK ?

Det kom aldrig til at fungere ordentligt, men du får dine points for besværet!

Tak for hjælpen.