tester la fin de ligne

Question

Bonjour, c'est encore moi.



Voila mon soucis:



j'ai un fichier texte comme ceci : 20060303;5;44;10;8;3;3;5



et j'ai le code suivant 



AssignFile (fic,tempo);

AssignFile (tirage,'c:\program files\Euro Million	irage.del');

reset(fic);Rewrite(tirage);

 b:=0;

while not EOF(fic) do

begin

 readln(fic,lig);a:=1;b:=b+1;mot[a]:='';

    for i:=1 to length(lig) do

    begin

    if copy(lig[i],1)<>';' then

     mot[a]:=mot[a]+copy(lig[i],1)

          else

              begin

                 if a=1 then euro.index:=b;

                 if a=1 then euro.date:=mot[1];

                
if a=2 then euro.n1:=StrToInt(mot[2]);

                
if a=3 then euro.n2:=StrToInt(mot[3]);

                
if a=4 then euro.n3:=StrToInt(mot[4]);

                
if a=5 then euro.n4:=StrToInt(mot[5]);

                
if a=6 then euro.n5:=StrToInt(mot[6]);

                
if a=7 then euro.et1:=StrToInt(mot[7]);

                
if a=8 then euro.et2:=StrToInt(mot[8]);

                 a:=a+1;mot[a]:='';

              end;





    end;

 write(tirage,euro);

 end;

 CloseFile(Tirage);CloseFile(fic);



Mon probl&#232;me c'est que je r&#233;cup&#232;re bien les valeurs sauf la derni&#232;re.
En clair je r&#233;cup&#232;re 20060303,  5, 44, 10, 8, 3, 3, (j'ai mis des
virgules pour que se soit plus lisible)  mais pas le 5 car je dois
avoir le controle fin de ligne qui m'emm..... enfin je pense !!

Comment je peut savoir lorsque je suis sur le fin de ligne ou si j'ai un autre probl&#232;me ?

jlen100 · Answer

salut apparament cela doit venir du copy, (qui dans ce que tu donnes ne se compile pas --> erreur de recopie??) comme tu ne copies qu'un seul caractère utilise plutot l'adressage direct de la chaine: if copy(lig[i],1)<>';' then mot[a]:=mot[a]+copy(lig[i],1)---> if lig[i]<>';' then mot[a]:=mot[a]+lig[i]; @+ jlen

van6071 · Answer

Merci, chez moi ça compile sans problème (je n'ai pas passé tout le code : trop long c'est pour ça que tu ne peux pas compiler). J'ai essayé ta méthode mais ça ne change rien. Merci d'avoir essayé
A+

jlen100 · Answer

pour la compilation c'est copy qui renvoie un message d'erreur --> pas assez de parametes originaux



as -tu surcharg&#233; la fonction?

voil&#224; ce que j'ai test&#233; et qui fonctionne

procedure TForm1.Button1Click(Sender: TObject);

var lig:string;

i: integer;

begin

 lig:= '20060303;5;44;10;8;3;3;5' ;edit1.Text:='';

  for  i: =1 to length(lig) do

      if lig[i]<>';' then

     edit1.Text:=edit1.Text+lig[i];



end;

si tu fait le test tu verras que tout est correctement copi&#233;;



@+

jlen

jlen100 · Answer

pour mieux visualiser fais comme &#231;a:

procedure TForm1.Button1Click(Sender: TObject);

var lig:string;

i: integer;

begin

 lig:='20060303;5;44;10;8;3;3;5' ;edit1.Text:='';

 for i:=1 to length(lig) do

      if lig[i]<>';' then

     edit1.Text:=edit1.Text+lig[i]

     else   edit1.Text:=edit1.Text+ '__'



end;





@+

jlen

van6071 · Answer

En fait je crois que mon problème est plus simple. Tel que ma boucle est ecrite je ne "déclanche" pas le dernier else puisque je n'ai plus de ; après le dernier caractère !!!

jlen100 · Answer

je ne crois pas puisque dans la boucle que j'ai fait cela fonctionne cela viendrait plutot de ta fonction copy



@+

jlen

jlen100 · Answer

la fonction copy tel que tu l'&#233;cris ne se compile pas

voici ce que dit l'aide

function Copy(S; Index, Count: Integer): string;



Description



S est une expression de type cha&#238;ne ou tableau dynamique. Index et
Count sont des expressions de type entier. Copy renvoie une sous-cha&#238;ne
ou un sous-tableau contenant Count caract&#232;res ou &#233;l&#233;ments en partant de
S[Index]. La sous-cha&#238;ne ou le sous-tableau est une copie unique
(c'est-&#224;-dire qu'il/elle ne partage pas de m&#233;moire avec S ; m&#234;me
si les &#233;l&#233;ments du tableau sont des pointeurs ou des objets, ils ne
sont pas copi&#233;s non plus).



Si Index est plus grand que la taille de S, Copy renvoie une cha&#238;ne ou un tableau vide.



Si Count indique plus de caract&#232;res ou d'&#233;l&#233;ments de tableau que le
nombre disponible, seuls les caract&#232;res ou les &#233;l&#233;ments compris entre
S[Index] et la fin de S sont renvoy&#233;s.





comme tu le vois il faut 3 param&#232;tres et ici copy(lig[i],1) tu n'en transmets que 2 donc si tu as r&#233;ecrit cette fonction v&#233;rifie qu'elle fonctionne



@+

jlen

van6071 · Answer

Merci j'ai r&#233;solu mon probl&#232;me. Pour info je vous donne le code qui marche.



while not EOF(fic) do

begin

 readln(fic,lig);a:=1;b:=b+1;mot[a]:='';

 essai.text:=lig;

    for i:=1 to length(lig) do

    begin

      if lig[i]<>';' then  mot[a]:=mot[a]+lig[i]



          else

              begin

                 if a=1 then euro.index:=b;

                 if a=1 then euro.date:=mot[1];

                
if a=2 then euro.n1:=StrToInt(mot[2]);

                
if a=3 then euro.n2:=StrToInt(mot[3]);

                
if a=4 then euro.n3:=StrToInt(mot[4]);

                
if a=5 then euro.n4:=StrToInt(mot[5]);

                
if a=6 then euro.n5:=StrToInt(mot[6]);

                
if a=7 then euro.et1:=StrToInt(mot[7]);

                
if a=8 then euro.et2:=StrToInt(mot[8]);

                 a:=a+1;mot[a]:='';

              end;

      if a=8 then

    begin

    mot[8]:=lig[i+1];euro.et2:=StrToInt(mot[8]);

    a:=0;

     end;



    end;

 write(tirage,euro);

 end;



Encore merci 

A+

f0xi · Answer

je me suis poser la question des performances ... c'est simple, pour 10 000 entrées, write < 16 ms ... read <32ms et le poid du fichier = 157Ko contre 310Ko en texte ... pour 100 000 entrées, write < 125 ms ... read < 312 ms et le poid du fichier = 1 563Mo contre 3 098Mo en texte ... c'est tellements rapide que ça m'etonne moi meme! et ouai ... avant je faisait du code pourris, mes programmes etait lourdingue est sans interets ... depuis que florenth, kenavo, grandvizir, delphiprog, cirec, jlen et les autres sont entrés dans ma vie ... je fais des routines optimisées, rapides, legeres comme l'air ... merci delphifr d'avoir fait de moi un bon...

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.

f0xi · Answer

aller, c'est l'heure des calculs, vus qu'on mets 10*T de temps pour 10*N entrées et que le poids du fichier est egalement de 10*P pour 10*N pour 1M entrées : w<1.2sec, r<3.1sec, p<10.5Mo pour 100M entrées : w<11s, r<30s, p<1Go pour 1G entrées : w<1m35s, r<2m30s, p<10Go (données purrement theorique car faut pas imaginer la tete du tableau dynamique avec 1Giga d'entrées ... ) l'interet quand meme, d'ecrire directement les données dans leur type et non en texte est que : en texte : date = 10 octets numeros de 0 a 9 = 1 octet * 7 numeros de 10 a 99 = 2 octets * 7 sept point virgule = 7 octets un eoln = 2 octets soit 26 octets minimum et 35 octets maximum en "binaire" date = 8 octets numeros de 0 a 99 = 1 octet * 7 une fin de donnée = 1 octet (h00) soit 16 octets fixe... soit un gain de 10 a 19 octets sur le fichier texte, ce qui n'est tout de meme pas negligeable, sans compter la facilitée pour lire et ecrire les données.

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.

Tester la fin de ligne

10 réponses

Votre réponse

Discussions similaires