vbscript - VBScript 替代 PHP 的 preg_match

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