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]

と同じです。