Поиск номенклатуры по частям слов

4 Comments

1. cool.vlad4 30.01.2014 at 01:27

   3. Регистр сведений «_БазаСлов» хранит «огрызки» слов, составляющих наименования элементов справочника
   
   4. Обработка «_ПереиндексацияБазыСлов» служит для первоначального заполнения регистра сведений «_БазаСлов», а
   
   так же для его очистки в случае необходимости.

   А зачем? когда данная задача решается просто разбиением строки и формированием запроса через ПОДОБНО? и по скорости уж точно не медленнее, чем
   

   Поиск происходит очень быстро, при номенклатуре в 40 000 позиций, время работы около 1,5 — 2 сек.

   Reply ↓
2. Re:аниматор 30.01.2014 at 09:26

   Подскажу вам хитрость как это легко доработать в процедуре поиске стандартных конфигураций.

   На примере обработки «Подбор номенклатуры» УТ 10.3

   Процедура ВыполнитьПоиск()
   …
   
   // заменим спецсимволы
   ШаблонПоиска = СтрЗаменить(ШаблонПоиска, «~», «~~»);
   ШаблонПоиска = СтрЗаменить(ШаблонПоиска, «%», «~%»);
   ШаблонПоиска = СтрЗаменить(ШаблонПоиска, «_», «~_»);
   ШаблонПоиска = СтрЗаменить(ШаблонПоиска, «[«, «~[«);
   ШаблонПоиска = СтрЗаменить(ШаблонПоиска, «-«, «~-«);
   ШаблонПоиска = «%» + ШаблонПоиска + «%»;
   
   Запрос = Новый Запрос;
   Запрос.УстановитьПараметр(«ШаблонПоиска», ШаблонПоиска);
   
   …
   
   

   Показать

   Заменяем на

   // заменим спецсимволы
   ШаблонПоиска = СтрЗаменить(ШаблонПоиска, «~», «~~»);
   ШаблонПоиска = СтрЗаменить(ШаблонПоиска, «%», «~%»);
   ШаблонПоиска = СтрЗаменить(ШаблонПоиска, «_», «~_»);
   ШаблонПоиска = СтрЗаменить(ШаблонПоиска, «[«, «~[«);
   ШаблонПоиска = СтрЗаменить(ШаблонПоиска, «-«, «~-«);
   
   ШаблонПоиска = СокрЛП(ШаблонПоиска);
   
   ТекстИ = »
   | И «;
   ТекстУсловияОтбораПоШаблону = «»;
   СписокПодШаблонов = Новый СписокЗначений;
   ЕстьПробелы = Найти(ШаблонПоиска, » «) > 0;
   н = 0;
   Пока ЕстьПробелы Цикл
   ПозицияПробела = Найти(ШаблонПоиска, » «);
   ПодШаблон = Лев(ШаблонПоиска, ПозицияПробела — 1);
   ПодШаблон = «%» + ПодШаблон + «%»;
   СписокПодШаблонов.Добавить(ПодШаблон);
   ШаблонПоиска = СокрЛП(Прав(ШаблонПоиска, СтрДлина(ШаблонПоиска) — ПозицияПробела));
   ЕстьПробелы = Найти(ШаблонПоиска, » «) > 0;
   ТекстУсловияОтбораПоШаблону = ТекстУсловияОтбораПоШаблону +
   ?(ТекстУсловияОтбораПоШаблону = «», «», ТекстИ) + » Номенклатура.» + ЭлементыФормы.СписокВидовПоиска.Значение + » ПОДОБНО &ШаблонПоиска» + н + » СПЕЦСИМВОЛ «»~»»»;
   н = н + 1;
   КонецЦикла;
   
   ШаблонПоиска = «%» + ШаблонПоиска + «%»;
   
   СписокПодШаблонов.Добавить(ШаблонПоиска);
   ТекстУсловияОтбораПоШаблону = ТекстУсловияОтбораПоШаблону +
   ?(ТекстУсловияОтбораПоШаблону = «», «», ТекстИ) + » Номенклатура.» + ЭлементыФормы.СписокВидовПоиска.Значение + » ПОДОБНО &ШаблонПоиска» + н + » СПЕЦСИМВОЛ «»~»»»;
   
   Запрос = Новый Запрос;
   Запрос.УстановитьПараметр(«ШаблонПоиска», ШаблонПоиска);
   
   

   Показать

   P.S. не нужно хранить «огрызки» слов. Время работы около 0,5 — 1 сек.

   Reply ↓
3. orfos 17.07.2015 at 12:56

   Спасибо. Очень помогло.

   Reply ↓
4. kida1 25.09.2019 at 15:02

   (2) идея хорошая, вероятно вы выложили не весь текст который нужно заменить, и не совсем универсальный механизм.
   
   Предлагаю в обработке Подбор номенклатуры в процедуре ВыполнитьПоиск() следующее:
   

   
   // заменим спецсимволы
   ШаблонПоиска = СтрЗаменить(ШаблонПоиска, «~», «~~»);
   ШаблонПоиска = СтрЗаменить(ШаблонПоиска, «%», «~%»);
   ШаблонПоиска = СтрЗаменить(ШаблонПоиска, «_», «~_»);
   ШаблонПоиска = СтрЗаменить(ШаблонПоиска, «[«, «~[«);
   ШаблонПоиска = СтрЗаменить(ШаблонПоиска, «-«, «~-«);
   
   Запрос = Новый Запрос;
   
   ШаблонПоиска = СокрЛП(ШаблонПоиска);
   
   ТекстИ = »
   |    И «;
   ТекстУсловияОтбораПоШаблону = «»;
   СписокПодШаблонов = Новый СписокЗначений;
   
   н=0;
   Для каждого ПодШаблон из ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(ШаблонПоиска,» «) цикл
   ПараметрПоиска =  «%» + ПодШаблон + «%»;
   Запрос.УстановитьПараметр(«ШаблонПоиска»+н, ПараметрПоиска);
   
   ТекстУсловияОтбораПоШаблону = ТекстУсловияОтбораПоШаблону +
   ?(ТекстУсловияОтбораПоШаблону = «», «», ТекстИ) + »    Номенклатура.» + ЭлементыФормы.СписокВидовПоиска.Значение + » ПОДОБНО &ШаблонПоиска» + н + » СПЕЦСИМВОЛ «»~»»»;
   н=н+1;
   КонецЦикла;
   //см-
   
   Если ЕстьНоменклатурнаяГруппа Тогда
   Запрос.УстановитьПараметр(«НоменклатурнаяГруппа», НоменклатурнаяГруппа);
   КонецЕсли;
   
   // Инициализируем структуру выбранной строки (реквизиты обработки).
   Если ПодборПоСправочнику Тогда
   
   Запрос.Текст = »
   |ВЫБРАТЬ ПЕРВЫЕ 51
   | Номенклатура.Код КАК Код,
   | Номенклатура.Артикул КАК Артикул,
   | Номенклатура.Ссылка КАК Номенклатура,
   | Номенклатура.НаименованиеПолное КАК НаименованиеПолное,
   | Номенклатура.Родитель КАК Родитель
   |ИЗ
   | Справочник.Номенклатура КАК Номенклатура
   |
   |ГДЕ
   |   «+ТекстУсловияОтбораПоШаблону+»
   //| Номенклатура.» + ЭлементыФормы.СписокВидовПоиска.Значение + » ПОДОБНО &ШаблонПоиска СПЕЦСИМВОЛ «»~»»
   | И Номенклатура.ЭтоГруппа = Ложь
   | » + ?(ЕстьНоменклатурнаяГруппа, «И Номенклатура.НоменклатурнаяГруппа В (&НоменклатурнаяГруппа)», «») + »
   |»;
   
   Иначе
   

   Показать

   Reply ↓