

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


//******************************************************************************
// Присвоить(Что, Чему)
//
// Параметры: 
//  Что, Чему
//
// Возвращаемое значение:
//  Нет
//
// Описание:
//  ТекстОписания
//
Функция Присвоить(Чему, Что) Экспорт
	
	Чему	= Что;
	
	Возврат "";
КонецФункции // Присвоить()

