Page 1 sur 1

[R] Recherche d'un fichier log

Posté : lun. 11 avr. 2011 10:54
par richie6700
Bonjour à tous,

Ma question est dans le titre :D. J'aurais aimé effectué une recherche dans un fichier LOG. Voici mon script

Code : Tout sélectionner

#Include <File.au3>

$file = FileOpen("test.log",0)
$NB = _FileCountLines("test.log")

;si probleme
    If $NB=0 Then
        MsgBox(64, "Erreur", "impossible de trouver le fichier log")
        Exit
    EndIf

For $i=1 to $NB

        $line = FileReadLine($file) ; lire toute les lignes

;si il y a "error" dans le fichier
        If StringInStr($line,"error" ,2) Then ;flag=2 => on s'interesse pas a la casse
                    MsgBox(0,"","il existe erreur ")
        EndIf

Next

FileClose($file); on oublie pas de fermer le fichier!!!!
Le script marche... Mais le problème c'est que par exemple si il y a 4 error la msgbox s'affiche 4 fois (ce qui est normal lol). Comment faire pour ne l'afficher qu'une fois...

Merci à vous

Re: [...] Recherche d'un fichier log

Posté : lun. 11 avr. 2011 11:09
par jchd
Comme ça ?

Code : Tout sélectionner

$log = FileRead("test.log")
If @error Then
    MsgBox(64, "Erreur", "impossible de lire le fichier log")
Else
    If StringRegExp($log, '(?i)error', 0) Then
        MsgBox(0, "", "il existe erreur ")
    EndIf
EndIf

Re: [R] Recherche d'un fichier log

Posté : lun. 11 avr. 2011 11:15
par richie6700
Merci beaucoup!!!!!