AutoIt Français

Code : Tout sélectionner

Global $file, $contenu, $monfile, $line, $marqueur, $trouve, $fic_erreur, $ecrit, $ipp, $ippat, $pipe

; y a t  il  des fichiers dans le dossier labo ?
If FileExists("D:\Labo") Then
    ; montre les si y en a
    $file = FileFindFirstFile("*.hpr")  
        
    ; Si pas de fichiers message erreur
    If $file = -1 Then
        MsgBox(0, "Erreur", "Pas de fichiers dans ce dossier !")
        Exit
    EndIf

    While 1
        $contenu = FileFindNextFile($file)
        
        MsgBox(0, "Info", "Réussi a lire fichier :" & $file )
        ; peuton ouvrir le fichier ?
        If $contenu = -1 Then
            MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
            Exit
        EndIf
        ; Information sur le nom du fichier ouvert
        MsgBox(0, "Info", "Réussi a lire fichier :" & $contenu )
        ; ouverture du fichier selectionné
        $monfile = FileOpen($contenu, 0)
        MsgBox(0, "Info", "contenu de monfile : " & $monfile & " et de contenu : " & $contenu)
        ; Tant qu'on n'arrive pas sur la fin du fichier marquée par L|1
        While $line <> "L|1"
            Dim $marqueur = "P|0"
            MsgBox(0, "Boucle 2:", "contenu de monfile : " & $monfile)
            $line = FileReadLine($monfile)
            If @error = -1 Then ExitLoop
            MsgBox(0, "boucle 2:", "1ere ligne lue : " & $line)
            MsgBox(0, "boucle 2:", "Contenu de Marqueur : " & $marqueur )
            ; on cherche les lignes commencant par P|0
            $trouve = StringInStr($line,$marqueur)
            MsgBox(0, "boucle 2:", "Contenu de Trouve : " & $trouve & " " & $marqueur)
            If $trouve == 1 Then Corresp()
            If $trouve == 0 Then MsgBox(0, "boucle 2:", "pas de p|o dans cette ligne !")
            
            ;ExitLoop
        Wend
        ; on incrémente pour passer au fichier suivant
        $file =+ 1 
        ; s'il n'y en a pas on sort
        If @error Then ExitLoop
        MsgBox(4096, "File:", "file : " & $file )
        
    WEnd
    FileClose($file)
    Exit
EndIf
    MsgBox(0, "Error", "Pas de fichiers présents dans le dossier !")
    
; Close the search handle
FileClose($file)

Func Corresp()
    dim $recup
    MsgBox(0, "la fonction:", "rentre dans la fonction")
    ; Cherche par ligne le nombre de | (pipe)
    $pipe = StringRegExp($line, '\x7C', 3)
        MsgBox(64, "Infos", "Il y à " & UBound($pipe) & " fois la lettre | dans la chaine : " & @CRLF & $line)
    ; Compte le nombre de caractères entre le 2eme et le 3eme pipe
    For $i=0 To UBound($pipe,1)
    $recup = $pipe
    MsgBox(1,"resultat", "le caractere recupéré est " $recup)
    
    $fic_erreur = FileOpen("erreur.txt",1)
    ;If @error = -1 Then
    ;   MsgBox(0, "Error", "Unable to open file.")
        
    ;EndIf
    $ecrit = FileWriteLine($fic_erreur,$line & @CRLF &$contenu)
    MsgBox(0,"fin de fonction:", "valeur de : " & $trouve & $line & $fic_erreur & " texte  " & $ecrit)
    FileClose($fic_erreur)
    
EndFunc