AutoIt Français

Code : Tout sélectionner

$file = FileOpenDialog("","D:\Dev\Tests\Thunderbird\Thunderbird\Data\profile\Mail\Local Folders\Inbox.sbd\Iste.sbd\iste.me.sbd","")
Local $hInpf = FileOpen($file)
If $hInpf <> -1 Then
    Local $hOutf = FileOpen($file & ".out", 2)
    If $hOutf <> -1 Then
        Local $ret, $data, $done
        Do
;~             $ret = FileSetPos($hInpf, 58, $FILE_CURRENT)
;~             If Not $ret Then ExitLoop
            $data = FileRead($hInpf, 2112)
            $done = (@error = -1)       ; read incomplete (EOF reached) but maybe something to write anyway
            FileWrite($hOutf, StringReplace($data, @CR&@CR, @CR))
            ; process write error
        until $done
        FileClose($hInpf)
        FileClose($hOutf)
    Else
        ; process error
    EndIf
    ; process error
EndIf

Code : Tout sélectionner

$fileIn = FileOpen("test.txt", 0)
$fileOut = FileOpen("test.txt.out", 2)
; Check if file opened for reading OK
If $fileIn = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf
; Read in lines of text until the EOF is reached
While 1
    $line = FileReadLine($fileIn)
    If @error = -1 Then ExitLoop
    $line = StringStripCR($line)
    $line = StringStripWS($line, 3) ; Début et fin
    If $line = "" Then Continueloop
    FileWriteLine($fileOut, $line)
Wend

FileClose($fileIn)
FileClose($fileOut)
 

Code : Tout sélectionner

$fileOut = FileOpen("test.txt.out", 1)
$n = 1

While 1
$fileIn = FileOpen("test.txt", 0)
For $i = $n to $n + 99
    $line = FileReadLine($fileIn, $i)
    If @error = -1 Then ExitLoop 2
    If StringInStr(StringRight($line, 3), @CR) Then StringReplace($line, @CR, "")
    If $line = "" Then Continueloop
    FileWriteLine($fileOut, $line)
Next
$n += 100
FileClose($fileIn)
Wend

FileClose($fileIn)
FileClose($fileOut)