|
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 кавычки и знак "_" - служебные символы, я их заменяю |