Lecture de fichier. BoucleRésolu

Question

Bonjour !

J'ai un petit soucis avec la lecture de fichier texte...
Sur chaque ligne, entre autres infos, j'ai l'identifiant de la ligne 1,2,3....,n

J'essai de r&#233;cup&#233;rer le nombre de ligne totale du fichier pour ins&#233;rer &#224; la ligne suivante n+1 comme info.

Voil&#224; ce que j'ai fait dans mon source

var L: TextFile;
    nbLigne: longint;
begin
  nbLigne := 0;
  if FileExists(repertoire+'fichier.txt') then
    begin
      AssignFile(L,repertoire+'fichier.txt');
      Reset(L);
      While not SeekEOF(L) do begin
        nbLigne := nbLigne + 1;
        showmessage('Lecture ' + inttostr(nbLigne));
      end;
      CloseFile(L);
    end;
end;

J'ai aussi tester avec EOF &#224; la place de SeekEOF. Rien n'y fait, je boucle sans fin dans mon while.
Si quelqu'un &#224; une id&#233;e pour me sortir de l&#224; ;-)

f0xi · Accepted Answer

var TFT : TStringlist; begin TFT := TStringlist.create; TFT.Loadfromfile(repertoire+'fichier.txt'); showmessage('Nombre de lignes : '+inttostr(TFT.Count)); TFT.Free; end; mais ton probleme viens qu'il faut faire comme cela : nbligne := 0; while not Eof(L) do begin Readln(L); Inc(NbLigne); end; ShowMessage(inttostr(nbligne));

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

pandaspirit · Answer

Merci beaucoup !!

Je m'incline devant ta premi&#232;re solution... 
Heureusement que je suis novice sur delphi !!! ;-)

jlen100 · Answer

salut 

le plus simple est de charger ton fichier dans une tstringlist: comme
te le dit F0xi et pour ins&#233;rer &#224; la ligne n+1 tu fais simplement

TFT.Append('texte a ajouter');

si tu veux utiliser par la suite ne fais pas TFT.free et mets TFT en variable globale!

@+

jlen

pandaspirit · Answer

Merci merci ;-)
Nickel ! &#231;a m'a bien aid&#233;, et j'ai pu avancer !

Lecture de fichier. Boucle

4 réponses

Votre réponse

Discussions similaires