0
ArtYst
26.07.12
✎
02:38
|
Помогите нужно организовать проверку поля реквизит, и чтобы он содержал только английские буквы и арабские цифры, при всех остальных знаках выдавал ошибку.
Пробовала вот так, ну что то она не совсем корреткно работает, больше не хватает сил помогите исправить или как-нибудь по другому сделать.
сч=1;
пока сч<=СтрДлина(Реквизит1) ЦИКЛ
если (КодСимвола(Сред(Реквизит1,Сч,1))<=КодСимвола("A") или КодСимвола(Сред(Реквизит1,Сч,1))>=КодСимвола("Z"))
и (КодСимвола(Сред(Реквизит1,Сч,1))>=КодСимвола("0") или КодСимвола(Сред(Реквизит1,Сч,1))<=КодСимвола("9"))
тогда
Сообщить("Ошибка ввода данных(не правельно введен символ)");
конецЕсли;
сч=сч+1;
конеццикла;
|
|
5
Wobland
26.07.12
✎
06:16
|
ладно уж, пускай без фото взлетает ;)
стр="Помогите нужно";
Шаблон="QWERTYUIOPASDFGHJKLZXCVBNMmnbvcxzlkjhgfdsapoiuytrewq0123456789";
Для й=1 По СтрДлина(стр) Цикл
Если НЕ Найти(Шаблон, Сред(стр, й, 1)) Тогда
Предупреждение("нет");
Прервать;
КонецЕсли;
КонецЦикла;
|
|