Добрый день! Подскажите пожалуйста как из строки "папка1~папка2~папка3" получить отдельные значения перем1="папка1" перем2="папка2" перем3="папка3"ю спасибо заранее!

СЗ = глРазложить(МояСтрочка, "~");

(0)

сп = глРазложить("папка1~папка2~папка3" ,"~");

Сообщить(сп.ПолучитьЗначение(1));
Сообщить(сп.ПолучитьЗначение(2));
Сообщить(сп.ПолучитьЗначение(3));

(1) (2)
у меня нет этой процедуры конф ПУБ

НН="папка1~папка2~папка3"
Папка1=Лев(НН,Найти(НН,"~"));

и т.д

(3) не верю

(3)напиши

(3) беда..

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

Стр=СтрЗаменить("папка1~папка2~папка3","~",",");
Сп=СоздатьОбъект("СписокЗначений");
Стр=Сп.ИзСтрокиСРазделителями(Стр):

Сообщить(сп.ПолучитьЗначение(1));
Сообщить(сп.ПолучитьЗначение(2));
Сообщить(сп.ПолучитьЗначение(3));

Стр=Сп.ИзСтрокиСРазделителями(Стр):
читать как
Сп.ИзСтрокиСРазделителями(Стр):

(6) говорю нет её

(12) а если найду ?

(13) у меня в глобальнике?

(4)(9)(10) спасибо большое за помощь

(14) открыл 338 ПУБ -- в глобальном модуле есть функция глРазложить

пуб версия 7.70.047 в глобальном модуле этой процедуры нет ;)

так ты бы уточнил, что это укр

видимо укр немного обделили! а я не знал

(19) качать укр я не буду, но всё равно думаю, что это функция или аналогичная ей там пристуствует

*присутствует

Функция глРазложить(Знач Стр, Разделитель = ",") Экспорт
   
   Список = СоздатьОбъект("СписокЗначений");
   Длина  = СтрДлина(Разделитель);
   
   Стр = СокрЛП(Стр);
   Поз = Найти(Стр, Разделитель);
   
   Пока 0 < Поз Цикл
       Список.ДобавитьЗначение(СокрП(Лев(Стр, Поз-1)));
       
       Стр = СокрЛ(Сред(Стр, Поз+Длина));
       Поз = Найти(Стр, Разделитель);
   КонецЦикла;

   Список.ДобавитьЗначение(Стр);
   
   Возврат Список;
   
КонецФункции // глРазложить()

возможно но её название не глРазложить

(22) спасибо ;)

СтрЗаменить("папка1~папка2~папка3" ,"~", "" "");

(25) это не то что нужно.

спасибо всем за помощь. проблема решена. Всего доброго ;)

это именно то, что нужно

(25) он не поймет, как потом ЭТО использовать..

(28) ну здесь и так способов уже достаточно ;)
(25) как в дальнейшем использовать, да я не знаю, но готов увидеть. спасибо!

Такое еще забыли:

ТекСтрока = СтрЗаменить("папка1~папка2~папка3", "~", РазделительСтрок);
Для ТекПозиция = 1 По СтрКоличествоСтрок(ТекСтрока) Цикл
   Сообщить(СтрПолучитьСтроку(ТекСтрока, ТекПозиция));
КонецЦикла;

(30) см (25) )

(30) это и есть в (25)

(23) глРозкласти() чтоле? :-)

в ПУБ есть глРазложить

да у него украинская )

(31)(32) Я в курсе, но так нагляднее.

(33) щірий українець? глРозкласти все одно не має ;)

(33) В Украинских конфах название процедур/функций также идут на русском языке

народ - смайлы я просто так ставлю?

(38) в (33) как бы пошутили...

(0)
Смотри внимательно!
ПУБ 7.70.045 (глобальный модуль)
Процедура глПарсить(Стр,Спис,Разделитель = ";") Экспорт
   Спис.УдалитьВсе();
   СтрПарс = Стр;
   Инд = Найти(СтрПарс,Разделитель);
   Пока Инд<>0 Цикл
       ТекСтр = Сред(СтрПарс,1,Инд-1);
       СтрПарс = Сред(СтрПарс,Инд+1,СтрДлина(СтрПарс)-Инд);
       
       ИндРавно = Найти(ТекСтр,"=");
       Если ИндРавно = 0 Тогда
           Продолжить;
       КонецЕсли;
       Пар = Сокрлп(Сред(ТекСтр,1,ИндРавно-1));
       Зна = Сокрлп(Сред(ТекСтр,ИндРавно+1,СтрДлина(ТекСтр)-ИндРавно));
       
       Спис.ДобавитьЗначение(Зна,Пар);
       Инд = Найти(СтрПарс,Разделитель);
   КонецЦикла;
КонецПроцедуры //глПарсить

Миста вам не швидка допомога тут.

(41) бу га га