Здравствуйте, я создал справочник и в нем несколько реквизитов. Один из них ГосНомер.
ГосНомер - строка, при записи проверять что строка соответсвует формату гос номеров РФ. При этом проверка должна выполняться даже в случае записи элемента универсальными обработками...
Я установил маску: http://i031.radikal.ru/1401/7d/9840cd1b0694.png
Но он мне вводит не то что хотелось бы: http://s020.radikal.ru/i718/1401/46/297325192e15.png
Как это исправить?
И что за проверка в конце задания я не понял?

>проверять что строка соответсвует формату
это тебе регвыражения изучать надо

http://kb.mista.ru/article.php?id=698

тут интересней: http://novichok1c.ru/ispolzovanie-regulyarnyh-vyrazheniy-v-1s

(1) это про маску строки или про проверку?

(4) про проверку соответствия какой-то маске

(5) ну уже понял, немного... а почему маска то корявит?

(6) да не, как описано в документации, так и работает

(7) там написано что если "X 999 XX   rus" ввести то будет 1-буква, потом 2 цифры и потом 2 буквы, а у меня все вводит

(8) скопипасти сюда этот кусок документации

(9) так я маску установил http://i031.radikal.ru/1401/7d/9840cd1b0694.png

(9) без когда

(9) в свойствах - "Маска"

(11) без кода

(8) где написано?

(8) Звездёшь.
X (латинского алфавита) - допустимо ввести произвольный символ;

(8) Попробуй таки справку именно по 1С открыть.
"X (латинского алфавита) - допустимо ввести произвольный символ;" ©

(14) http://s019.radikal.ru/i641/1401/00/c611395ebd70.png

(17) фраза " 1-буква, потом 2 цифры и потом 2 буквы" не найдена

(16) (15) тогда невозможно просто так установить буквы, там такого нет в справке,

(18) ты имеешь в виду код, так в какой тогда процедуре его писать чтобы установить шаблон строки

(20) я имею в виду священную документацию. пора бы уже узнать, как она выглядит

(21) я ее читаю

Для того, чтобы использовать в маске один из специальных символов, нужно использовать перед ним символ "\".


не работает

все... я запутался

Как это сделать то?

(25) забей на поле ввода, есть более мудрая задача: анализ строки

(26) я вот не умею пользоваться RegExp

(27) и у меня в жизни был такой период

кстати, вдруг ком-объекта не будет? пиши тогда посимвольный перебор

(28) мне надо отдельную процедуру делать с ним? или "ПриИзменении"?

закрой глаза и представь, что формы у тебя нет. а проверять надо. как быть?

(28) не путай новичка.
Если он фикси, так и то, может "потерять" dll-ку, а уж если "на выезде", то однозначно никаких библиотек. Потеряют и все крякнется.
Либо 1С вводит нормальную работу с масками, либо - писать самому анализ строки, как надо. И в отдельную функцию все это.

(26) Есть проблема анализа строки? решили использовать регулярные выражения? теперь у вас две проблемы.

(30) сделай сам, потом будет проще.
Задача как раз для новичка.

Мне кажется я бы сделал проверку по кодам символов и ок..

(35) русская часть таблицы не в одном месте лежит. так что тупо сравнение с>="а" и с<="я" подойдёт имхо

(36) кода же в таблице не переезжают с места на место.

(37) я за удобство проверки вхождения в один диапазон

(1) не обязательно, берешь толстую форму с маской, заносишь в поле значение получаешь результат - сверяешь с исходной - одинакова? значит по маске :)

(39) ес-стно программно всё это делаешь.

т.е. в модуле написать отдельную процедуру ПроверкаСимволовГосНомер...?
но вопрос как маску задать кодом строке и как проверку символов организовать?
я код урвал, может поможет

Строка = Объект.ГосНомер;
Длина = СтрДлина(Строка);
Сч = 1;
Пока Сч<=Длина Цикл
     ТекСимвол = Сред(Строка, Сч, 1);
     Сч = Сч+1;
КонецЦикла;

может, ТекСимвол в паре с Сч тебе показывает символ, находящийся на Сч-й позиции?

(42) ну да...

(43) тогда это хорошо. всегда можно узнать, буква он или цифра, правда?

(44) ну да, а какой командой маску задать строке?

(45) предлагаю перебирать символы

(46) без маски получается

(47) если ты под маской подразумеваешь свойство поля ввода, то забудь. формы у тебя нет

Помимо regExp иногда работает проверка запросом

ВЫБРАТЬ
    &Стр
ГДЕ
    &Стр ПОДОБНО &Шаблон

В шаблон загоняешь шаблон строки в скулевом формате

(48) под маской я подразумеваю номер автомобиля

(49) а ведь отличный план

как сравнить символ с буквой, команда какая?

(51) (49) щас опять запутаете

Правад в 49 два момента
1. Насколько я помню в гос номерах возможны не все буквы россикйского или английского алфавита, т.е. [A-Z] не взлетит. Как вариант собрать ее руками и проставить через ,
По цифрам [0-9] работать будет.
Да, и я не помню - можно ли в запросе указать 3 цифры подряд иначе чем [0-9][0-9][0-9] Когда разбирался пару лет назад что-то не нашел.

2. По умолчанию не работает для случаев, когда нужно фильтровать по регистру. Работает регистронезависимо

(52) какие операции сравнения тебе известны?

(55) -

(53) с учетом момента, ято я не помню допутимый набор букв шаблон будет
Шаблон = "[A-Z] [0-9][0-9][0-9] [A-Z][A-Z]" - это без региона.
Но я бы не стал это делать. Т.к. могут быть номера выданные еще в советское время (некоторые до сих пор на них ездят) + у грузовых автомобилей/автобусов может формат отличаться + номера казахские, например. И т.п.

(55) &НаКлиенте
Процедура ПроверкаСимволовГосНомер ()
    Строка = "[A-Z] [0-9][0-9][0-9] [A-Z][A-Z]";
    Строка = Объект.ГосНомер;
    Длина = СтрДлина(Строка);
    Сч = 1;
    Пока Сч<=Длина Цикл
        ТекСимвол = Сред(Строка, Сч, 1);
        Для Сч = 1 и Сч = 5 и Сч = 6
            ;
        КонецЕсли;    
        Сч = Сч+1;
    КонецЦикла;
КонецПроцедуры



я на верном пути?

только что то он мне этот код вообще не видит

может надо при событии каком то ее делать

(55) например окончаниеВводаТекста?

(57) я думаю, реальную задачу такому не доверят

(62) что то херня какая то получилось в (58)

(62)


&НаКлиенте
Процедура ГосНомерОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
    Строка = Объект.ГосНомер;
    Строка = "[A-Z] [0-9][0-9][0-9] [A-Z][A-Z]";
    Длина = СтрДлина(Строка);
    Сч = 1;
    Пока Сч<=Длина Цикл
        ТекСимвол = Сред(Строка, Сч, 1);
        Для Сч = 5 по Сч = 6 Цикл
            ;
        КонецЦикла;    
        Сч = Сч+1;
    КонецЦикла;
КонецПроцедуры


по этому коду обработчик не видит текст

>проверка должна выполняться даже в случае записи элемента универсальными обработками
что будет с твоим окончанием ввода текста при универсальной обработке?

(65) я не пойму что такое универсальная обработка

(65) он по тексту проходит, но только по предыдущему... в смысле я первый раз ввел вася, обработчик его не увидел... второй раз ввел петя, обработчик увидел вася

(66) такая обработка, запустив которую я смогу проставить "*** вам" во всех или некоторых элементах

(68) Ммм... ну я пашел по пути который ты предложил, перебираю символы

(68) только вот (67)

&НаКлиенте
Процедура ГосНомерОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
    Строка = Объект.ГосНомер;
    Длина = СтрДлина(Строка);
    Сч = 1;
    Пока Сч<=Длина Цикл
        ТекСимвол = Сред(Строка, Сч, 1);
        ТекСимвол = "[A-Z]";
        Сч = Сч+1;
    КонецЦикла;
КонецПроцедуры

(71) первый символ должен быть буквой или цифрой?

(72) 1- буква, 3 цифры, 5 и 6 - буквы

(73) как узнать, что мы сейчас работаем с первым символом?

(74) обработчик показывает 1, а потом ТекСимвол становится 1-ым символом

как узнать, является ли какой-то символ буквой?

(76) хороший вопрос :)

так и быть. преобразованный в верхний регистр, он будет больше или равен "А" и меньше или равен "Я"

(78) ???
ты про специальные символы

(79) нет. я про сравнение строк длиной 1. в 1С нет типа char, приходится работать со строкой

(80) может его проще с числом сравнить

(80) блин, я тоже не представлю как

(81) предлагай. с каким?

(83) ну вот если написать

(83)

Процедура ГосНомерОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
    Строка = Объект.ГосНомер;
    Длина = СтрДлина(Строка);
    Сч = 1;
    Пока Сч<=Длина Цикл
        ТекСимвол = Сред(Строка, Сч, 1);
        Если Сч = 1 и ТекСимвол = "[0-9]" Тогда
            Сообщить ("аааааа");
        КонецЕсли;
        Сч = Сч+1;
    КонецЦикла;
КонецПроцедуры

"[0-9]" - это строка такая длиной 3. и вовсе не число

(86) *длиной 5, конечно

(87) понял... но тогда как

преобразованный в верхний регистр, он будет больше или равен "А" и меньше или равен "Я"

(89) я даже в нете такого примерно выржения не нашел

(90) правильно, я его только что сам сгенерировал. какое слово непонятно?

(91) ааа... это мне так сравнить надо... блин, теперь "верхний регистр не понятно"

какие функции для работы со строками есть в 1С?

(93) ВРег(<Строка>) — Все символы строки функция преобразует в верхний регистр.

теперь у тебя есть всё, чтобы узнать, не буква ли первый символ. справишься?

(95) без тебя... нет

(95) сейчас надо символ, преобразовать в верхний регистр и потом сравнить его с А и Я?

(96) Вон из профессии!

(97) догадливый.

СТО

(100) у меня проблема

&НаКлиенте
Процедура ГосНомерОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
    Строка = Объект.ГосНомер;
    Длина = СтрДлина(Строка);
    Сч = 1;
    Пока Сч<=Длина Цикл
        ТекСимвол = Сред(Строка, Сч, 1);
        Если ВРег(ТекСимвол)>="А" и ВРег(ТекСимвол)<="Я" Тогда
            Сообщить ("аааааа");
        КонецЕсли;
        Сч = Сч+1;
    КонецЦикла;
КонецПроцедуры


Он мне не видит то что ввожу сейчас, он выдит предыдущую запись, что делать?

ну перевесь это дело на кнопку

(102) не хотелось бы менять форму

(102) может вставить это в кнопку "записать и закрыть", в процедуру призаписи?

заведи себе ВнешняяОбработка1.epf и отлаживай там свой алгоритм, пока не позеленеешь

(105) мне это в справочнике надо сделаеть

(106) я понял

как сделать так, чтобы если символ не подходит, то ошибка и все стиралось или нельзя было записать?

алгоритм проверки соответствия уже есть?

(109) делаю

ждём-с

можешь даже нарисовать себе булевскую функцию ГодныйНомер(КакаяТоСтрока) и вставлять её потом в разные места по вкусу

(112) понять бы что такое булево

(113) тип, включающий в себя два логических значения

(111) ща, я алгоритм то накидал

(113) булева алгебра. Вики.

(113) "булева" функция - возвращает или Ложь, или Истина, и все.

а вообще, не часто увидишь такую няньку на мисте ))
жду продолжения!!!

(114) (116)

&НаКлиенте
Процедура ГосНомерПриИзменении(Элемент)
    Строка = Объект.ГосНомер;
    Длина = СтрДлина(Строка);
    Сч = 1;
    Пока Сч<=Длина Цикл
        ТекСимвол = Сред(Строка, Сч, 1);
        Если Сч = 1 или Сч = 5 или Сч = 6 Тогда
            Если ВРег(ТекСимвол)>="А" и ВРег(ТекСимвол)<="Я" Тогда
                Сообщить ("ДА"+Сч);
            Иначе
                //Отказ = Истина;
            КонецЕсли;
        КонецЕсли;
        Если Сч >= 2 и Сч <= 4 или Сч >= 7 и Сч <= 8 Тогда
            Если ВРег(ТекСимвол)>="0" и ВРег(ТекСимвол)<="9" Тогда
                Сообщить ("ДА"+Сч);
            Иначе
                //Отказ = Истина;
            КонецЕсли;
        КонецЕсли;
        Сч = Сч+1;
    КонецЦикла;
КонецПроцедуры

(118) (114) теперь осталось отказ прописать... во как :)

какие события бывают у объекта?

(121) приизменении, открытие....

(122) ложь

(123) ну в свойиствах, там перед... призаписи написано и это (122)

(124) в каких свойствах?

(125) в свойствах поля

(126) а при чём тут поле? я тайно ночью запущу универсальную обработку и переименую все твои номера в хрень. и даже это самое поле ни разу не увижу

(127) получается что не для того написал процедуру

(127) это надо сделать так, чтобы ни одна подписка на события не изменила форму, т.е. заблокировать все подписки?

(127) или что

ТС тебе зряплату платят или энтузиазм ?

(131) учусь - практика - диплом

(129) подписка даже не знает, что на свете бывают формы

(133) ну тогда я не понимаю о чем ты

(134)он о том, что проверять надо у объекта перед записью

(133)пы путаешь парня. Ему надо всего лишь организовать работу маски в поле формы, а ты про серьезные вещи вещаешь.

(132) диплом по какоой специальность?

(137) прикладная информатика в экономике

(135) так у меня объект.ГосНомер, не?

(136) типо поле

Функция ЭтоБуква(с)
    Возврат с>="А" И с<="Я";
КонецФункции

Функция ЭтоЦифра(с)
    Возврат с>="0" И с<="9";
КонецФункции

Функция ГодныйНомер(стр)
    Для й=1 По СтрДлина(стр) Цикл
        с=ВРег(Сред(стр, й, 1));
        Если (й=1 ИЛИ й=5 ИЛИ й=6) И НЕ ЭтоБуква(с) Тогда
            Возврат Ложь;
        ИначеЕсли ((й>=2 И й<=4) ИЛИ й=7 ИЛИ й=8) И НЕ ЭтоЦифра(с) Тогда
            Возврат Ложь;
        КонецЕсли;
    КонецЦикла;
    Возврат СтрДлина(стр)=8;
КонецФункции

(141) это ты мне написал как надо?

(141) у меня что, вообще не то?

(142) это я тряпочкой протёр (119)

(144) а переменную "стр" надо где объявлять

зачем прикладным экономистам программировать?

(146) заставляют, да и диплом не просто же так проектирование сдавать

(146) (145)

(146) ты мне скажи где переменную объявить и как к этим функциям теперь обращаться

wiki:Colobot

(150) :)

(150)

&НаКлиенте
Процедура ГосНомерПриИзменении(Элемент)
    стр = Объект.ГосНомер;
    ГодныйНомер(стр);
КонецПроцедуры

Функция ЭтоБуква(с)
    Возврат с>="А" И с<="Я";
КонецФункции

Функция ЭтоЦифра(с)
    Возврат с>="0" И с<="9";
КонецФункции

Функция ГодныйНомер(стр)
    Для й=1 По СтрДлина(стр) Цикл
        с=ВРег(Сред(стр, й, 1));
        Если (й=1 ИЛИ й=5 ИЛИ й=6) И НЕ ЭтоБуква(с) Тогда
            Возврат Ложь;
        ИначеЕсли ((й>=2 И й<=4) ИЛИ (й=7 и й=8)) И НЕ ЭтоЦифра(с) Тогда
            Возврат Ложь;
        КонецЕсли;
    КонецЦикла;
    Возврат СтрДлина(стр)=8;
КонецФункции


не работает

(152) а должно?

(153) нет... функция не правильно вызвана

теперь я не пойму, мне надо как функцию вызвать

(153) Верно?

(154) ну и пиши ежели не годныйномер тогдашеньки Объект.ГосНомер =""...

(156)

(156)
&НаКлиенте
Процедура ГосНомерПриИзменении(Элемент)
    стр = Объект.ГосНомер;
    Если НЕ ГодныйНомер(стр) Тогда
        Сообщить("Введите нормер заново");
    КонецЕсли
КонецПроцедуры

Функция ЭтоБуква(с)
    Возврат с>="А" И с<="Я";
КонецФункции

Функция ЭтоЦифра(с)
    Возврат с>="0" И с<="9";
КонецФункции

Функция ГодныйНомер(стр)
    Для й=1 По СтрДлина(стр) Цикл
        с=ВРег(Сред(стр, й, 1));
        Если (й=1 ИЛИ й=5 ИЛИ й=6) И НЕ ЭтоБуква(с) Тогда
            Возврат Ложь;
        ИначеЕсли ((й>=2 И й<=4) ИЛИ (й=7 и й=8)) И НЕ ЭтоЦифра(с) Тогда
            Возврат Ложь;
        КонецЕсли;
    КонецЦикла;
    Возврат СтрДлина(стр)=8;
КонецФункции

(156) (153)


&НаКлиенте
Процедура ГосНомерПриИзменении(Элемент)
    стр = Объект.ГосНомер;
    Если НЕ ГодныйНомер(стр) Тогда
        Объект.ГосНомер = "";
        Сообщить("Введите нормер заново");
    КонецЕсли
КонецПроцедуры

Функция ЭтоБуква(с)
    Возврат с>="А" И с<="Я";
КонецФункции

Функция ЭтоЦифра(с)
    Возврат с>="0" И с<="9";
КонецФункции

Функция ГодныйНомер(стр)
    Для й=1 По СтрДлина(стр) Цикл
        с=ВРег(Сред(стр, й, 1));
        Если (й=1 ИЛИ й=5 ИЛИ й=6) И НЕ ЭтоБуква(с) Тогда
            Возврат Ложь;
        ИначеЕсли ((й>=2 И й<=4) ИЛИ (й=7 и й=8)) И НЕ ЭтоЦифра(с) Тогда
            Возврат Ложь;
        КонецЕсли;
    КонецЦикла;
    Возврат СтрДлина(стр)=8;
КонецФункции

вот так проканало

только проблема осталась обработкой

чтобы проверка выполнялась даже в случаезаписиэлемента универсальной обработкой

семь часов на реализацию соответствия шаблону. ещё и не самым оптимальным способом. ничо так, мне нравится. какой же ж счёт можно было б клиенту выкатить? ;)

(113)Ты уверен, что твоя специальность информатика?

(163) вот на защите-то конфуз будет..

да лан, на фоне всего остального - человек еще старается что-то сделать....
65% одноэсников вообще не стараются. Ни капельки.

Я уже не говорю о шедеврах

Процедура ГосНомерОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
    Строка = Объект.ГосНомер;
    Строка = "[A-Z] [0-9][0-9][0-9] [A-Z][A-Z]";


и

"обработчик не видит текст"

(166) они имел ввиду, что код, который он прописал в процедуре, не выполняется.

... так молодец, добил задачу :D
Правда, без Вобланда все б затухло. А тут, глядишь, втянется по-тихоньку...
Просто человек вообще не воспринимает эти ваши одноэсы как среду программирования, а как - экзотику с бананами )))

(165) он хоть как-то старался, потому что мне никто не мешал ;)

вот е-мае, (39) и (40) перепрочти еще раз и гемороя столько не надо писать :) три строки кода :)))

(170) маску скажешь? в(49) надо смотреть

(168) у нас на специальности "прикладная информатика в экономике" 1с предприятиеи преподавалась на практических занятиях в одном из курсов экономики. И там давалось достаточно, чтобы иметь представление о 1с как о среде разработки. И если человек на дипломе не имеет представления о таких элементарных вещах, о каких спрашивает ТС, это значит, что образование его ну совсем коридорное. С таким дипломом дальше только на рынке фруктами торговать

только проблема осталась обработкой, чтобы проверка выполнялась даже в случае записи элемента универсальной обработкой или она с этим кодом будет выполняться?

(172) было высказано мнение, что на самом деле специальность автора вовсе не "прикладная информатика", а сам автор добросовестно заблуждается ;)

(173) ты вообще в курсе, что форма - это прокладка между БД и юзером? технически вполне осуществимо вести всяческие учёты, совсем не открывая форм

(175) ну через БД

(176) при записи проверяй, что у тебя в реквизите объекта. И если что-то не так, то шли лесом всех меняльщиков

Правда есть еще ОбменДанными.Загрузка = Истина...

(177) перед
(178) а чо? пускай будет

(179) (178) я думал мне надо не на &клиенте, а &На сервере писать это...

(178) эту коменду в конце кода вставить?

(180) чем управляемый режим отличается от обычного?

(180) я думаю, тебе надо пойти и почитать документацию. Понять, что такое объект БД и чем он приципиально отличается от формы. Выяснить, что же означают магические слова НаКлиенте и НаСервере, к чему они относятся и как используются.
В общем, шли бы вы, молодой человек, учиться. Ну или диплом пишите исключительно теоретический какой-нибудь

(182) вот я и учусь

(181) управляемым режимом управляешь ты, а обычный управляет тобой

интересно, а есть в науке понятие nullus cerebrum?

как-то нет у меня сегодня настроения нянькаться. а тасовать предлагаемые куски кода (если за автора кто-то сделает) - тот ещё трэш

(186) ты мне скажи просто как сделать, а я сам додумаюсь

(187) ни разу не замечал, что я тебе иногда повторяю что-то? иногда даже одинаковыми словами

(188) замечал... значит я тебя сейчас где то не понял

все слова названы, есть куча материала к осмыслению. не бывает программистов без способности читать, осмысливать прочитанное и мыслить вообще. да, это больно и неприятно, но без этого не получится.
да и к пятому курсу уже пора уметь учиться

(190) скажи где именно ты мне сказал про защиту от обработки?

(191) -> (31), (48) ну и далее по ветке

(192) будем думать

Ле-Цзы учился стрелять. Попав в цель, попросил указаний у Стража Границ. Страж Границ задал вопрос:
   — Знаешь ли ты, почему попал в цель?
   — Не знаю.
   — Значит, ты ещё не овладел мастерством.
   Ле-Цзы ушёл, упражнялся три года и снова явился с докладом. Страж Границ спросил:
   — Знаешь ли ты, почему попал в цель?
   — Знаю, — ответил Ле-Цзы.
   — Теперь ты овладел мастерством! Храни и не забывай! Поступай так, изучая не только стрельбу, но и себя самого, и царство. Ибо мудрый человек познаёт не существование и гибель, а их причины.

(194) во как :)

(172)С таким дипломом дальше только на рынке фруктами торговать
- несмотря на over 10 лет программирования (10 - только на 1С) некоторые, не найдя у меня диплома а-ля как у ТС, указывают сразу на дверь.

(184) управляемым режимом управляешь ты, а обычный управляет тобой
- ваши бы слова, да Нуралиеву в глаз.