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

Question

我是新来的正则表达式，我试图从下面的替换函数中排除某些特殊字符。

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]

注： -始终保持在-开头或字符类结束。