Всем привет

При создании отчета возникла необходимость получать из одной строки несколько

т.е в ячейке макета написать "ооо1?0002" , где ооо1 и ооо2 - коды элементов справочника, а ? - знак перевода строки (тоже не знаю какой установить)

И потом циклом прочитать и получить ссылку на эти элементы
Как это сделать подскажите плиз

Клиент прёт....


Продам СП!!!! Дорого!!!!!!

(1) Да я там нашел символ переноса "|" но чето не работает

(0) по-ходу у Explorer1c -а  ник украли :)

(2) Так.... Ты цену-то не набивай, тебе же хуже будет....

(3) чего это)

(3) не это у них подряд там видать...))

(5) вопрос не соответсвует репутации :)

Символы.ПС также не канают тк в шаблоне я только строку могу указать

лан:
    стр = "Иванов;Петров;Сидоров";
    стр = СтрЗаменить(стр,";",Символы.ПС);
    Для ч = 1 По СтрЧислоСтрок(стр) Цикл
        Ф = СтрПолучитьСтроку(стр,ч);    
        сообщить(ф);
    КонецЦикла;    
зы: есичё - на автроство не претендую :)

Т.е мне надо "Строка" =  "0001?0002"

(9) гениально!

(11) бугага

(12) еще одну вещь подскажи плиз. Например в Строке у меня "номенклатура", а как получить объект метаданных?

Т.е типа Метаданные.справочники

Спровочники["номенклатура"]
Вот что значит долго не работать.

(14) Работать? Это ты про эксплорера? Так ты ему льстишь....

(14) о спасибо!

(13) мдя, по-ходу я автора с кем-то спутал и (1) таки прав, срочно нужен СП :)

СпрНоменклатура = Справочники.Номенклатура;
стр = "ооо1?0002";
стр = СтрЗаменить(стр,"?",Символы.ПС);
Для ч = 1 По СтрЧислоСтрок(стр) Цикл
    СтрокаКода = СтрПолучитьСтроку(стр,ч);    
    НайденнаяСсылка = СпрНоменклатура.НайтиПоКоду(СтрокаКода);
    Если НЕ НайденнаяСсылка = СпрНоменклатура.ПустаяСсылка() Тогда
        СпрОбъект = НайденнаяСсылка.ПолучитьОбъект();
        // че-то тут с ним делаем
    КонецЕсли;     
КонецЦикла;

(17) СПС!

вот такой код получился, все супер

СписокКодовЭлементов = Новый СписокЗначений;
    
    ИсходныйТекст = СокрЛП(ТекстКодыЭлементов);
    ТекстКодыЭлементов = СтрЗаменить(ТекстКодыЭлементов,";",Символы.ПС);
    Для Сч = 1 По СтрЧислоСтрок(ТекстКодыЭлементов) Цикл
         КодЭлемента= СтрПолучитьСтроку(ТекстКодыЭлементов,Сч);
         СписокКодовЭлементов.Добавить(Справочники[ОбъектМетаданных].НайтиПоКоду(КодЭлемента));
    КонецЦикла;    

    Возврат СписокКодовЭлементов;

+ надо проверку на пустое значение добавить )

но это завтра, на сегодня план сделан

(20) забудешь до завтра :)

Но чтобы не терзаться на выходных и освободить сремя решил сделать сейчас

полный коды выглядит так

Функция ПолучитьСписокКодов(ТекстКодыЭлементов, ОбъектМетаданных)
    
    СписокКодовЭлементов = Новый СписокЗначений;
    
    ИсходныйТекст = СокрЛП(ТекстКодыЭлементов);
    ТекстКодыЭлементов = СтрЗаменить(ТекстКодыЭлементов,";",Символы.ПС);
    Для Сч = 1 По СтрЧислоСтрок(ТекстКодыЭлементов) Цикл
        КодЭлемента= СтрПолучитьСтроку(ТекстКодыЭлементов,Сч);
        ЭлементСправочника = Справочники[ОбъектМетаданных].НайтиПоКоду(КодЭлемента);
        Если Не ЭлементСправочника.Пустая() Тогда
            СписокКодовЭлементов.Добавить(ЭлементСправочника);
        иначе
            Сообщить("Не найден элемент справочника "+ОбъектМетаданных+" с кодом "+КодЭлемента);
        КонецЕсли;
    КонецЦикла;    
    
    Возврат СписокКодовЭлементов;
    
КонецФункции // ПолучитьСписокКодов()

(22) и это, СписокКодовЭлементов - это у тебя совсем не СписокКодовЭлементов, а СписокСсылокНаЭлементыСправочника :)

(20) Ну да объем работ у тебя колоссальный, не мудрено что и по выходным приходиться вкалывать.