Альтернатива VBScript для preg_match PHP

Question

Мне нужно переписать следующий фрагмент PHP (который отфильтровывает любые нечисловые символы из строки);

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

в VBScript. Какие-либо предложения ?

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