Как проверить наличие некорректных симв -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.22.181.81]

Дорогие друзья! Поздравляем вас с днём Победы!

Модераторы: SCINER, B.V.

Как проверить наличие некорректных симв

D[u]fa

Сообщ. #1 , 30.03.04, 17:12

Master

Рейтинг (т): 112

Private 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

Сообщение отредактировано: B.V. - 14.08.07, 09:59

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0190 ] [ 16 queries used ] [ Generated: 9.05.24, 19:53 GMT ]