Récupérer les dernieres lignes d'un fichier texteRésolu

Question

Bonjour tout le monde, je travaille sous delphi 6 ent (en novice). je dois travailler sur un fichier csv et r&#233;cuperer les 20 dernieres lignes de ce fichier. En ce moment, j'utilise une liste chainees (pointeurs) pour stock&#233;s les infos du fichiers car je dois parcourir tout le fichiers (Tant que pas fin de fichiers), Y aurait-il une solution pour partir de la fin du fichier et ainsi reduire mon traitement. (Le fichier a 5000 lignes!!!).
Je vous en remercie d'avance et d&#233;sol&#233; pour le d&#233;rangement.
Viva Delphi

jlen100 · Accepted Answer

tu as plusieurs solution soit utiliser la m&#233;thode addobject;

soit utiliser une TList que est une liste de pointeurs ce qui dans ton
cas n'est pas une difficult&#233; puisque tu utilise une liste chain&#233; je te donne l'exemple delphi

type

  PMyList =  ^AList;

  AList = record

   champ1: string;

    champ2: string;

  end;



var



  MyList: TList;

  ARecord: PMyList;

  B: Byte;

  Y: Word;

 comme pour le Tstringlist :  MyList := TList.Create;

while not EOF(F) do

begin

    New(ARecord);

//la tu charges l'enregistrement  &#224; partir du fichier

    MyList.Add(ARecord); {Ajoute l'enregistrement &#224; la liste}

end;

 ensuite tu peux l'utiliser comme pr&#233;c&#233;demment 

 var buffer:string;

 for i:=Mylist.count-21 to Mylist.count-1 do 

 begin

     Arecord:=Mylist.items[i];

    buffer:=Arecord^.champ1; par exemple

  //    la tu mets ton traitement 

 end;

pour lib&#233;rer la liste:

   for B : = 0 to (MyList.Count - 1) do



   begin

     ARecord := MyList.Items[B];

     Dispose(ARecord);

   end;

   MyList.Free;



comme tu peux le constater c'est une version &#233;volu&#233;e des listes chain&#233;es



@+

jlen

jlen100 · Answer

salut utilises plutot une une Tstringlist. qui est plus simple &#224; g&#233;rer qu'une liste chain&#233;e



declares une variable Tstring

var  TempList: TStrings;  { d&#233;clarer la liste }

dans le form create (par exemple ou quand tu as besoin de la liste) tu cre&#233;s la liste



  TempList := TStringList.Create;  { construire l'objet liste }





dans ta proc&#233;dure de lecture du fichier tu charges ta liste



  tempList.LoadFromFile( 'Nom du fichier')





ensuite tu utilises ta liste  pour cela tu as la propri&#233;t&#233; count
qui te donnes la longueur de la liste  il suffit de donner
l'indice pour acc&#233;der &#224; une chaine insi pour r&#233;cup&#233;rer les 20 derni&#232;res
lignes:

var buffer:string;

for i:=Templist.count-21 to TempList.count-1 do 

begin

    buffer:=TempList[i];

//    la tu mets ton traitement

end;



dans le onclose de la form (par exemple ou avant  quand tu n'as plus besoin de la liste)

    TempList.Free;  { d&#233;truire l'objet liste }





@+

jlen

gg79 · Answer

A je ne connaissais pas la Tstringlist, je pourrais l'utiliser mais g plusieurs colonnes ds mon fichiers.
Est-ce possible avec la tsringlist?
Si oui comment faire?
Merci d'avance mais cest une piste a suivre!
Viva Delphi

gg79 · Answer

Nikel Merci C'est 2 fois plus tranquille, 
Pile poil pour mon appli, maintenant elle en jete
Je te remercierais jamais assez 
Merci encore jlen100
@+

jlen100 · Answer

si la r&#233;ponse te convient n'oublie pas de cliquer sur r&#233;ponse accepter
(cela facilite les recherches pour ceux qui auraient le m&#234;me probl&#232;me)



@+

jlen

gg79 · Answer

Ok merci

Récupérer les dernieres lignes d'un fichier texte

6 réponses

Votre réponse