Задачка. Дано: Справочник Номенклатуры, у которого в полном наименование в конце один или два слова обозначает цвет товара. Есть отдельный список значений, в котором перечислены возможные цвета.
Надо: Перебрать список Номенклатуры и удалить из Полного наименования название цвета.
..
Я могу по каждому товару разбить наименование на несколько слов и методом НайтиЗначение() поискать в списке нужный цвет. После этого можно провести дальнейшее преобразование.
...
Может  быть, есть более эффективный алгоритм, а я не знаю?
..
Это ТиС 77

просто сравнить хвост с наименованием каждыго цвета и отрезать совпадение.

(0) Найти(Наименование, ТвойЦветИзСпискаЦветов)

(2): Медвежонок "красный нос", желтый

(3) Запятая везде?

СтрЗаменить(Наименование,Цвет,"");
если наврал - посмотреть в сп =)

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

а в чем сложность? заведи справочник возможных цветов, у номенклатуры реквизит Цвет - СпрВозмЦвет и заполни его выкусыванием цвета из наименования..

(7)Сложности не вижу. Алгоритм я описал. По нему и буду делать. На всякий случай решил посоветоваться. Может быть, есть более прогрессивные или короткие пути. Менять конфигурацию я не буду.

Более эффективный прямой запрос 1С++ в 4 строчки
и временем выполнения в 100 раз выше

(9): на поиск в хвосте? хренасдва.

Сделал пока так.
Функция ВыделитьЦветИзНаименования(ПолнНаименование)
   Для П=1 По СписокЦветов.РазмерСписка() Цикл
       Поз = Найти(ПолнНаименование,СписокЦветов.ПолучитьЗначение(П));
       Если Поз > 0 Тогда
           Возврат СписокЦветов.ПолучитьЗначение(П);
       КонецЕсли;
   КонецЦикла;    
   Возврат "";
КонецФункции

неплохо-бы уточнить задачу: для 1 номенклатуры или для всех

в смысле обойти всю номенклатуру и расскавить или однократный вызов?

(12)К сожалению, для всей номенклатуры.
Идет перебор справочника и поиск соответствия. Но я планирую добавить фильтр, который будет пропускать номенклатуру с уже найденным цветом в справочнике свойств.

(14) вот как раз для этого придумали хэш-функции!
1.Считаешь хэш-код для каждого элемента в справочнике цветов
2.Заливаешь этот список в таблицу значений (3 столбца: код, наименование, хэш-код) и сортируешь по хэш-коду.
Для каждой номенклатуры:
3.1.Считаешь хэш-код для твоего цвета именно этой номенклатуры
3.2.ищешь этот цвет только в тех строк ТЗ (из 2.) у которых точнг такой-жэ хэш-код.
КонецЦикла

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

При первом запуске будет дольше работать.

Ссылка на пример с хэш-кодом есть?

Ну и в чем проблемы-то? за трое суток отработал бы самый тупой и примитивный метод...

(17)делал на 2 курсе на паскале, по памяти не восстановлю. да и нет смысла восстанавливать

(18)Да нет... Справочник не так велик. Отрабатывается за несколько минут.

(15) и нахрена тут хэширование, если есть ид и индекс?

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

(21) ид чего и индекс чего? и каким местом он помежет если суть проблемы в сопоставлении того что выкусывается из ПолногоНаименования и списка цветов...

(23) ид цвета.
вторая связанная по ключу таблица.
в терминах 1с - подчиненный справочник, например.

(24) так связь уже есть? Тогда вообще нечего искать

(25) как я понял, он ее и хочет создать.
а создав один раз..

Когда выделю цвет и запишу в свойства связь появится через подчинение номенклатуре и видам свойств. Перед поиском цвета в наименовании буду проводить поиск значений в справочнике Значения свойства. У меня конфигурация Торговля и склад в данном случае.

(27) пля, стратегическая задача...
на ближайшие пол-года?

Не понял...

(29) дольше обсуждаем уже. за прошедшие 50 минут уже можно было сделать и забыть...

(30)Не нервничай )) Сделал уже...
//*************************************
Процедура ДобавитьЗначениеСвойства(ВыбСвойство,ЗначениеСвойства,ВыбТовар)
   Спр = СоздатьОбъект("Справочник.Номенклатура");
   Если Спр.НайтиЭлемент(ВыбТовар) = 0 Тогда
       Возврат;        
   КонецЕсли;
   СпрВидовСвойств = СоздатьОбъект("Справочник.ВидыСвойств");
   Если СпрВидовСвойств.НайтиЭлемент(ВыбСвойство) = 0 Тогда
       Возврат;
   КонецЕсли;
   СпрЗначСвойств = СоздатьОбъект("Справочник.ЗначенияСвойств");
   СпрЗначСвойств.ИспользоватьВладельца(СпрВидовСвойств.ТекущийЭлемент());
   Если СпрЗначСвойств.НайтиПоНаименованию(ЗначениеСвойства,1,1) = 0 Тогда
       СпрЗначСвойств.Новый();
       СпрЗначСвойств.Наименование = ЗначениеСвойства;
       СпрЗначСвойств.Владелец = СпрВидовСвойств.ТекущийЭлемент();
       СпрЗначСвойств.Записать();
   КонецЕсли;
   СпрСвойств = СоздатьОбъект("Справочник.СвойстваНоменклатуры");
   СпрСвойств.ИспользоватьВладельца(Спр.ТекущийЭлемент());
   Если СпрСвойств.НайтиПоРеквизиту("ЗначениеСвойства",СпрЗначСвойств.ТекущийЭлемент(),0) = 0 Тогда
       СпрСвойств.Новый();
       СпрСвойств.ВидСвойства = СпрВидовСвойств.ТекущийЭлемент();
       СпрСвойств.ЗначениеСвойства = СпрЗначСвойств.ТекущийЭлемент();
       СпрСвойств.Владелец = Спр.ТекущийЭлемент();
       СпрСвойств.Записать();
   КонецЕсли;    
КонецПроцедуры

(31) а зачем
СпрЗначСвойств.Владелец = СпрВидовСвойств.ТекущийЭлемент();
СпрСвойств.Владелец = Спр.ТекущийЭлемент();
это же и так подчиненные справочники?..

Если ВвестиСтроку(СтрокаПоиска,"Введите Строку Поиска",50,0)=1 Тогда
       Запрос = СоздатьОбъект("Запрос");
       ТекстЗапроса =
       "//{{ЗАПРОС(Товары)
       |Обрабатывать НеПомеченныеНаУдаление;
       |Товар=Справочник.Товары.ТекущийЭлемент;
       |Название=Справочник.Товары.Наименование;
       |Группировка Товар Без Групп;
       |Условие(Найти(Строка(Нрег(Название)),Нрег(СтрокаПоиска))<>0);
       |"//}}ЗАПРОС
       ;
       
       Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
           Предупреждение("Ошибка запроса");
           Возврат;
       КонецЕсли;
       
       Таб=СоздатьОбъект("Таблица");
       Таб.ИсходнаяТаблица("ПохожиеТовары");
       Таб.ВывестиСекцию("Шапка");
       Итог=0;
       Пока Запрос.Группировка("Товар")=1 Цикл
           Итог=Итог+1;
           Состояние("Обработано "+Итог+" Товаров");
           Таб.ВывестиСекцию("Строка");
       КонецЦикла;
       Если Итог=0 Тогда
           Предупреждение("Ничего Не Найдено !!!");
           Возврат;
       КонецЕсли;    
       Таб.Опции(0,0,4,0);
       Таб.ТолькоПросмотр(1);
       Таб.Показать("Список_товаров","");
   КонецЕсли;

или я что то не понял?

(34) да, не понял это:

>>Надо: Перебрать список Номенклатуры и удалить из Полного наименования название цвета.