Ecrire dans un fichier texte à un endroit précisRésolu

Question

Bonjour,



J'ai un fichier texte qui &#224; 34 lignes



je souhaites en r&#233;&#233;crire un nouveau 



qui remplace &#224; partire du caract&#232;re 22 de la ligne  8

10 caract&#232;res



J'ai donc &#233;crit ce bout de code



program Facture;



{$APPTYPE CONSOLE}



uses

  SysUtils,

  strUtils;



var

   R,lig,ligne,N_Facture,Agence: string;

     i: integer;

       F,nouveau: textfile;



begin



 assign(nouveau,'c:\master\sernam2.tto') ;

   rewrite(nouveau);

  append(nouveau);





   Write ('entrer un N&#176; de Facture :');

   readln(N_Facture);

// lecture du fichier

      assign(F,'C:\MASTER\facture.tto');



      reset(F);

      //while not eof(F)



      for i:= 1 to 34

      do      begin

// lecture de la ligne





            readln (F,ligne);

            lig:=ligne;

           writeln(nouveau,lig);



            IF i = 8 then

                begin

            R:=StuffString(lig,23,10,N_Facture);

             writeln(nouveau,R);

            end



            else

             readln (F,ligne);

            lig:=ligne;

            writeln(nouveau,lig);

             end;









            for i:= 1 to 10000

        do

        begin

        writeln (lig)

           end  ;

           closefile(nouveau);



end.



Le probl&#232;me et je pense qu'il est minime mais je n'ariive pas &#224; voir,



c'est que cela me r&#233;&#233;crit ma ligne 8 et me rajoute mes changements en ligne 9



Merci d'avance de votre aide.

 

couf

jlen100 · Accepted Answer

par contre pouquoi 

             for i:=   1 to 10000

         do

         begin

         writeln (lig)

            end  ;

?

  ainsi tu ajoutes 10000 fois la derniere ligne lig

maintenenant si tu avais indent&#233; ton code tu aurais vu:

       for  i: = 1 to 34  do     

     begin

 // lecture de la ligne

             readln (F,ligne);

             lig:= ligne;

            writeln(nouveau,lig); // l&#224; tu &#233;cris imm&#233;diatement la ligne non modifi&#233;e 

            if   i   = 8 then

             begin

                 R:=  StuffString(lig,23,10,N_Facture);

                  writeln(nouveau,R);

              end    else   readln (F,ligne);

             lig: =ligne;


             writeln(nouveau,lig);//l&#224;  tu forces l'&#233;criture de la ligne non modifi&#233;e


       end;

dans tous les cas tu &#233;cris 2 fois ta ligne.

il aurait fallu &#233;crire:

    i:= 1


      while not  EOF(F)  do   //    pour &#234;tre sur d'atteintre la fin du fichier


     begin


 // lecture de la ligne

             readln (F,ligne);


            IF i   = 8 then


             begin


                 R:=StuffString(ligne,23,10,N_Facture);


                  writeln(nouveau,R);


             end    else

                begin

                 writeln(nouveau,ligne);

                end;

                inc(i);// on incremente le pointeur


       end;

jlen100 · Answer

salut, 

il serait plus de passer par un Tstrng.

var

TempList: TStrings;

    R,lig,ligne,N_Facture,Agence: string;

begin

     TempList :=   TStringList.Create; //creation d'une liste provisoire 

     try 
        TempList.LoadFromFile('C:\MASTER\facture.tto');//lecture du fichier

        lig:  =TempList[8];.

         TempList[8]:=StuffString(lig,23,10,N_Facture);//modification de la ligne

        TempList.SaveToFile('c:\master\sernam2.tto');//enregistrement dans nouveau

  finally   TempList.Free;  end;//liberation memoire

end;

bonne prog

cs_couf · Answer

Merci  Beaucoup,



 hier un de mes coll&#232;gues m'a trait&#233; de jeune PADAWAN (cf guerre des &#233;toiles)

Je comprends maintenant pourquoi.

Merci encore

couf

jlen100 · Answer

entre les 2 solutions que je t'ai donn&#233; la 1ere donne un code plus propre.

Maintenant c'est en se forgeant sa propre exp&#233;rience que l'on apprend!!

DeltaFX · Answer

Bah, et encore, jeune Padawan, ca va, c'est pas trop la casse.... T'as jamais eu droit &#224; " h&#233;h&#233;, pas encore au point, petit scarab&#233;..."

Flute, je viens de me surprendre a penser qu'en cobol c'est infiniment plus simple, abattez-moi !

gnh !

Ecrire dans un fichier texte à un endroit précis

5 réponses

Votre réponse

Discussions similaires