1C работа с текстом.

Новая тема

Grema

читатель

Регистрация: 25.10.2010

Сообщений: 65

05.04.2012

21:38

Всем доброго времени суток.Просьба подскажите такую вштку.
Имеется номенклатура:

Диваны.диван угловой,Arena,sx-45.ЛЛ-04
Диваны.диван угловой,Demsi,sx-45.Рн-22g9
Мне необходимо все выбрать после второя запятой т.е в первом случае sx-45.ЛЛ-04, во втором sx-45.Рн-22g9. Как выбрать текст после второй запятой ?

Prikum

активный пользователь

Регистрация: 18.02.2002

Сообщений: 21077

05.04.2012

21:44

Для какой платформы?

Grema

читатель

Регистрация: 25.10.2010

Сообщений: 65

05.04.2012

21:45

Платформа
8.2.11.236
Толстый клиент. Файловая.

Prikum

активный пользователь

Регистрация: 18.02.2002

Сообщений: 21077

05.04.2012

21:58

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