Создание текстовых лог-файлов

[Yashied]

AutoIt: 3.3.6.1
Версия: 1.0

Категория: Автоматизация

Описание: Библиотека позволяет создавать текстовые лог-файлы (.log), которые имеют сдедующий формат (см. ниже). Пользоваться всем этим экстремально просто (см. пример). Вообщем, даже и сказать больше нечего, попробуйте сами.

###Event Log Files UDF Exaple###

2010-08-29  20:26:44  (0006)  Program start
2010-08-29  20:26:44  (0008)  Pinging www.autoitscript.com...
2010-08-29  20:26:44  (0005)  Ping is successful, Time = 73 ms
2010-08-29  20:26:44  (0007)  Program exit

2010-08-29  20:26:44  (0006)  Program start
2010-08-29  20:26:44  (0008)  Pinging www.autoitscript.com...
2010-08-29  20:26:44  (0005)  Ping is successful, Time = 110 ms
2010-08-29  20:26:44  (0007)  Program exit

Пример:

Спойлер

#Include <Log.au3>

Opt('MustDeclareVars', 1)

Global $hLog, $Time

$hLog = _Log_Open(@ScriptDir & '\MyProg.log', '###Event Log Files UDF Exaple###')
_Log_Report($hLog, 'Program start', 6)
_Log_Report($hLog, 'Pinging www.autoitscript.com...', 8)
$Time = Ping('www.autoitscript.com')
If $Time Then
    _Log_Report($hLog, 'Ping is successful, Time = ' & $Time & ' ms', 5)
Else
    Switch @error
        Case 1
            _Log_Report($hLog, 'Ping is fails, host is offline', 1)
        Case 2
            _Log_Report($hLog, 'Ping is fails, host is unreachable', 2)
        Case 3
            _Log_Report($hLog, 'Ping is fails, bad destination', 3)
        Case Else
            _Log_Report($hLog, 'Ping is fails, unknown error', 4)
    EndSwitch
EndIf
_Log_Report($hLog, 'Program exit', 7)
_Log_Close($hLog)

Источник: Log UDF (оффициальный форум)
Автор: Yashied

 

[FlatX007]

А зачем столько много кода да ещё и вызов DLL ?... я непонимаю

 

[Medic84]

Yashied
Как же ты любишь все усложнять :D
А так, полезная UDF

 

[Yashied]

А зачем столько много кода да ещё и вызов DLL ?... я непонимаю

Как же ты любишь все усложнять :D
А так, полезная UDF

Друзья, если бы я хотел написать так:

_FileWriteLog('MyLog.log', 'Message')

Я бы это сделал и не парился бы с этим UDF (я не мозахист). Но помимо всех остальных плюшек, которые я реализовал в этом UDF, здесь есть один важный момент. На время работы с .log файлом, он блокируется для других приложений, т.е. доступен только для чтения. Его нельзя удалить, изменить и т.д., до тех пор, пока программа его не закроет, вызвав функцию _Log_Close(). Большинство серьезных приложений именно так и делает. А мы ведь здесь пишем именно такие?

 

[saavaage]

Yashied, не подскажете, Ваша функция позволяет делать следующее:
1. делать лог-отчет по отработке сложного скрипта:
а) много подскриптов, привязанных к кнопкам, чекбоксам, прочим контролам, расположенным на разных вкладках и дочерних окнах;
б) в процессе выполнения операций идут записи в реестр системы, запуск/останов служб, удаление/создание файлов и т.д.
2. можно ли организовать включение ведение лога в утилите и отключение его по выбору пользователя, причем мониторинг действий пользователя происходит в автоматическом режиме.

Заранее благодарю за ответ.

 

[Yashied]

Это не программа, а UDF библиотека, позволяющая пользователям гибко использовать ее функции под свои нужды. Просто пиши в любом месте кода следующее:

_Log_Report($hLog, 'Любой тест...')

и этот текст будет добавлен в .log файл. А что именно ты будешь писать, это уже твое дело. Также опционально можно задать код события и точное время (см. пример).

 

[saavaage]

Yashied, функция позволяет задать перечень контроллов и писать инфо с них в лог? т.е. не по отдельности обрабатывать каждый контрол, а указать их все вместе (м.б. в виде массива), чтобы при срабатывании того или иного подскрипта, если его контрол есть в списке, шла автоматом запись..

PS извини за сумбур, но сам еще не до конца сформулировал для себя задачи..

 

[Skif_off]

В связи с этим будет изменение?

 

[ЭйчЭйч]

На время работы с .log файлом, он блокируется для других приложений, т.е. доступен только для чтения. Его нельзя удалить, изменить и т.д., до тех пор, пока программа его не закроет, вызвав функцию _Log_Close(). Большинство серьезных приложений именно так и делает. А мы ведь здесь пишем именно такие?

А разве стандартны FileOpen позволяет в это время изменять файл?

If (@error) Or (Not $Ret[0])

Вроде без скобок тоже работает.

If IsString($sElement) and $sElement > 0 Then ; вчера написал