Что нового

Log Модуль

Belfigor

Модератор
Локальный модератор
Сообщения
3 573
Репутация
933
_Log v0.3
Код:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
;; _Log Модуль v0.3 Модуль записи лога в .txt файл
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
;; Применение:
;; Само тело функции разместить в любой удобной части скрипта.
;; Использовать ссылку на функцию из любой части скрипта, чтобы создать запись в .txt файле в новой строке.
;; Зависимость: НЕТ
;; Описание:
;; _Log Модуль - это независмый модуль не требующий для своей работы каких либо других модулей. Разместить в начале скрипта.
;; _Log($LogTe) - ссылка на функцию, в скобках в кавычках указывается коментарий. _Log("Вылетаю в белт."). Разместить в начале скрипта.
;; $LogTi - Переменная в которую заносится отметка времени начала работы скрипта.
;; $LogFi = "File_Name.txt" - Название лог файла. Файл создается в той же директории где находится скрипт.
;; $LogFi = "IceMiner_Lof_File " & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR &"."& @MIN & ".txt" создает .txt файл с названием вида: "IceMiner_Lof_File день.месяц.год час.минута.txt"
;; Принцип работы:
;; В файл с заданным именем последовательно вносит строки формата '[число.месяц.год - час:минута:секунда] [Время работы: час:минута:секунда] Коментарий'.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
$LogTi = TimerInit()
$LogFi = "test2.txt"
Func _Log($LogTe)
    $OpenFi = FileOpen($LogFi, 2)
    FileWrite($LogFi,@CRLF&"["&@MDAY&"."&@MON&"."&@YEAR&" - "&@HOUR&":"&@MIN&":"&@SEC&"] ["&StringFormat("Время работы: %02d:%02d:%02d ",Int(Round(TimerDiff($LogTi)/1000)/60/60),Int((Round(TimerDiff($LogTi)/1000)-Int(Round(TimerDiff($LogTi)/1000)/60/60)*3600)/60),Int(Round(TimerDiff($LogTi)/1000)-Int(Round(TimerDiff($LogTi)/1000)/60/60)*3600-Int((Round(TimerDiff($LogTi)/1000)-Int(Round(TimerDiff($LogTi)/1000)/60/60)*3600)/60)*60))&"] "&$LogTe)
    FileClose($LogFi)
EndFunc ;==> _Log
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
 
Верх