Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
29 мар 2024, 17:09

Регулярные выражения

Автор Crusader, 10 дек 2012, 10:40

0 Пользователей и 1 гость просматривают эту тему.

Dethmontt

Я написал тебе пример реализации...
еще раз:
Execute() выполняет поиск вхождений
Если В начале строки найдено вхождение СтрВыражения, то это ошибка!
Если В конце строки не найдено вхождение СтрВыражения, то это ошибка!

Если оба условия выполнены строка считается корректной...

Я не учел пробелы:
Пример некорректной строки без учета пробелов
"ооораторы ОАО" - некорректная строка! потому что начинается с ООО вхождение СтрВыражения будет найдено
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Crusader

Тестировал обширно твоё решение, долго не мог понять почему работает через раз, но сейчас разобрался. Согласно твоему решению неправильно заполненным признаётся например: "орога ооо", потому что первая буква в слове "о", точно также любая другая буква из нашего набора слов если стоит первой в слове, то сразу заполнение признаётся неправильным.. Вот поэтому я и спрашивал про ^[^"+СтрВыражение+"], точно ли так можно передавать строку в выражение и главное корректно ли это работает? Впринципе мне готовое решение не нужно, мне нужна только строка с правильно составленным регулярным выражением (в части отрицания списка слов). Всё-таки может быть можно написать выражение ^[^"+СтрВыражение+"] как-то по-другому, может быть попроще, но чтоб работало наверняка?

Dethmontt

Спасибо за найденную ошибку.
Немного модифицировал... Проверяйте

Процедура КнопкаВыполнитьНажатие(Кнопка)

    СтрокаВыражения = "ЗАО,ООО,ИП,ОАО";
Наименование = "огага и копыта ООО";
    Масс = РазбитиеСтрокТелефон(Наименование,СтрокаВыражения);
Если Масс Тогда
Сообщить("Корректно");
Иначе Сообщить("Не корректно");
КонецЕсли;
   
КонецПроцедуры

Функция РазбитиеСтрокТелефон(Знач стр,Знач СтрВыражение)

СостряпатьСтрокуВыражение(СтрВыражение);

    RegExp = Новый COMОбъект("VBScript.RegExp");
    RegExp.IgnoreCase = Истина; //Игнорировать регистр
    RegExp.Global = Истина; //Поиск всех вхождений шаблона
    RegExp.MultiLine = Ложь; //Многострочный режим

СтрВыражение = "(?!^("+СтрВыражение+")\s)(\s("+СтрВыражение+")$)";

    RegExp.Pattern = СтрВыражение;
Matches=RegExp.Execute(стр);
F = RegExp.Test(стр);
Возврат F;
   
КонецФункции

Процедура СостряпатьСтрокуВыражение(Строка)

    Строка = СтрЗаменить(Строка,",","|");

КонецПроцедуры




Добавлено: 11 дек 2012, 18:06


блин
Это лишнее
Matches=RegExp.Execute(стр);
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Crusader

Работает, но опять не до конца корректно :( На "ооо рога ооо" выдаёт Истину.
Добавлено: 13 дек 2012, 09:23


Реализовал по другому, через запрос. Спасибо Dethmontt, что уделили внимание.

Dethmontt

Ну хоть так....
Может пригодиться - http://infostart.ru/public/75941/

Тестирование регулярных выражений

  • Управляемая форма.png

Простая обработка для тестирования регулярных выражений.

Простая обработка для тестирования регулярных выражений. Пример того, как можно использовать регулярные выражения в 1с, и одновременно помощь в их отладке.

Управляемая форма с выводом дерева найденных фрагментов и выбором, где выполняться, на клиенте или на сервере. Полезно, например, при использовании веб-клиента (тогда выполнять нужно на сервере) или при линукс-сервере и виндовс-клиенте (тогда выполнять надо на клиенте).

Обычная форма с выводом результата в окно сообщений.

Обработка содержит программный интерфейс для добавления в справочник внешних обработок БСП.

БезопасныйРежим = Ложь из-за того, что используется COM объект.

UPD 2016-03-21:

Добавлен выворд результатов поиска в поле html документа с выделением найденных фрагментов и выводом деталей во всплывающей подсказке (см скриншот)

Обеспечена работа в веб-клиенте

Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Теги:

Похожие темы (4)

Рейтинг@Mail.ru

Поиск