[ASP] server.URLencode icm reg exp

[CrashOne]

Hallo,

Ik heb een reguliere expressie:

VBScript:

    Dim expr
    Set expr = New RegExp

    expr.Global = True

    expr.Pattern =  "\[url=(.*?)\](.*?)\\[/url\]"
    toCheck = expr.Replace(toCheck,"<a href=""$1"" target=""_blank"" class=""text"">$2</a>")

    Set expr = Nothing

Nu wil ik dat er op $1 een server.urlEncode wordt gedaan, dit wil echter niet.

Ik heb het volgende geprobeert:

VBScript:

toCheck = expr.Replace(toCheck,"<a href=""" & server.urlEncode($1) & """ target=""_blank"" class=""text"">$2</a>")

VBScript:

toCheck = expr.Replace(toCheck,"<a href=""" & server.urlEncode("$1") & """ target=""_blank"" class=""text"">$2</a>")

Is er een manier om dit makkelijk te doen?

Of is het niet mogelijk om dit direct te doen en zou ik de waarde van $1 eerst in een andere var moeten zetten en daarna weer terug in de url?

Google wilde niet helpen, kreeg erg veel irrelevante resultaten.

[Skaah]

Ben geen VBScript hoofd, maar uit de Windows Script 5.6:

code:

Regular Expression (RegExp) Object
See Also
Match Object | Matches Collection
Requirements
Version 5 
Provides simple regular expression support. 

Remarks
The following code illustrates the use of the RegExp object.

Function RegExpTest(patrn, strng)
   Dim regEx, Match, Matches   ' Create variable.
   Set regEx = New RegExp   ' Create a regular expression.
   regEx.Pattern = patrn   ' Set pattern.
   regEx.IgnoreCase = True   ' Set case insensitivity.
   regEx.Global = True   ' Set global applicability.
[b]   Set Matches = regEx.Execute(strng)   ' Execute search.[/b[
   For Each Match in Matches   ' Iterate Matches collection.
      RetStr = RetStr & "Match found at position "
      RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
      RetStr = RetStr & Match.Value & "'." & vbCRLF
   Next
   RegExpTest = RetStr
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))