Alter Code zum Entfernen anstelle von Zeichen zulassen
Die Funktionallows
das aufgelistete Zeichen (in diesem Fall)
Case 48 To 57, 65 To 90, 97 To 122:
Ist es möglich, dies zu @ zu ändeRemove
die stattdessen aufgelisteten Zeichen?
Vielen Dan
Function AlphaNumericOnly(strSource As String) As String
Dim i As Integer
Dim strResult As String
For i = 1 To Len(strSource)
Select Case Asc(Mid(strSource, i, 1))
Case 48 To 57, 65 To 90, 97 To 122:
strResult = strResult & Mid(strSource, i, 1)
End Select
Next
AlphaNumericOnly = strResult
End Function