Делаю обработку по замене значений. Требуется писать эти замены в лог-файл.
Проблема в том, что мне надо добавить в лог только те замены, которые произведены в этом сеансе работы обработки, а добавляются все.

Процедура СоздатьЛогФайл()
Если ФлагЛогФайла=1 Тогда
   ЛогФайл = СоздатьОбъект("Текст");
   ЛогФайл.КодоваяСтраница(0);
   наим = СокрЛП(Тек)+"1Slog.TXT";
   Если ФС.СуществуетФайл(Пут+наим)=1 Тогда
       ЛогФайл.Открыть(Пут+наим);
   КонецЕсли;
Иначе
   ЛогФайл=0;
КонецЕсли;
КонецПроцедуры

Процедура ВЛогФайл(текст,вид="I")
Если ФлагЛогФайла=1 Тогда
   ЛогФайл.ДобавитьСтроку(текст);
   наим = СокрЛП(Тек)+"1Slog.TXT";
   ЛогФайл.Записать(Пут+наим);
КонецЕсли;
КонецПроцедуры

Процедура ПриОткрытии()
   ФлагЛогФайла=1;
   Пут=КаталогИБ();
   СоздатьЛогФайл();
КонецПроцедуры

Процедура ВыполнитьЗамены()
       ...........
ВЛогФайл("Справочник: "+ТЗСсылки.Ссылка.Вид()+ " " +Спр.ТекущийЭлемент()+" "+"Поле: " + Рекв);
       ...........
КонецПроцедуры

(0) что мешает плодить файлы по времени? Один запуск = один файл. Останется только с именем файла повыпендриваться.

из кода непонятно чем определяются актуальность "замен"

+(2) т.е. должно наверное быть нечто типа
Если ФлагЗаменаВЭтомСеансе Тогда
ВЛогФайл("Справочник: "+ТЗСсылки.Ссылка.Вид()+ " " +Спр.ТекущийЭлемент()+" "+"Поле: " + Рекв);
КонецЕсли;

(1) Мешает: Лог создается для квартала.
В квартале много контрагентов у каждого надо сменить договор. Замены делаются в разное время.
(2) не поняла ваш вопрос.

(4) аналогично  :)

Есть подозрение, что проблема в объекте "Текст" и штатными методами работы с ними 1с.

(6) давай весь текст ВыполнитьЗамены()

(7) Зачем? Замены выполняются прекрасно. Проблема в дозаписи файла txt, в который пишутся замены из всех сеансов.

В Книга знаний: Пример чтения и записи текстовых файлов (Scripting.FileSystemObject)

Процедура ПрочитатьФайл()
   ИмяФайла=КаталогИБ()+"romix_test.txt";
   fso=СоздатьОбъект("Scripting.FileSystemObject");
   file=fso.OpenTextFile(ИмяФайла, 1, 0, 0); //Открываем файл в режиме "только чтение"          
   Пока file.AtEndOfStream=0 Цикл
     стр=file.ReadLine();
     Сообщить(стр);
   КонецЦикла;
   file.Close();
КонецПроцедуры

Т.е., видимо VBScript мне в помощь?

Если через Fso и дописывать в конец, то открываем
Файл=fso.OpenTextFile(ИмяФайла,8,0,0);// открываем на дозапись
и потом всё, что мы запишем в наш "журнал", будет дописано в конец файла.

(10) Спасибо.
FSO творит чудеса!
Больше никогда не буду пытаться пользоватьтся СоздатьОбъект("Текст").


Процедура СоздатьЛогФайл()
   Если ФлагЛогФайла=1 Тогда
       наим = СокрЛП(Тек)+"1Slog.TXT";
       fso=СоздатьОбъект("Scripting.FileSystemObject");  
       Если ФС.СуществуетФайл(Пут+наим)=1 Тогда
           ЛогФайл=fso.OpenTextFile(Пут+наим, 8, 0, 0);        Иначе
           ЛогФайл=fso.CreateTextFile(Пут+наим, -1, 0);        КонецЕсли;
   Иначе
       ЛогФайл=0;
   КонецЕсли;    
КонецПроцедуры

//*******************************************
Процедура ВЛогФайл(текст,вид="I")
   Если ФлагЛогФайла=1 Тогда
       ЛогФайл.WriteLine(текст);
   КонецЕсли;
КонецПроцедуры

echo "удаление базы..." >> log.txt