VBScript alternative à preg_match de PHP

Question

Je dois réécrire l'extrait PHP suivant (qui filtre tous les caractères non numériques de la chaîne fournie);

$new_string = preg_replace("/[^0-9]/", "", $old_string) 

dans VBScript. Aucune suggestion ?

Answer 1

Function repNum(myString) 
    Set RegularExpressionObject = New RegExp 
    With RegularExpressionObject 
     .Pattern = "[^0-9]" 
     .IgnoreCase = True 
     .Global = True 
    End With 
    repNum = RegularExpressionObject.Replace(myString, "") 
    Set RegularExpressionObject = nothing 
End Function