Изменить код для удаления вместо разрешенных символов
Функцияallows
перечисленный символ (в данном случае)
Case 48 To 57, 65 To 90, 97 To 122:
Можно ли изменить это наRemove
символы, перечисленные вместо?
Спасибо
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