Search the Community

A simple UDF to write to the console and or to log files. Updated the UDF, no you can set the logile with _CwlSetLogFile() #include <date.au3> $LogFile = @ScriptDir & "\logfile.log" MsgBox(0,"Example 1", 'Write "test" to Console') _cw("test") MsgBox(0,"Example 2", 'Write "test" "test" with CR to Console') _cw("test") _cw("test") MsgBox(0,"Example 3", 'Write "test" "test" without CR to Console') _cw("test") _cw("test",0) MsgBox(0,"Example 4", 'Write "Start Script" to Console and Logfile, including date and time (logfile only)') _cwl("Start Script",1,"s") MsgBox(0,"Example 5", 'Write "dots" to console and logfile and adding 10 rows with "."') _cwl("dots") For $i = 1 to 10 _cwl(".") Next MsgBox(0,"Example 6", 'Write "dots" to console and logfile and adding 10 "." after dots') _cwl("dots") For $i = 1 to 10 _cwl(".",0) Next MsgBox(0,"Example 7", 'Write "numbers" to console and logfile and 123456789 with CR') _cwl("numbers") For $i = 1 to 10 _cwl($i) Next MsgBox(0,"Example 8", 'Write "numbers" to console and logfile and 123456789 without CR') _cwl("numbers") For $i = 1 to 10 _cwl(" ",0) _cwl($i,0) Next MsgBox(0,"Example 9", 'Write "End Script" to Console and Logfile, including date and time (logfile only)') _cwl("End Script",1,"e") ; Func Console Write and Write to Logfile Func _CW($CWtext, $CWlf = 1); _CW("text"[, flag]) If $CWlf = 1 Then ConsoleWrite(@CR & $CWtext) Else ConsoleWrite($CWtext) EndIf EndFunc ; Func Console Write and Write to Logfile Func _CWL($CWLtext, $CWLlf = 1, $CWLtype = "n"); _CW("text"[, flag][, type]) If $CWLlf = 1 Then ConsoleWrite(@CR & $CWLtext) Else ConsoleWrite($CWLtext) EndIf $CWLfile = FileOpen($LogFile, 1) If $CWLtype = "s" Then FileWrite($CWLfile, "--- " & $CWLtext & " - " & _NowCalc()) If $CWLtype = "e" Then FileWrite($CWLfile, @CRLF & "--- " & $CWLtext & " - " & _NowCalc() & @CRLF & "----------------------------------------" & @CRLF & @CRLF ) If $CWLtype = "n" And $CWLlf = 1 Then $CWLtext = @CR & "- " & $CWLtext $CWLtext=StringReplace($CWLtext,@CRLF,@CR) $CWLtext=StringReplace($CWLtext,@CR,@CRLF) FileWrite($CWLfile, $CWLtext) EndIf If $CWLtype = "n" And $CWLlf = 0 Then FileWrite($CWLfile, $CWLtext) FileClose($CWLfile) EndFunc EndFunc_ConsoleWriteLog.au3