_FileWriteTo Line qui n'écrit pas dans le fichier
Posté : sam. 02 août 2025 21:18
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 :
J’espère que j'ai été assez clair, sino, n'hésitez pas.
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 :
#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
#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