VBA 删除特殊字符

Question

我需要从字符串中完全删除除 A-Z、a-z、0-9 之外的所有特殊字符(可见/不可见)的函数。我已经准备好了一些函数 unfrtunetly 我发现它以某种方式离开逗号(，):O。也许更多我不知道。能否请你看一看和建议:

Function RemoveSpecialChars(Tekst As String) As String

        Dim a$, b$, c$, i As Integer

        a$ = Tekst
        For i = 1 To Len(a$)
            b$ = Mid(a$, i, 1)
            If b$ Like "[A-Z,a-z,0-9]" Then
                c$ = c$ & b$
            End If
        Next i

        RemoveSpecialChars = c$

End Function

Answer 1

只需删除逗号:

If b$ Like "[A-Za-z0-9]" Then

正如它所说的 on MSDN对于 Visual Basic:

To specify multiple ranges for the same character position, put them within the same brackets without delimiters. For example, [A–CX–Z] results in a match if the corresponding character position in string contains any character within either the range A–C or the range X–Z.

尽管 MSDN 没有专门针对 VBA 提及这一点，但它显示了相同的行为。