Lecture et ecriture fichier txt

Version imprimable

bonjour,

Je souhaite ecrire et lire dans un fichier txt.

Voici mon programme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
procedure TForm1.Button2Click(Sender: TObject);
Var
  Fich_out    : TextFile;
  Ligne_out : string;
  i : integer;
begin
//lire tous les fichier
assignFile(fich_OUT,'d:\toto.txt');
reset(fich_out);
 
ComboBox1.Clear;
 
while not eof (fich_out)
 do begin
 readln(fich_out,Ligne_out);
 ComboBox1.Items.Add(Ligne_out);
 end;
 
 
CloseFile(Fich_out);
rewrite(fich_out);
 
//Ecriture des ancienne ligne
For i:=0 to combobox1.Items.count-1
  do begin
  Ligne_out:=ComboBox1.Items[i];
  writeLn(Fich_out,Ligne_out);
  end;
Writeln(Fich_out,'toto');
 
//Ecriture de la nouvelle ligne
CloseFile(Fich_out);
end;

Je trouve cette methode tres bete car je suis obliger de recrire tous le fichier.

Avez vous d'autre methode plus simple ?

04/08/2006, 12h05
cadetill

Salut

Regarde du cote du TStringList et ces metodes LoadFromFile et SaveToFile (on doit penser que la propieté Items de combo est un TStrings ;))

A+

Bonjour,

Append

et je livre mes sources (F1 sous delphi)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
var
 
  f: TextFile;
begin
  if OpenDialog1.Execute then
  begin                    { Ouverture d'un fichier texte }
    AssignFile(f, OpenDialog1.FileName);
    Append(f);
    Writeln(f, 'J''ajoute quelque chose à la fin du fichier.'); 
    { Insérer ici un code nécessitant un Flush avant de fermer le fichier }
    Flush(f);  { Pour que le texte soit réellement écrit dans le fichier }
    CloseFile(f);
  end;
 
end;

Ceci dit si tu veux remplir ta combobox essie

Code:

1
2
 
  ComboBox1.Items.LoadFromFile('d:\toto.txt');

04/08/2006, 19h03
Sub0

Juste pour info, il n'est pas possible d'insérer des données au début d'un fichier sans être obligé de le reécrire en entier (faire une copie). La fonction Append n'est valable que dans le cas où l'on veut ajouter des données à la fin du fichier, à+
04/08/2006, 23h50
Bleys

Petite question :

C'est la premièrefois que jefois ce FLUSH pour un fichier texte (ou fichier tout court même) ... à quoi sert-il ?
05/08/2006, 00h20
Reisubar

Je te conseille vivement d'utiliser un TStringStream plutôt qu'un TextFile, c'est nettement plus agréable à manipuler...
05/08/2006, 00h22
Jipété

Citation:

C'est la premièrefois que jefois ce FLUSH pour un fichier texte (ou fichier tout court même) ... à quoi sert-il ?

Ça vide le cache disque : on est sûr (normalement - lol) que c'est écrit sur le dur. Sinon, y a toujours un 'tit temps de latence, et si la machine crashe *juste avant*, t'as tout paumé !

HTH,
JP
05/08/2006, 11h28
Bleys

D'accord, merci de ton aide ;)
05/08/2006, 12h17
aityahia

je sais pas dans quel contexte tu veut écrire dans ficher texte pour si c'est pas dans un but pédagogique j'utiliserais bien un TStringList avec c'est fonctionnalité et je terminerai avec un SaveToFile.
07/08/2006, 09h01
jeanmy

Merci a tous pour vos reponse.

je prefere utilise TextFile au lieu de TStringStream car je dois traiter mes données ligne par ligne.

c'est a dire : une ligne est un ensemble de données. C'est un fichier texte au format CSV.
07/08/2006, 12h35
Sub0

Dans ce cas, un TStringList est plus approprié il me semble...
07/08/2006, 14h00
jeanmy

Citation:

Dans ce cas, un TStringList est plus approprié il me semble...

très bonne remarque Sub0

Je viens de tester cela me parait plus simple en utilisant
07/08/2006, 17h23
aityahia

Citation:

Envoyé par jeanmy

très bonne remarque Sub0

Je viens de tester cela me parait plus simple en utilisant

je vous l'avez déja recomander.