Прочитать из файла, добавить, записать - как???

YAndrey

06.04.2009 - 01:16

Что-то в пн. голова не соображает - как прочитать инфу из текстового файла, добавить пару строк и в этот же файл записать?
Есть объект "ИзвлечениеТекста", но он не позволяет добавлять текст...
Есть объект "ТекстовыйДокумент", но метод "Прочитать" _недоступен на сервере_!!! Кстати - а почему он недоступен?
Пока писАл - понял - надо считывать первым и записывать вторым... Странно...

К списку тем

К списку форумов

Интересные темы

odines.ru

29.04.2024 - 17:44

Смотри также:
Тех задание.
Исходный текст модуля не обнаружен
Колонтитул

Re: Прочитать из файла, добавить, записать - как???

jurii

1 - 06.04.2009 - 01:52

Чтобы добавить пару строк можешь воспользоваться следующей процедуркой:
//*********************************************************************
Процедура вЛог(ИмяФайла, Стр_)
// ВНИМАНИЕ:
// В строке Стр должны отсутствовать спецсимволы и кавычки!
Попытка
Стр = СтрЗаменить(Стр_, """", "'");
Стр = СтрЗаменить(Стр, "_", " ");

ScrptCtrl = СоздатьОбъект("MSScriptControl.ScriptControl");
ScrptCtrl.Language = "VBScript";
ScrptCtrl.AddCode("
|Set FSO = CreateObject(""Scripting.FileSystemObject"")
|Function WriteLog()
|  Set LogFile = FSO.OpenTextFile(""" + КаталогИБ() + "SYSLOG\" + ИмяФайла + ".txt"", 8, True)
|  LogFile.WriteLine("""" & Now & """ + Стр + """)
|  LogFile.Close
|  WriteLog = 1
|End Function
|");
Результат = ScrptCtrl.Run("WriteLog");
Исключение
КонецПопытки;
КонецПроцедуры // вЛог
//*********************************************************************

ЗЫ Т.к. в WBS кавычки и знак "_" - служебные символы, я их заменяю

Re: Прочитать из файла, добавить, записать - как???

jurii

2 - 06.04.2009 - 01:55

(1+) Строку
LogFile.WriteLine("""" & Now & """ + Стр + """)
нужно изменить на
LogFile.WriteLine(""" + Стр + """)
если не хочешь, чтобы в текстовом файле стояла дата и время