AutoIt Français

Bonjour à tous,

Voici une fonction que j'ai écrite pour nettoyer les logs de l'excellent Robocopy.

Car j'utilise Robocopy pour sauvegarder des répertoires de serveurs avec plus de 300 Go de fichiers et le rapport de logs fait plus de 25 Mo. Hors ce qui m'intéresse est juste de savoir les fichiers qu'il a traités ou pour lesquels il y a eu un problème.

Cette fonction permet de ne conserver que les lignes dans lesquelles Robocopy a signalé quelque chose.

La fonction /LOG+ de Robocopy permet de logguer plusieurs sauvegardes dans un seul fichier. Ce cas là est géré et les entêtes et pieds de rapports sont conservés.

N'hésitez pas si elle peut vous servir et dites moi si vous avez des remarques dessus.

Amicalement.

BM

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>
#include <File.au3>


_bCleanLogRcopy("logR.txt")

; CLEAN LOG ROBOCOPY 2.3
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Func _bCleanLogRcopy($clean_log)

    ; Sort de la fonction si fichier log inexistant
    If not FileExists($clean_log) Then Return

    ; Compteur zone liste
    Dim $clean_cpt_zone=0
    Dim $clean_ligne

    ; Fichier log => Tab
    _FileReadToArray($clean_log, $clean_ligne)

    ; Suppression fichier log
    FileDelete($clean_log)

    $clean_log2 = FileOpen($clean_log, 10)

    ; Boucle tab log
    For $i=1 to $clean_ligne[0]-1

        ; Détection zone fichiers et répertoires
        If StringLeft($clean_ligne[$i],69)="---------------------------------------------------------------------" Then $clean_cpt_zone=$clean_cpt_zone+1

        ; Si compteur =5 remise à 1
        If $clean_cpt_zone=5 Then $clean_cpt_zone=1

        ; Cas possibles
        Select

            ; Zone entête : copie intégrale
            Case $clean_cpt_zone <3
                FileWriteLine($clean_log2,$clean_ligne[$i])
                ConsoleWrite($clean_cpt_zone & " > " & $clean_ligne[$i] & @LF)

            ; Zone fichiers ou répertoires : copie uniquement delta ou problèmes
            Case $clean_cpt_zone =3

                If (StringInStr($clean_ligne[$i],"New Dir")>0 _
                    Or StringInStr($clean_ligne[$i],"New File")>0 _
                    Or StringInStr($clean_ligne[$i],"*EXTRA File")>0 _
                    Or StringInStr($clean_ligne[$i],"Older")>0  _
                    Or StringInStr($clean_ligne[$i],"Newer")>0 _
                    Or StringInStr($clean_ligne[$i],"ERROR")>0 _
                    Or StringInStr($clean_ligne[$i],"AccŠs refus‚.")>0 _
                    Or StringInStr($clean_ligne[$i],"Waiting ")>0 _
                    Or StringLeft($clean_ligne[$i],69)="---------------------------------------------------------------------") Then

                    FileWriteLine($clean_log2,$clean_ligne[$i])
                    ConsoleWrite($clean_cpt_zone & " > " & $clean_ligne[$i] & @LF)

                EndIf

            ; Zone résumé : copie intégrale
            Case $clean_cpt_zone =4
                FileWriteLine($clean_log2,$clean_ligne[$i])
                ConsoleWrite($clean_cpt_zone & " > " & $clean_ligne[$i] & @LF)

        EndSelect

    Next

    FileClose($clean_log2)

EndFunc
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

AutoIt Français

[Ex] Nettoyage logs Robocopy

[Ex] Nettoyage logs Robocopy