VBScript替代PHP的preg_match

Question

我需要重写下面的PHP代码片段（它从提供的字符串中过滤出任何非数字字符）;

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

into 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