Decouper un fichier texte [Résolu]

Signaler
Messages postés
2
Date d'inscription
jeudi 10 novembre 2005
Statut
Membre
Dernière intervention
14 décembre 2005
-
Messages postés
2
Date d'inscription
jeudi 10 novembre 2005
Statut
Membre
Dernière intervention
14 décembre 2005
-
Salut a tous!!

Je débute sous Delphi et je cherche un moyen de découper un fichier texte consitué de differentes parties.

voici la structure du fichier txt.



#HEADER



Motif1

ligne

ligne

ligne

ligne



Motif2

lignea

ligneb

lignec

lignef



Motif3

ligne

ligne


ligne



Voici ce que j'aimerai récupérer dans une variable Tstring =>(Motif2,lignea,ligneb,lignec,ligned).



J'avoue que la je rame!!!



Merci d'avance pour votre aide

2 réponses

Messages postés
2
Date d'inscription
jeudi 10 novembre 2005
Statut
Membre
Dernière intervention
14 décembre 2005

Merci pour ton aide ^^

finallement j'ai trouvé ceci





var

F : TextFile;

lig : string;

//nPts : Integer;

i : Integer;

//myString;

begin

AssignFile(F,FileTextName);

reset(F);

memo1.clear;

while not eof(F) do begin//cette
boucle répètera la lecture d'une ligne tant que nous n'aurons pas
atteint la fin du document EOF

readln(F,lig);//à chaque fois que l'on utilisera readln on passera à la ligne suivante.

if ( Pos('COMMENTS ANNE S1 Learn',lig) > 0 ) then

begin

Readln(F,lig);

Readln(F,lig);

Readln(F,lig);

Memo1.lines.add(lig);

repeat

Readln(F,lig);

Memo1.lines.add(lig);

until (length(lig) < 1); // retour chariot

Memo1.lines.add(lig); // ajoute notre ligne au memo

lig := copy(lig,Pos(' ',lig)+1,length(lig));

Memo1.lines.add(lig);



end;



end;

closefile(F);//cette procédure ferme notre fichier F

end;
Messages postés
436
Date d'inscription
vendredi 7 novembre 2003
Statut
Membre
Dernière intervention
8 octobre 2008
3
Bonjour,
Si tu n'est pas bloqué par le format de ton fichier txt, tu peux utiliser l'inifile ...
Cette classe gère l'accés au fichier ini qui ont quasi la même architecture:
[section1]
Param0=
Param1=

[section2]
parm12=
...

Tape "ReadString" et "TInifile" dans l'aide delphi
Cependant attention, la taille du fichier Ini est limité...

Dom