Выпуск №58. Процедура записи лога в текстовый файл из 1С
|
|

Процедура ЗаписатьЛог(Сообщение) Путь = "D:\логи\"; Попытка Текст = Новый ТекстовыйДокумент; Текст.Прочитать(Путь + Формат(ТекущаяДата(), "ДЛФ=Д") + ".txt"); Текст.ДобавитьСтроку(Строка(ТекущаяДата()) +": " +Сообщение); Текст.Записать(Путь + Формат(ТекущаяДата(), "ДЛФ=Д") + ".txt"); Исключение Текст = Новый ЗаписьТекста(Путь + Формат(ТекущаяДата(), "ДЛФ=Д") + ".txt", КодировкаТекста.ANSI); Текст.ЗаписатьСтроку(Строка(ТекущаяДата())+Сообщение); Текст.Закрыть(); КонецПопытки; КонецПроцедуры
Добавить комментарий (через VK):