Функция РазложитьСтрокуВМассивПодстрок(Знач Строка, Знач Разделитель = ",",

    Знач ПропускатьПустыеСтроки = Неопределено)

 

    Результат = Новый Массив;

 

    // для обеспечения обратной совместимости

    Если ПропускатьПустыеСтроки = Неопределено Тогда

        ПропускатьПустыеСтроки = ?(Разделитель = " ", Истина, Ложь);

        Если ПустаяСтрока(Строка) Тогда 

            Если Разделитель = " " Тогда

                Результат.Добавить("");

            КонецЕсли;

            Возврат Результат;

        КонецЕсли;

    КонецЕсли;

    //

 

    Позиция = Найти(Строка, Разделитель);

    Пока Позиция > 0 Цикл

        Подстрока = Лев(Строка, Позиция - 1);

        Если Не ПропускатьПустыеСтроки Или Не ПустаяСтрока(Подстрока) Тогда

            Результат.Добавить(Подстрока);

        КонецЕсли;

        Строка = Сред(Строка, Позиция + СтрДлина(Разделитель));

        Позиция = Найти(Строка, Разделитель);

    КонецЦикла;

 

    Если Не ПропускатьПустыеСтроки Или Не ПустаяСтрока(Строка) Тогда

        Результат.Добавить(Строка);

    КонецЕсли;

 

    Возврат Результат;

 

КонецФункции