Заполнить таблицу значений на основе строки

SeiOkami 425 5 8 9

1С

Позволяет в коде не используя макеты заполнить ТЗ на основе текстовой таблицы с отступами

// Заполнить таблицу значений на основе текста
// 
// Параметры:
//  Таблица - ТаблицаЗначений
//  Текст   - Строка
Процедура ЗаполнитьТаблицуЗначенийНаОсновеТекста(Таблица, Текст)
	
	ЧислоСтрок   = СтрЧислоСтрок(Текст);
	ИменаКолонок = Новый Массив;
	Разделитель  = "|";
	
	Для НомерСтроки = 1 По ЧислоСтрок Цикл
		
		СтрокаТекста = СтрПолучитьСтроку(Текст, НомерСтроки);
		Если ПустаяСтрока(СтрокаТекста) Тогда
			Продолжить;
		КонецЕсли;
		
		ЧастиСтроки = СтрРазделить(СтрокаТекста, Разделитель, Истина);
		
		Если ЗначениеЗаполнено(ИменаКолонок) Тогда
			
			СтрокаТаблицы = Таблица.Добавить();
			Для ИндексЧасти = 0 По ЧастиСтроки.Количество()-1 Цикл
				СтрокаТаблицы[СокрЛП(ИменаКолонок[ИндексЧасти])] = СокрЛП(ЧастиСтроки[ИндексЧасти]);
			КонецЦикла;
			
		Иначе
			
			ИменаКолонок = ЧастиСтроки;
			
		КонецЕсли;
		
	КонецЦикла;
	
КонецПроцедуры

// Заполнить таблицу значений на основе текста
// 
// Параметры:
//  Таблица - ТаблицаЗначений
//  Текст   - Строка
Процедура ЗаполнитьТаблицуЗначенийНаОсновеТекста(Таблица, Текст)
	
	ЧислоСтрок   = СтрЧислоСтрок(Текст);
	ИменаКолонок = Новый Массив;
	Разделитель  = "|";
	
	Для НомерСтроки = 1 По ЧислоСтрок Цикл
		
		СтрокаТекста = СтрПолучитьСтроку(Текст, НомерСтроки);
		Если ПустаяСтрока(СтрокаТекста) Тогда
			Продолжить;
		КонецЕсли;
		
		ЧастиСтроки = СтрРазделить(СтрокаТекста, Разделитель, Истина);
		
		Если ЗначениеЗаполнено(ИменаКолонок) Тогда
			
			СтрокаТаблицы = Таблица.Добавить();
			Для ИндексЧасти = 0 По ЧастиСтроки.Количество()-1 Цикл
				СтрокаТаблицы[СокрЛП(ИменаКолонок[ИндексЧасти])] = СокрЛП(ЧастиСтроки[ИндексЧасти]);
			КонецЦикла;
			
		Иначе
			
			ИменаКолонок = ЧастиСтроки;
			
		КонецЕсли;
		
	КонецЦикла;
	
КонецПроцедуры