Lave omvendt regEXP er nuværende. (VB)

Hejza Folkens

Så er der point, til den person som kan lave den omvendte regEXP af følgende :


Function LoadImage(strInput)
    Set regex = New RegExp
        regex.Global = True
        regex.IgnoreCase = True
        regex.Pattern = "\[img\](.*?)\[/img\]"
    LoadImage = regex.Replace(strInput, "<a href=""$1"" target=""_blank""><img src=""$1"" border=""0"" width=""200""></a>")
    Set regex = nothing
End Function

Lige nu når man indtaster [IMG]noget[/IMG], så får man følgende:
<a href="noget" target="_blank"><img src="noget" border="0" width="200"><a/>

Nu skal jeg have lavet,så hvis man indtaster :
<a href="noget" target="_blank"><img src="noget" border="0" width="200"><a/>

så får man IMG]noget[/IMG]


På forhånd tak, og god arbejdslyst.