Replace tag til et andet <img> src </img>

reg = new RegExp("[img](\\.*)[/img]","gi")
'Bemærk, jeg kender ikke vb-syntaksen for global og insensitive, så den skal du finde ...
'Ligeledes kender jeg ikke vb-syntaksen for replace, så sådan er det på javascriptsk:
txt = txt.replace(reg,"<img src='\$1'>\$1</img>")

str = "noget"

Set regex = New RegExp
regex.Global = True
regex.IgnoreCase = True
regex.Pattern = "\[img\](.*?)\[/img\]"

newstr = regex.Replace(str, "<img src=""$1"">")

Mange tak.

Smid et svar og du får points.

Men jeg har endnu et spørgsmål..

Jeg har fundet denne kode her inde og den virker fint:
Function MakeLink(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp
Set objRegExpEMail = New RegExp

objRegExpHTTP1.Pattern = "(http|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)"
objRegExpHTTP2.Pattern = "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,3}[\w\S]*)"
objRegExpEMail.Pattern = "([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,3}\S*)"

objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True
objRegExpEMail.Global = True

objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True
objRegExpEMail.IgnoreCase = True

strOutput = objRegExpEMail.Replace(strInput, " <a href='mailto:$1'>$1</a> ")
strOutput = objRegExpHTTP1.Replace(strOutput, " <a href='$1$2' target='_blank'>$1$2</a> ")
strOutput = objRegExpHTTP2.Replace(strOutput, " $1<a href='http://$2' target='_blank'>$2</a> ")

objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])('>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")

objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(' target=)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")

objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(</a>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2$1")

Set objRegExpHTTP2 = Nothing
set objRegExpHTTP1 = Nothing
Set objRegExpEMail = Nothing

MakeLink = strOutput
End Function

Men, min link funktion laver mine billeders URL om til links!
Hvordan tilføjer man til min pattern, så hvis stringen indenholder [IMG], så skal den IKKE lave et link?

lukker