Имя: Пароль:
1C
1С v8
проверка набора символов
0 ArtYst
 
26.07.12
02:38
Помогите нужно организовать проверку поля реквизит, и чтобы он содержал только английские буквы и арабские цифры, при всех остальных знаках выдавал ошибку.

Пробовала вот так, ну что то она не совсем корреткно работает, больше не хватает сил помогите исправить или как-нибудь по другому сделать.


сч=1;

                              пока сч<=СтрДлина(Реквизит1) ЦИКЛ

                                              если (КодСимвола(Сред(Реквизит1,Сч,1))<=КодСимвола("A") или  КодСимвола(Сред(Реквизит1,Сч,1))>=КодСимвола("Z"))

                                                              и  (КодСимвола(Сред(Реквизит1,Сч,1))>=КодСимвола("0") или  КодСимвола(Сред(Реквизит1,Сч,1))<=КодСимвола("9"))

                                                              тогда

                                                              Сообщить("Ошибка ввода данных(не правельно введен символ)");

                                                             

                                              конецЕсли;

                                              сч=сч+1;

                              конеццикла;
1 Aleksey
 
26.07.12
02:44
А код символа зачем?
2 Balabass
 
26.07.12
05:17
У а и А разные коды.
3 Wobland
 
26.07.12
06:09
>не правельно введен
это ты молодец
4 Wobland
 
26.07.12
06:09
>Пол:    Мужской
а вот тут нет
5 Wobland
 
26.07.12
06:16
ладно уж, пускай без фото взлетает ;)

   стр="Помогите нужно";
   Шаблон="QWERTYUIOPASDFGHJKLZXCVBNMmnbvcxzlkjhgfdsapoiuytrewq0123456789";
   Для й=1 По СтрДлина(стр) Цикл
       Если НЕ Найти(Шаблон, Сред(стр, й, 1)) Тогда
           Предупреждение("нет");
           Прервать;
       КонецЕсли;
   КонецЦикла;
6 Wobland
 
26.07.12
06:17
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс