Poltergeist

CreateList.os

#Использовать asserts

Процедура Инициализировать()
	
	Ожидаем.Что(АргументыКоманднойСтроки, "Укажите имя исходного списка файлов
		|и имя файла в который будет записан итоговый список").ИмеетДлину(2);
	
	ЗаписьТекста = Новый ЗаписьТекста(АргументыКоманднойСтроки[1]);
	ЗаписьТекста.ЗаписатьСтроку("0: " + АргументыКоманднойСтроки[0]);
	ЗаписьТекста.ЗаписатьСтроку("1: " + АргументыКоманднойСтроки[1]);
	ЗаписьТекста.ЗаписатьСтроку("Configuration.xml");
	ЗаписьТекста.ЗаписатьСтроку("CommonTemplates/ОписаниеИзмененийСистемы/Ext/Template.xml");
	
	ДополнитьФайл(ЗаписьТекста, АргументыКоманднойСтроки[0]);
	
	ЗаписьТекста.Закрыть();
	
	Сообщить(СтрШаблон("ИНФОРМАЦИЯ - Записан файл ""%1""", АргументыКоманднойСтроки[1]));
	
КонецПроцедуры

Процедура ДополнитьФайл(ЗаписьТекста, ИмяИсходногоСпискаФайлов)
	
	Файл = Новый Файл(ИмяИсходногоСпискаФайлов);
	Если Не Файл.Существует() Тогда
		Возврат;
	КонецЕсли;
	
	ЧтениеТекста = Новый ЧтениеТекста(ИмяИсходногоСпискаФайлов);
	ПрочитаннаяСтрока = ЧтениеТекста.ПрочитатьСтроку();
	Пока ПрочитаннаяСтрока <> Неопределено Цикл
		ЗаписьТекста.ЗаписатьСтроку(ПрочитаннаяСтрока);
		ПрочитаннаяСтрока = ЧтениеТекста.ПрочитатьСтроку();
	КонецЦикла;
	
КонецПроцедуры

Инициализировать();

out.txt

0: -show
1: D:\git\Poltergeist\CreateList.os
Configuration.xml
CommonTemplates/ОписаниеИзмененийСистемы/Ext/Template.xml

Before edit and save

After edit and save