[R] Conseil pour la modification de fichier txt

[peuchere83]

Bonjour à tous,

j'ai réalisé un programme qui vérifie le nombre de caractères contenues par lignes et cela de manière récursive dans tous les fichiers d'un répertoire passé en paramètre (bon je vous rassure il ne fait pas que cela mais bon je vais pas m'étendre )

Je dois maintenant vérifier que la date qui est positionnée toujours entre le 2ème caractères et le 8ème correspond à la date du vendredi suivant. Pour l'instant pas de problème.
Par contre si la date n'est pas bonne, je dois la corriger et c'est là où est mon problème :
Comment faire pour remplacer cette information car je suis déjà en lecture forcément sur le fichier.
La solution à laquelle je pensais mais que je souhaiterais qu'en dernier recours serait d'écrire en parralèle dans un autre fichier texte les lignes correctes et corrigées.

Quelqu'un a t'il une autre idée?


Voici mon code :

► Afficher le texte

$file = FileOpen("c:\toto.txt" , 0)

; test si le fichier peut etre ouvert en lecture
If $file = -1 Then
MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier")
Exit
EndIf

; Lecture du fichier ligne à ligne jusqu'au eof + compte du nombre de ligne
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop ; Si eof
; Verification si la date de vendredi est bonne dans chaque ligne
$ResultComparaison = StringInStr($line, $ResultDateVendrediProchain)
If $ResultComparaison <> 2 Then FileWriteLine($FileResultat, ";;erreur de date de vendredi")

$CountLine = $CountLine + 1
$CountLineTotal = $CountLineTotal + 1
$NbreCaractere = StringLen($line)
; Test du nombre de caractères par lignes
If $NbreCaractere <> 290 Then
$CountErrorLine = $CountErrorLine + 1
FileWriteLine($FileResultat, ";;" & $CountLine & ";" & $NbreCaractere)
EndIf
Wend

Comme vous pouvez le voir, pour l'instant je fais juste une vérification et j'écris cela dans un fichier csv

Cordialement

[GMib]

Est ce que la date est la même a chaque ligne ? (celle du vendredi précèdent ?)
si oui un simple stringreplace devrai faire l'affaire.

Edit : essaye un truc du genre :

Code : Tout sélectionner

#include <file.au3>
Dim $aLines
If Not _FileReadToArray("c:\toto.txt" ,$aLines) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf
For $x = 1 to $aLines[0]
   $date = StringMid($aLines[$x], 2, 6)
   If  $date <> $ResultDateVendrediProchain Then $aLines[$x] = StringReplace($aLines[$x],$date,$ResultDateVendrediProchain)
   $NbreCaractere = StringLen($aLines[$x])
   If $NbreCaractere <> 290 Then
        $CountErrorLine = $CountErrorLine + 1
        FileWriteLine($FileResultat, ";;" & $CountLine & ";" & $NbreCaractere)
    EndIf
Next
$CountLineTotal = $aLines[0]

_FileWriteFromArray("c:\toto.txt", $aLines, 1)

[peuchere83]

Désolé pour cette réponse tardive

Mais grâce à ton code, et surtout à l'utilisation de "_FileReadToArray", j'ai pu faire ce que j'avais à faire.

Encore merci.