VBA正则表达式 - 如何排除特殊字符

Question

我是regex的新手，我正试图从下面的替换函数中排除某些特殊字符。

Function removeAlpha(r As String) As String
With CreateObject("vbscript.regexp")
   .Pattern = "\D+"
    .Global = True
    removeAlpha = .Replace(r, "")
End With
End Function

目前它正在删除字符串中的每一个非数字，并留下数字。

但我希望它忽略以下字符 - ，。

非常感谢您的帮助！

Answer 1

将它们包含在这样的否定字符类中。

正则表达式： [^\d,.-]+这将匹配多个数字，逗号，点和连字符不匹配。 \D与[^\d]

相同

注意： - 始终将-保留在字符类的开头或结尾处。