| |
Проверка на наличие некорректных символов |
|
| |
Данный пример проверяет строковую переменную
на наличие в ней определенных символов. Добавьте
на форму CommandButton и TextBox. Вы
можете определить те символы, наличие которых вы
хотите проверить в строковой переменной в
переменной BadChars$.
Function IsValidString(StringToTest As String, Invalid As String)
For X = 1 To Len(Invalid)
If InStr(1, StringToTest, Mid$(Invalid, X, 1), 0) Then
IsValidString = False
Exit Function
End If
Next X
IsValidString = True
End Function
Private Sub Command1_Click()
Dim MyString As String
MyString = Text1.Text
'Замените '@#$%^&' теми символами, которые вы
хотите проверить
BadChars$ = "@#$%^&"
X = IsValidString(MyString, BadChars$)
If X Then
MsgBox "Это нормальная переменная"
Else
MsgBox "Это НЕнормальная переменная"
End If
End Sub
|
|
| |
|
|
|
|