_FileWriteTo Line qui n'écrit pas dans le fichier

[treza88]

Bonjour à tous,

j'ai un fichier qui est déjà ouvert et dans lequel je veux lire toutes les lignes et sur certaines lignes qui n'ont pas le caractères "*" à la position 7 et qui ne sont pas en majuscule, je veux mettre ces lignes en majuscule.
jusque la tout vas bien, mais quand je veux enregistrer cette ligne, elle ne s'enregistre pas.

Pouvez vous me dire pourquoi ?

Voici le code :

Code: [Tout sélectionner] [Déplier/Replier]

#include <file.au3>
#include <array.au3>
#include <FileConstants.au3>
#include <WinAPIFiles.au3>
#include <MsgBoxConstants.au3>
HotkeySet("^!j", "aze")
while 1
wend
Func aze()
Local $szDrive, $szDir, $szFName, $szExt, $TestPath, $FullPath, $line, $NbLine
MsgBox(0, "Titre", WinGetTitle("[active]"))
$TestPath = WinGetTitle("[active]")
$FullPath = StringSplit ($TestPath, "-")
$SplitPath = _PathSplit (@ScriptFullPath, $FullPath[1], $szDrive, $szDir, szFName, $szExt)
While 1
$NbLine = $NbLine + 1
$line = FileReadLine("C:\Users\aze\Downloads\fichier.txt", $NbLine)
If StringMid($line, 7, 1) = "*" Then
MsgBox(0, "Ligne", $line))
Else
$line = StringUpper ($line)
_FileWriteToLine("C:\Users\aze\Downloads\fichier.txt", 3, $line, 1)
MsgBox(0," ",$line)
EndIf
If @error = -1 Then ExitLoop
Wend
MsgBox(0, "Path", $FullPath [1])
EndFunc

GeSHi © Extension Codebox Plus

J’espère que j'ai été assez clair, sino, n'hésitez pas.

[Nine]

Ajoute de la gestion d'erreur (error handling) après _FileWriteToLine. Tu vas savoir pourquoi...