AutoIt Français

Code : Tout sélectionner

Dim $resultat = ""
Dim $trouve = False

$file_R = FileOpen("test..txt",0)
; Check if file opened for reading OK
If $file_R = -1 Then
    MsgBox(0, "Erreur", "Il est où ton fichier ?")
    Exit
EndIf

$file_E = FileOpen("fichier2.txt",  2 + 8) ;Ecrase l'existant et créé le répertoire si nécessaire

; Read in lines of text until the EOF is reached
While 1
    
    $line = FileReadLine($file_R)
    
    If @error = -1 Then ExitLoop
    If StringRegExp($line, "^[0-9]",0) = 1 Then
            ConsoleWrite($resultat & @CRLF)
            If $resultat<>"" Then
                FileWriteLine($file_E,StringReplace($resultat,@CRLF,""))
            EndIf
            $resultat = $line
        Else
            $resultat &= $line
    EndIf
    
Wend
FileWriteLine($file_E,StringReplace($resultat,@CRLF,""))            

FileClose($file_R)
FileClose($file_E)
 

Code : Tout sélectionner

#include <File.au3>

Local Const $fichierEntree = "lesintru.txt"             ; compléter le chemin si besoin
Local Const $fichierSortie = "lesintru_filtré.txt"     ; compléter le chemin si besoin
Local $lignes, $hSortie, $chaine

_FileReadToArray($fichierEntree, $lignes)
$hSortie = FileOpen($fichierSortie, 2+8)
For $i = 1 To $lignes[0]
    If StringIsDigit(StringLeft($lignes[$i], 1)) And $i > 1 Then
        FileWriteLine($hSortie, $chaine)
        $chaine = ""
    EndIf
    $chaine &= $lignes[$i]
Next
FileWriteLine($hSortie, $chaine)
FileClose($hSortie)

Code : Tout sélectionner

#include <File.au3>

Local Const $fichierEntree = "lesintru_filtré.txt"        ; compléter le chemin si besoin
Local Const $fichierSortie = "lesintru_filtré_encore.txt" ; compléter le chemin si besoin
Local $lignes, $hSortie

_FileReadToArray($fichierEntree, $lignes)
$hSortie = FileOpen($fichierSortie, 2+8)
For $i = 1 To $lignes[0]
    FileWriteLine($hSortie, StringRegExpReplace($lignes[$i], "^(\d+),([^,]+),","$1,""$2"","))
Next
FileClose($hSortie)