[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Проверка на наличие символов (напр. @#$%^) (Проверка на наличие символов (напр. @#$%^))
Проверка на наличие символов (напр. @#$%^)
ilimДата: Среда, 09.11.2011, 22:25 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
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


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Проверка на наличие символов (напр. @#$%^) (Проверка на наличие символов (напр. @#$%^))
Страница 1 из 11
Поиск: