Renverser un fichier

**superdj** · 30/04/2007, 15h55

Voici ce que j'ai fait; j'ai vu que dans un post vous avez fait une correction d'un exercice similaire mais j'ai du mal à comprendre ce que vous savez fait, donc je vous mets mon bout de programme.

J'ai fait comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
rewrite(f2);
 
   for i:= 0 to filesize(f1)  do begin
      seek(f1,filesize(f1)-i );
      read(f1, x);
      write(f2, x);
   end;

Ceci doit être une procédure qui doit générer dans le fichier 2 l'inverse du fichier 1.

Il y a une autre consigne mais déjà je veux réussir à faire ça; pour le reste, je verrai.

**M.Dlb** · 30/04/2007, 16h23

C'est le même code que dans l'autre post. Essaye de comprendre en regardant l'aide en ligne

**Loceka** · 30/04/2007, 17h44

Le tiens doit planter tout de suite, non ?

D'après ce que je vois, à la première itération de ta boucle tu te places en fin de fichier et tu essayes de lire un caractère (au delà de la fin du fichier donc).

Pour que ça marche, il faudrait commencer l'itération à 1 et non à 0.

**superdj** · 30/04/2007, 18h03

ok et si je me place a 1, il lira le caractere en position 0?

ety oui je c'est qu'il ressemble, mais j'aimerai savoir le faire a ma methode a quoi sa me servirai de copier betemen t l autre.

ou alor je peut faire ceici:

rewrite(f2);

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
for i:= 0 to filesize(f1)-1  do begin
      seek(f1,filesize(f1)-i );
      read(f1, x);
      write(f2, x);
   end;

**Loceka** · 01/05/2007, 00h01

Je crois que le mieux pour toi serait que tu essaye de dérouler ton algo à la main (sur une feuille).

Imagine toi un fichier de petite taille (4 ou 5 caractères) et "pense comme la machine", écris chaque appel de procédure/fonction avec les bons arguments et écris les résultats obtenus.

Mais surtout relis bien la doc. de seek(File, Pos) (et mon post précédent aussi, apparement tu n'as pas bien compris ce que je voulais dire).

A part te faire ton algo, je vois pas comment t'aider plus.

**superdj** · 01/05/2007, 00h37

je vais y reflechier serieusement , je vais faire se que tu ma di demain matin , et sinon je reviendrai t embeter demain apres midi aurevoir

**superdj** · 01/05/2007, 14h30

donc ok je l'ai fait pas a pas , mais je ne vois pas ou je me trompe, pour moi a partir de ma boucle qui va de 0 a la taille du fichier, je demande au pointeur a chaque tour de boucle de se placer a l endroi taille du fichier moin i.
puis je demand de lire et enfin d ecrire dans f2

mais je ne compren pas ou j ai fait mon erreur, si tu veu m expliquer je suis preneur, meme l'lago comme tu disai m'aiderai beaucoup a condition que je le comprenne.

merci d'avance

**M.Dlb** · 01/05/2007, 14h55

Au premier tour de boucle, i = 0, donc taille - i = taille. Tu positionnes le pointeur à la fin du fichier, après le dernier élément. Tu essayes ensuite de lire, mais comme il n'y a rien à lire puisque tu as atteint la fin du fichier, il y a une erreur.

**superdj** · 01/05/2007, 14h59

a ok je me positionne apres le dernier element , mais il ne lit que dans un sens?donc je doi partir de 1?

**M.Dlb** · 01/05/2007, 15h52

Euh oui, il lit que dans un sens, dans le sens séquentiel normal. Tu te places avant le dernier enregistrement, tu le lis, tu te places avant l'avant-dernier, tu le lis, tu te places avant l'avant-avant-dernier, tu le lis, etc...