v8: вывод таблицы в txt с фиксированной шириной колонок

 процедура КнопкаВыполнитьНажатие()

  

	//НомерНашегоДоговора = "265";

	Денек = СокрЛП(""+День(текущаяДата()));

	Если СтрДлина(Денек) = 1 Тогда

		Денек = "0"+Денек;

	КонецЕсли;

	Месячишко = Месяц(текущаяДата());

	Если СтрДлина(Месячишко) = 1 Тогда

		Месячишко = "0"+Месячишко;

	КонецЕсли;

	//имя = "ы";

	Текст = Новый ТекстовыйДокумент();



	 ПолноеИмяФайла = СокрЛП(Каталог) + "\"+Месячишко+Денек+НомерДоговора+".M01";

   // текст.ДобавитьСтроку(""+"Зарплата,"+Организация.НаименованиеСокращенное);

  

	текст.Записать(ПолноеИмяФайла);

	ТЗ = Новый ТаблицаЗначений;

	ТЗ.Колонки.Добавить("НомерСчета",,"НомерСчета",18);

ТЗ.Колонки.Добавить("Фамилия",,"Фамилия",20);

ТЗ.Колонки.Добавить("Чел",,"Сотрудник",20);

	ТЗ.Колонки.Добавить("Денежка",,"Денежка",10);



СтрокаВозможныхРазделителей = "/-*+():"",.\;[]";



	ОбщаяСумма = 0;

	Для Каждого ТекущаяСтрока Из ТабЗнач Цикл

		Для Каждого строка Из текущаястрока.ведом.зарплата Цикл

			Стр = ТЗ.Добавить();

			Лицевые = РегистрыСведений.ЛицевыеСчетаРаботниковОрганизации;

			ОтборЛиц = Новый Структура("Лицо",строка.Физлицо);

			ВыборкаЛицевых = Лицевые.Выбрать();

			Пока ВыборкаЛицевых.Следующий() Цикл

				Если ВыборкаЛицевых.ФизЛицо = строка.физлицо и ВыборкаЛицевых.Банк = Банк тогда

					Стр.НомерСчета = СокрЛП(""+ВыборкаЛицевых.НомерЛицевогоСчета);

					прервать;

				КонецЕсли

			КонецЦикла;

	

	Стр.Чел = сокрлп(строка.Физлицо);  

	   Стр.Денежка = строка.сумма;

			ОбщаяСумма = ОБщаяСумма + строка.сумма;

		КонецЦикла;

КонецЦикла;



  Для а = 1 по СтрДлина(СтрокаВозможныхРазделителей) Цикл

Стр.Чел = СтрЗаменить(Стр.Чел,Сред(СтрокаВозможныхРазделителей,а,1)," ");

КонецЦикла;



Стр.Чел = СтрЗаменить(Стр.Чел,"	"," ");

Стр.Чел = СтрЗаменить(Стр.Чел,"   "," ");

Стр.Чел = СтрЗаменить(Стр.Чел,"  "," ");

//преобразуем строку в много строчную заменяя символы пробела разделителем строк

КаждоеСловоВОтдельнойСтроке = СтрЗаменить(Стр.Чел," ",Символы.ПС);

Фамилия  = СтрПолучитьСтроку(КаждоеСловоВОтдельнойСтроке,1);

Имя		 = СтрПолучитьСтроку(КаждоеСловоВОтдельнойСтроке,2);

Отчество = СтрПолучитьСтроку(КаждоеСловоВОтдельнойСтроке,3);



	  



  

	Для Каждого ТекущаяСтрока Из ТЗ Цикл

		Текст.ДобавитьСтроку(""+Фамилия+" "+Имя+" "+Отчество+" "+Текущаястрока.НомерСчета+" "+Формат(текущаястрока.денежка,"ЧГ=6;ЧРД='.'; ЧДЦ=2")+"");

	КонецЦикла;

		текст.Записать(ПолноеИмяФайла,"CP866");

КонецПроцедуры