[vbscript]regex replace met functiecall in replacement

[BasieP]

Beste mensen,

Ik moet uit een stukje tekst een aantal hex tekens omzetten naar ansii.

de tekst ziet er zo uit:
"dit is een caf\XE9 waar ze bier tappen"
waar de "\XE9" dus een é voorsteld (hex dus)

nu kan ik in een regex de E9 er wel uit filteren, maar moet deze nog converteren naar een echte char. (de 'é')

normaal kan dat met de functiecall "output = chr(input)", waar je "&H" als prefix moet gebruiken voor je input.

de code wordt dan zoiets

VBScript:

    Set RegularExpressionObject = New RegExp

    With RegularExpressionObject
        .Pattern = "\\X([A-F0-9]{2})"
        .IgnoreCase = True
        .Global = True
    End With

    sRetval = RegularExpressionObject.Replace(sInput, Chr("&H" + $1))

echter krijg ik het in vbscript niet voor elkaar om een functiecall te doen in de replacement parameter
Ik weet dat het in php kan, maar ik krijg het in vbscript niet voor elkaar.

Iemand tips?

[BasieP]

ik kwam op deze site de volgende code tegen voor c#

C#:

static void Main(string[] args) {
    string origText = "{17} and {18} are friends.";
    string regexPattern = "{(.*?)}";
    string result = Regex.Replace(origText, regexPattern, MyReplacement);
    Console.WriteLine(result);

    Console.Write("{0}Press any key to continue...", Environment.NewLine);
    Console.ReadKey();
}

static string MyReplacement(Match match) {
    return "student " + StudentIdToName(match.Captures[0]);
}

echter heb ik dit geprobeerd in VBscript, maar dit werkte niet (foutmelding)
dit waarschijnlijk omdat er een andere regex engine wordt gebruikt of omdat hij niet snapt dat 'match' van het type Match is, en dat daar een .Captures aan zit.

[j_du_pee]

Kun je wel $1 gebruiken in vbScript + regex

Anders zou je het op zo'n manier kunnen oplossen misschien:

VBScript:

sPattern = "\\X([A-F0-9]{2})"
sInput = "dit is een caf\XE9 waar ze bier tappen"
match = pak(sInput, sPattern)
sInput = replace(sInput, match, char("&H" & match))
function pak(strPhrase, strMatchPattern) 
    Set oRegEx = New RegExp 
    oRegEx.IgnoreCase = True
    oRegEx.Pattern = strMatchPattern 

    Set Matches = oRegEx.Execute(strPhrase) 
    if matches.count>0 then 
        ' out("matches")
        pak = matches(0).submatches(0)    
    end if
End function 

(in dit voorbeeld geeft de functie 1 match terug, maar je moet dan dus ff door de collectie heenlopen)

refje: http://www.devguru.com/technologies/vbscript/14105.asp