Comment remplacer un caractère dans un fichier texte ?

**Isa31** · 25/01/2005, 10h03

Bonjour à tous,

Voila mon problème, je cherche à modifier la 1er ligne de mon fichier texte. En fait j'utilise un fichier texte pour stocker des données et je veux que ma 1er ligne indique un nombre que je dois augmenter à chaque insertion dans le fichier. Je voulais utiliser un

TStringList

mais je n'y arrive pas.
Je veux soit supprimer ma 1ere ligne et en re-créer une, soit la mettre à jour. Helas je ne vois pas comment faire.

J'espère que vous ne trouvez pas ma demande trop stupide.

Merci d'avance.

Isa

**Clorish** · 25/01/2005, 10h13

JE suis peut etre a cote mais ca vaut la peine d'essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Var f, g : TEXTFile;
   Line : String;  
Begin
AssigneFile(f, <Chemin du fichier a modifier>);
AssigneFile(g, <chemin du fichier temporaire>);
Reset(f);
Rewrite(g);
ReadLn(f, Line); 
WriteLn(g, <nouvelle valeur>);
While not EOF(f) do
  Begin
  ReadLn(f, Line);
  WriteLn(g, Line);
  End;
CloseFile(f);
CloseFile(g);
End;

Concept : Ouvrir un nouveau fichier pour stocker la nouvelle valeur (1eLigne) puic recopier a la suite les lignes 2 a N du ficheir original.

Remarque : Il faut lire la premiere ligne du fichier original pour rien, histoire de positionner le curseur fichier sur la 2e lignes ... a partir de la quelle on lit pour copier dans le 2e ficheir temporaire.

Pour renomer le fichier temp tu peux utiliser
DeleteFile : Suppression de l'ancien ficheir.
RenameFile : renomer le ficheir Temp comme il faut.

**Isa31** · 25/01/2005, 10h26

beaucoup c'est pile poil ce que je voulais!!!

**Pedro** · 25/01/2005, 13h55

Salut

Ben alors Clorish?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
var t:TStringList;
begin
  t:=TSTringList.Create;
  t.LoadFromFile(MonFichier);
  for i:=0 to t.Count-1 do
  begin
    //Ton traitement;
    t.Strings[0]:=QuelqueChose; //Ici on change la première ligne
    t.Delete(0);//Pour supprimer la première ligne
  end;
  t.SaveToFile(MonFichier);//Sauvegarde du contenu
  t.Clear;
  FreeAndNil(t);
end;