Как преобразовать данные текстового файла с единым разделителем в ТЗ

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