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]

注： -始終保持在-開頭或字符類結束。