Hallo zusammen,
vielleicht hat ja jemand von den hier anwesenden 'Profis' eine Idee bzw. einen Ansatz.
Ich habe ein RoboCopy Log File, welches nach dem Erstellen die Summary in einer Messagebox darstellen soll.
Das Script dazu funktioniert soweit.
Problem ist jetzt allerdings noch die Formatierung der Ausgabe (s.u.).
Das sieht ganz mies aus.
Daher meine Frage: Wie kann ich das Format beibiegen (ala Tabstopps im Word z.B.)
#include
#include
Dim $CountLines, $Last10Lines, $aRecords, $aNewRecords$file = FileOpen("c:\bkp.log", 0)
; Check if file opened for reading OKIf $file = -1 Then MsgBox(0, "Error", "Unable to open file.") ExitEndIf
; File Actions (read 6th line for date purposes + trim, count lines of log and calculate 10 lines up)$line = FileReadLine($file,6)$line = StringTrimLeft($line,12) If @error = -1 Then Exit$CountLines = _FileCountLines("c:\bkp.log")$Last10Lines = $CountLines - 10FileClose($file)
;Array Actions (read log to array, create new array containing the last 11 lines)Local $aNewRecords[1]
If Not _FileReadToArray("c:\bkp.log", $aRecords) Then MsgBox(4096, "Fehler", "Fehler beim einlesen der Datei in das Array Fehler:" & @error) ExitEndIfFor $x = $Last10Lines To $aRecords[0] _ArrayAdd($aNewRecords,StringStripWS($aRecords[$x], 3))Next
;Show Action (show summary messagebox)MsgBox(0, "Summary: Bkp.log - " & $line, _ArrayToString($aNewRecords, @CRLF, 1, 11))
mfg
ugt100