VBSCRIPT проверка текста на недопустимые символы.

[ALX_2002]

Собственно трабл.

Есть строка.

Нужно проверить её на недопустимые символы.

При чём список допустимых символов

(8, 32 to 38, 40 to 126, 192 to 255)

Нужно это сделать в VBSCRIPT

'----------------------------

Хотел сделать через SELECT CASE
Не получается. VBSCRIPT не поддерживает case X to X

Помогите с идеей плиз.

[Sebas]

Select Case True ?

[ALX_2002]

2 Sebas: К сожалению не понял.

[Sebas]

Select Case true
case x>0
case X>1 And X<5

[Andrey Fedorov]

Хотел сделать через SELECT CASE
Не получается. VBSCRIPT не поддерживает case X to X

Да сделай просто через If ... Then

[ALX_2002]

Всё... КанЭц..... Я схожу с ума

Код: Выделить всё


A=0

Select case A
case A > 4
msgbox "A"
End Select


У меня вот этот код срабатывает и выдаёт мессагу.

[GSerg]

[Andrey Fedorov]

Всё... КанЭц..... Я схожу с ума

Код: Выделить всё

A=0
Select case A
case A > 4
msgbox "A"
End Select


У меня вот этот код срабатывает и выдаёт мессагу.

А ты что хотел-то?
Подумай как следует что у тебя получилось-то.

Будет лучше если сам поймешь что написал...

[Igor_123]

А почему он не должен срабатывать

А = 0
Select Case A -> (0)
case A > 4 -> условие обрабатываеться получаем False -> приводим к целому получаем 0 -> Значит наша ветка, заходим в неё

Все нормально!

[Igor_123]

Упс!
Поторопился и испортил воспитательный момент!
Ногами, хоть не сильно бейте

[ANDLL]

Код: Выделить всё

Dim A,S,P
S="ABCD1"
P="^[\x8\x20-\x26\x28-\x7e\xc0-\xff]*$"
Set A=CreateObject("VBScript.RegExp")
A.Pattern=P
MsgBox iif(A.Test(P),"верно","неверно")

Признаться честно, не проверял. Но работать должно...

[ALX_2002]

2 ANDLL: ! УХ ! КРУТО ! Я ТОЖЕ ТАК ХОЧУ !

Пойду пробывать !

[ALX_2002]

2 ANDLL: Отец, посвяти меня пожалуйста в таинство синтаксиса этой штуки.

Я в нете нашёл полно инфы, НО НИ ***** не понял

Там такое понаписано.

Пожалуйста - объясни на пальцах, как ей подсовываются параметры.

[ANDLL]

Ты про это: ^[\x8\x20-\x26\x28-\x7e\xc0-\xff]*$ ?
Собственно называется это "Регулярные выражения".
Замечательная книга на эту тему: Дж. Фридл "Регулярные выражения", изд. Питер, 2-е изд. Там на обложке сова нарисована
Вот тут накрапал статью на эту тему: http://www.danasoft.ru/users/andll/reg_exp.zip. Если хочешь, можеш почитать. Жду комментариев.
Кстати, для отца я еще не такой старый.

[ALX_2002]

2 ANDLL: Угумс. Скачал. Прочитал. Опять ничего не понял. Буду читать подробнее

[ANDLL]

Что именно ты не понял?

[Рома]

Код: Выделить всё

Dim A,S,P
S="ABCD1"
P="^[\x8\x20-\x26\x28-\x7e\xc0-\xff]*$"
Set A=CreateObject("VBScript.RegExp")
A.Pattern=P
MsgBox iif(A.Test(P),"верно","неверно")

Признаться честно, не проверял. Но работать должно...

Ошибка вот тут, или я чего то не догоняю

A.Test(P) поменять A.Test(S)

Если оставить, как написано, будет проверять собственный паттерн =)

[ANDLL]

Есть такое. Я же говорил, что не проверял.

[ALX_2002]

А я так делаю

Код: Выделить всё

Dim Sym

InputStr=InputBox("Введите строку для проверки")
CheckStr=InputBox("Введите строку недопустимых символов")

Check InputStr,CheckStr

Sub Check(InputString,CheckString)
   For N=1 to len(InputString)
      Sym=mid(InputString,N,1)
      if Instr(1,CheckString,Sym) > 0 then
         Msgbox "Строка содержит недопустимый символ '" & Sym & "'"
         Exit Sub
      End if
   Next
   msgbox "В строке нет недопустимых символов"
End Sub