Выгрузка и загрузка документа в txt

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


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


&НаКлиенте
Процедура ЗагрузитьДокумент(Команда)
		ТекстовыйФайл = Новый ТекстовыйДокумент;
 
    ТекстовыйФайл.Прочитать(
        Объект.Файл,
        КодировкаТекста.UTF8, 
        Символы.ВК + Символы.ПС
    );
	ТекстФайла = ТекстовыйФайл.ПолучитьТекст();
	КоличествоСтрок = ТекстовыйФайл.КоличествоСтрок();
	ЗагрузитьДокументНаСервере(ТекстовыйФайл, КоличествоСтрок);
КонецПроцедуры