Что-то не получается придумать нормальный алгоритм для определения соответствие строки определенной маске (например, *рыо????вап*фыв?*). Между тем, должно быть, в программистской практике это известная задачка.
Может кто в курсе (и/или башковитый)?
Прошу простить, если такие темы в этом форуме не приветствуются...

А шаблон пробовал? Хотя для чего тебе, ума не приложу! ;))

Нет, шаблон() - это не то...
Пишу мини-поисковик (внутри-1с-овский). Нужна функция, которая проверяет на соответствие входящей строки определенной маске (как везде).

Если описать это - *рыо????вап*фыв?* - словами, то получится наверное так
1. Ищем первое вхождение "рыо"
2. Через 4 символа должно находится "вап"
3. В оставшейся строке должен находиться "фыв", но обязательно с любой буквой.
Алгоритм тоже не сложный.
1. Проверяем первый символ в строке на "стоп-символ".
2. В зависимости от него делаем некоторые действия (например, если "*" - берем следующий, проверяем и либо пишем в шаблон поиска, либо что-то делаем со строкой поиска). И т.д.
3. п.2 идет в цикле. На самом деле условий не много их можно систематизировать.
Готового алгоритма нет. Но мысль интересная для свободного времени.
Да, в 1С это работа с Найти(), Сред(), Лев()

Ищи в Архивах!... там длинный флейм про "парсить строки..." был!...

Насчет алгоритма. Практически придется писать что-то типа интерпритатора...
Т.е. синтаксический разбор маски (лексический анализ может тоже отдельно сделать?) и потом... Интересно, мля. Напишу на досуге, молодость вспомню. Сейчас некогда :((

Всем спасибо. To gosha - прямым поиском "парсить" не нашел, но обязательно покопаюсь. Но задача же решается настолько часто, что, чую, есть что-то готовое. Если не найду, напишу и выложу...

pat.
Если нужен универсальный поиск в 1С (через метаданные и как внешний отчет), то вышлем?
Пиши на mpa@ingr.cn.ua

... поиск с масками и т.д.

написал.Как обещал.Строго не судите.
//*******************************************
Функция Автомат(Знач Стр,Знач Шаб,Знач Лекс=999)
Пока СтрДлина(Шаб)>0 Цикл
Если Число(Лекс)=999 Тогда
Лекс1=Лев(Шаб,1);
Шаб=Прав(Шаб,СтрДлина(Шаб)-1);
Возврат Автомат(Стр,Шаб,Лекс1);
ИначеЕсли Лекс="*" Тогда
Лекс1=Лев(Шаб,1);
Шаб=Прав(Шаб,СтрДлина(Шаб)-1);
Если Лекс1="?" Тогда
Пока СтрДлина(Стр)>0 Цикл
Стр=Прав(Стр,СтрДлина(Стр)-1);
Если Автомат(Стр,Шаб)=1 Тогда
Возврат(1);
КонецЕсли;
КонецЦикла;
Возврат(0);
ИначеЕсли Лекс1="*" Тогда
Возврат Автомат(Стр,Шаб,Лекс1);
Иначе
    НомерПозиции=Найти(Стр,Лекс1);
Пока НомерПозиции<>0 Цикл
Стр=Прав(Стр,СтрДлина(Стр)-НомерПозиции);
Если Автомат(Стр,Шаб)=1 Тогда
Возврат(1);
КонецЕсли;
НомерПозиции=Найти(Стр,Лекс1);
КонецЦикла;
Возврат(0);
КонецЕсли;
ИначеЕсли Лекс="?" Тогда
Если СтрДлина(Стр)=0 Тогда
Возврат(0);
КонецЕсли;
Стр=Прав(Стр,СтрДлина(Стр)-1);
Возврат Автомат(Стр,Шаб);
Иначе
Если Лекс<>Лев(Стр,1) Тогда
Возврат (0);
Иначе
// Шаб=Прав(Шаб,СтрДлина(Шаб)-1);
Стр=Прав(Стр,СтрДлина(Стр)-1);
Возврат Автомат(Стр,Шаб);
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если Лекс="*" Тогда
Возврат(1);
ИначеЕсли Лекс=999 Тогда
Если СтрДлина(Стр)>0 Тогда
Возврат(0);
КонецЕсли;
ИначеЕсли (Лекс="?") И (СтрДлина(Стр)=1) Тогда
Возврат(1);
ИначеЕсли (Лекс=Лев(Стр,1)) И (СтрДлина(Стр)=1) Тогда
Возврат(1);
Иначе
Возврат(0);
КонецЕсли;
КонецФункции
Функция Удовлетворение(Знач ИсходнаяСтрока,Знач ШаблонСтроки)
// УдоВлетворение возвращает 1 - если ИсходнаяСтрока удовлетворяет
// ШаблонуСтроки, иначе 0
// В шаблоне- любые символы.
//"?" - один произвольный символ
//"*" - несколько произвольных символов от 0 до ...
//пустому шаблону не удовлетворяет никакая Исходная строка
//если есть желание в пустой Шаб можете добавить "*"(тогда люб.строка удовлетворит)
Стр=СокрП(ИсходнаяСтрока);
    Шаб=СокрП(ШаблонСтроки);
    Возврат Автомат(Стр,Шаб);
КонецФункции

Вдогонку. Сделал в 7.5 :[ . Надеюсь, в 7.7 пойдет :)

Занимательно...
Можно даже сказать, неплохо (судя по внешнему виду)...
Будет работать медленно (судя по тому же внешнему виду). Очень медленно. Строковые функции на внутреннем языке работают очень медленно. Поэтому практическое использование в 1С - достаточно спорно.
Но сделано красиво.
.
Непринципиальное замечание: лучше проверять не на =999, а на >=999. И вообще использовать не 9999, а более безопасное 99999 (это число превышает 0xFFFF). Но... неаккуратненько.
.
Принципиальное замечание: разбор шаблона ведется в момент сравнения. Это сильно замедляет сравнение при пакетном сравнении (например, найти элементы справочника по одной маске). Поэтому парсер маски и сравниватель хорошо бы разнести на две процедуры.
.
В результате приходим к сложности хранения сложных структур в 1С... и... к тому, что эту задачу лучше не делать на бейсикоподобных языках со сборкой мусора. На таких языках строковые функции принципиально неторопливы.
.
А в остальном, красиво.

Раз уж начал :-)
.
Передача по значению в Автомат в данном случае не оптимальна. Экспортируемая функция Удовлетворение. Там и нужен Знач. А в Автомат Знач только забивает стек (в Автомат старое Стр и Шаб не используются).
.
Согласен сейчас Автомат безопаснее в случае, если его вызовет пользователь, но на длинных строках стек может переполнится.
.
СтрДлина(Шаб), СтрДлина(Стр) используются достаточно часто. Их можно было бы вынести в локальные переменные.
.
Лекс используется как число (999) и как символ "*","?". Виноват, не разобрался сразу. Стоит ли так?
.
Надо будет вечером попробовать шаблон "**". По-моему, будут глюки.
Очень занимательная процедура!!!
Спасибо.

 зайдите на http://www.kuban.ru/cgi-bin/forum/forum9.cgi?page=1&ask=6124 там ответ.

Василий, а можно название этого топика? А то, похоже, он ушел с первой страницы.

Для (14): "Внешние компоненты для 1С на заказ".

:-)
Спасибо

to Mazzy. Со всем, в принципе, согласен. Но вот насчет передачи по значению... Из-за "*" все это(будь она неладна!)! Т.е. шаблон="1*56",
строка="1фыв56цйуцйу56". Так вот, если мы будем курочить сам шаблон, то получим то, что эта строка неудовлетворяет шаблону.

А если использовать для обработки и анализа строк внешнее приложение? Perl, например? Он именно для таких вещей и предназначен.

К 17: Татарин, дак и оставляй Знач только у шаблона. Бог с ним. Ты у себя шаблон "**" проверить можешь? Сейчас у меня руки заняты :-)
.
К 18: WildHare, Perl - можно, для доступа к DBF - ODBC, для работы с текстом - Word, для работы с формами - Explorer объекты.
Идея хорошая - на практике что-то не очень получается :-)
.
Все-таки такие задачи при всей неприменимости в реальной жизни - хороший материал для тренировки :-)

2Mazzy
Я знаю, что хороший, периодически сам занимаюсь подобными вещами. Но уж больно муторно на 1С делать анализ текста, не только для программиста муторно, но и для процессора..

Согласен.

To Mazzy. Извини за задержку - сервер. "**" нормально работает. Насчет передачи по значению Стр такой вариант: шаблон="1*56?78" , строка="1рпа5656р78" - искурочим строку и результат - неудовлетворяет(хотя оченно даже удовлетворяет).
ЗЫ Проверил-точно, нельзя по ссылке!
Да. На Си я писал интерпретатор(давным-давно). Там, конечно, такие вещи писать просто в кайф!

to pat. А ты-то что молчишь? :)

Молчал из оффлайна (инет дома юзаю). To Татарин - зд0рово! (правда на строку="qwerty asd qwerty11" и маску="*qwerty*qwerty*?" выдает 0).
  То Василий - понял: внешняя компонента - оптимальное решение. Хотя в данном случае скорость не критична - вполне подойдет "Автомат(Стр,Шаб)" (Узкое место в другом:)))

То Василий - спасибо :)(забыл сказать)

То Татарин - спасибо :)(забыл сказать)

К 24, 9: Алгоритм не совсем корректно отрабатывает ? после *. Т.е. шаблон "*?" работает не совсем хорошо. Шаблон "*?текст" - нормально.
.
К 22: Да "**" работает, спасибо. Неточность чуть выше. Там где ? обрабатывается после *. Опшипся я.
.
Татарин, красиво. Но... Рекурсивные алгоритмы хорошо работают в тех случаях когда состояние на итерации хорошо и однозначно выводится из состояния на предыдущей итерации И не зависит от следующего состояние. Шаблон - не из этого случая.
.
Значение символа в шаблоне сильно зависит от контекста. Значение символа зависит не только от предыдущих символов, но и от символов, расположенных после текущего. Поэтому рекурсивный алгоритм в данном случае не совсем хорош.
.
И-эх, зацепил, Татарин... Зацепил...
Хочу написать статейку по этому поводу. Цель - не столько расписать алгоритм поиска, сколько поррасуждать на тему (старею что ли?) как писать алгоритмы, делать их расширяемыми и о особенностях 1Сика... Можно я использую текст твоего алгоритма и укажу твое ник/имя/адрес? Можешь мне написать?
.
В статейке хочу привести свой прототип алгоритма поиска.
Функция Поиск_РазборШаблона(Шаблон="") // возвращает план выплонения
Функция Поиск_ОптимизацияПланаВыполнения(План)
Функция Поиск_ПоГотовомуПлану(Стр,План)
Функция Поиск(Стр,Шаблон)
.
Если успею за выходные, попробую расписать как тоже самое делается на других языках (не 1Сик).
.
Ну как, Татарин, напишешь?

В смысле, дашь разрешение на использование?

to pat(24). Да. Неправильно работало. Если хочешь, могу мылом .ert сбросить.
Надо исправить в Автомат()в конце, после всех циклов :
Если Лекс="*" Тогда
Возврат(1);
ИначеЕсли Лекс=999 Тогда
Если СтрДлина(Стр)>0 Тогда
Возврат(0);
//..
// вот эти две строчки
Иначе
Возврат(1);
//..
КонецЕсли;
to All. Я не ставил целью оптимальность работы данной функции ни по скорости ни по памяти. Просто сделал чтоб работало. Спасибо за участие!

Спасибо. Если можно пришли свой ert.
.
Согласен, На 1С такая вещь будет работать медленно, как ее ни реализуй. Говорю же, это скорее методическая задача для обучения и тренировки. В реальной жизни, на тех средствах, что имеем, ее вряд ли можно использовать.
.
Может я ошибаюсь, но мне показалось, что ты несколько обиделся. Извини, если так. Твой алгоритм действительно красив. Некоторые неточности можно исправить. Главное, его можно использовать, если есть необходимость. pat спросил - ты ответил.
.
Твой алгоритм хочется использовать в пункте "как разбираться в чужой программе". Поставленная задача четкая обозримая и интуитивно понятная, алгоритм небольшой, но достаточно сложный - отличный методический пример.
.
Еще раз спасибо за адрес.

То Татарин 29. Вышли пожалуйста - шестьдесят строк логических выражений трудны для восприятия :).

Что-то и мне захотелось такую написать. Получилось не так красиво, но работает в двое быстрей (ни в коем случае не вые...сь)... Все равно около 30 сек на 10000 операций Автомат("рqwerty asd qwerty15","*qwerty*??qw??ty**??")
Функция Автомат(Знач ИсходнаяСтрока,Знач ШаблонСтроки)
Ш=""""+ШаблонСтроки+"""";
ш=стрЗаменить(ш,"*",""",""");
ш=стрЗаменить(ш,"?",""",""?"",""");
спСлов=СоздатьОбъект("СписокЗначений");
спСлов.ИзСтрокиСРазделителями(ш);
Для Сч=1 По спСлов.РазмерСписка() Цикл
Слово=спСлов.ПолучитьЗначение(Сч);
Если ПустаяСтрока(Слово)=1 Тогда
Продолжить;
КонецЕсли;
ДлинаСтроки=СтрДлина(ИсходнаяСтрока);
ДлинаСлова=СтрДлина(Слово);
Если (ДлинаСтроки>0) Тогда
Если Слово="?" Тогда
ИсходнаяСтрока=Сред(ИсходнаяСтрока,2);
Иначе
Поз=Найти(ИсходнаяСтрока,Слово);
Если Поз>0 Тогда
ИсходнаяСтрока=Сред(ИсходнаяСтрока,Поз+ДлинаСлова);
Иначе
Возврат 0;
КонецЕсли;
КонецЕсли;
Иначе
Возврат 0;
КонецЕсли;
КонецЦикла;
Возврат 1;
КонецФункции

to pat. Проверил. Все хорошо, но любая строка "556"+произвольнаяСтрока удовлетворяет шаблону="5*5"
 :( . Что-то с обработкой в конце.
Но путь, конечно более верный. Отлично! Тут мне свою функцию куда подальше...
Посмотрю, может доделаю :)

Я тоже подумал об этом, но это разное понимание "соответствия". Например, Нортон при поиске файла "command" или *command*.* найдет command.com. Если "command" не должен соответствовать "command.com", то в конце функции необходимо добавить что-то вроде (вместо Возврат 1):
Если СтрДлина(ИсходнаяСтрока)>0 Тогда
Возврат 0
Иначе
Возврат 1
КонецЕсли;
//не проверено - не отвечаю

to pat. Ты уж извини, продолжу :)
строка="1234567890" удовлетворяет шаблону="5" :(
Доделаем. Все равно путь верный.
; )

Не хочу показаться нудным, но строка="1234567890" действительно удовлетворяет шаблону="5". Пример: в окнах грим пуск=>найти, пишем "omman" - и в результатах находим и command.com и проч.
Однако, если строка="1234567890" не должна удовлетворять шаблону="5" (а только "*5*"), то надо добавить стоп-символ справа и слева и к строке и к шаблону.
Готовая для жизни функция:
Функция Автомат(Знач ИсходнаяСтрока,Знач ШаблонСтроки, Знач Парам=0)
Симв127=Симв(127);
//Защита ковычек, запятых, и доллара
ИсходнаяСтрока=стрЗаменить(ИсходнаяСтрока,"""",Симв127);
ИсходнаяСтрока=стрЗаменить(ИсходнаяСтрока,",",Симв127);
ИсходнаяСтрока=стрЗаменить(ИсходнаяСтрока,"$",Симв127);
ШаблонСтроки=стрЗаменить(ШаблонСтроки,"""",Симв127);
ШаблонСтроки=стрЗаменить(ШаблонСтроки,",",Симв127);
ШаблонСтроки=стрЗаменить(ШаблонСтроки,"$",Симв127);
Если Парам=1 Тогда //добавляем стоп-символы
ШаблонСтроки="$"+ШаблонСтроки+"$";
ИсходнаяСтрока="$"+ИсходнаяСтрока+"$";
КонецЕсли;
Ш=""""+ШаблонСтроки+"""";
ш=стрЗаменить(ш,"*",""",""");
ш=стрЗаменить(ш,"?",""",""?"",""");
спСлов=СоздатьОбъект("СписокЗначений");
спСлов.ИзСтрокиСРазделителями(ш);
Для Сч=1 По спСлов.РазмерСписка() Цикл
Слово=спСлов.ПолучитьЗначение(Сч);
Если ПустаяСтрока(Слово)=1 Тогда
Продолжить;
КонецЕсли;
ДлинаСтроки=СтрДлина(ИсходнаяСтрока);
ДлинаСлова=СтрДлина(Слово);
Если (ДлинаСтроки>0) Тогда
Если Слово="?" Тогда
ИсходнаяСтрока=Сред(ИсходнаяСтрока,2);
Иначе
Поз=Найти(ИсходнаяСтрока,Слово);
Если Поз>0 Тогда
ИсходнаяСтрока=Сред(ИсходнаяСтрока,Поз+ДлинаСлова);
Иначе
Возврат 0;
КонецЕсли;
КонецЕсли;
Иначе
Возврат 0;
КонецЕсли;
КонецЦикла;
Возврат 1
КонецФункции

Ребята была тут идея использовать внешние компоненты, так зачем городить огород МелкоСофт уже все до нас придумала. Привожу один пример(правда на Дельфи, но если 1Сик мозги не отбил, то желающие на него переведут). Итак, соответствие выражения шаблону.
...
var
 RegExp : variant;
begin
 RegExp:=CreateOLEObject('VBScript.RegExp');
 RegExp.pattern:='\w+\@[.\w]+';
 if RegExp.Test(Edit1.Text) Then
  ShowMessage('Mail adress Ok');
 Else
  ShowMessage('Mail adress BAD');
 end;
...
1C поддерживает OLE, требуется только установленный IE 5.0 (и вообще там еще много чего напихано подобного, надо только посмотреть)

To 37. Very thanks. Да где ж ты был... те же 10000 операций выполняются таким образом за 2 с. Сообщи, plz, где прочитать про синтаксис "pattern"'a.

Для 37 VBScript
 - обяъсните "чайнику" как то, что написано к 1с "прикрутить"?

Рад что помогло. Вообще в последнее время, если чего не могу сделать на 1С так и не ломаю голову. Немного поковырялся в сети и вот тебе ActiveX-компонента - делай что надо. А если не получилось найти так можно и на C++ Builder или Delphi наваять по-быстрому. А почитать про все это хозяйство можно конечно же у все того же МелкоСофта, начни с http://msdn.microsoft.com/scripting/default.htm, выбери VBScript,затем Regular Expressions Guide, и далее Regular Expressions Syntax.
Будет желание пообщаться,пиши.

Ну нельзя же быть такими ленивыми, а впрочем пока самого не клюнет...
Перевод с нормального на 1Сик
...
RegExp=СоздатьОбъект("VBScript.RegExp");
RegExp.pattern="\w+\@[.\w]+";
Если RegExp.Test(Adress)=(-1) тогда
    Предупреждение("Похоже на e-mail адрес");
Иначе
    Предупреждение("Не, это что-то не то");
КонецЕсли;
...
предназначено сие для проверки соответствия введенного значения (Adress) шаблону адреса электронной почты (наличие @, буквы, и т.п.).
Кстати можно IE 5.0 и не ставить, а просто обновить с сайта Microsoft скриптовый язык VBScript до версии 5.0

VBScript, спасибо большое. Читаю...

Мда. Действительно занятная весчь. Спасибо, VbSript. Надо будет протестировать.
.
Я тоже написал обработку и выложил первые результаты. Если есть желание, то можно посмотреть на http://www.user.cityline.ru/~fbmazs/exercise/1Cgrep.htm.<br>Замечания и исправления приветствуются.
.
В следующие выходные попробую протестировать и сравнить со скриптовым поиском.

для Mazzy: Серега, ты молодец, нам бы такой подход (это я ссылочку твою глянул), как допишешь свисти, покалякаем.

to Mazzy. Вот так ссылочка! Академический подход - класс.