Lecture et écriture d'un fichier

Version imprimable

Bonjour à toutes et à tous,
voilà j'ai un problème concernant la lecture et l'écriture d'un fichier.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 var c : char; ch : string; f : text; BEGIN Assign(f, 'C:\bidule.txt'); reset(f); while not eof(f) do begin ch := ''; read(f,c); while c <> ' ' do begin ch := ch+c; read(f,c); end; write(ch); end; END.
La compilation marche bien, et l'exécution presque bien. En effet, il m'écrit bien le texte en sorti mais il s'arrête au dernier mot et le programme bug.
Par exemple, si le dernier mot du texte est de la tondeuse.,
le texte en sorti n'affichera pas tondeuse. et bloquera sur la fin (impossible de retourner dans Turbo Pascal, la fenêtre de l'exécution est figée :cry:).

Merci de votre aide !!

EDIT: Je veux écrire les mots en chaîne par chaîne de caractères et non caractères par caractères sinon je n'aurais pas ce problème là ;)

29/12/2007, 16h09
droggo
Mue,

Dans ta boucle interne
Code:

1 2 3 4 5 while c <> ' ' do begin ch := ch+c; read(f,c); end;
tu cherches à lire tant que tu n'as pas atteint un espace, mais que se passe-t-il quand tu atteins la fin du fichier ?
29/12/2007, 16h37
Archy27
Et bien j'ai déjà essayé de mettre une condition de plus dans ma boucle interne en mettant
Code:

1 2 3 4 5 while (c <> ' ') and (not eof(f)) do begin ch := ch+c; read(f,c); end;
mais ca ne marche pas non plus donc je ne comprends pas.
29/12/2007, 17h44
droggo
Xue,
Citation:
Envoyé par Archy27

Et bien j'ai déjà essayé de mettre une condition de plus dans ma boucle interne en mettant

Code:

1 2 3 4 5 while (c <> ' ') and (not eof(f)) do begin ch := ch+c; read(f,c); end;

mais ca ne marche pas non plus donc je ne comprends pas.
Pourquoi le tag "Résolu" si ça ne marche pas ?

Accessoirement, pourquoi concaténer à ch l'ancienne valeur de c, puis lire c et boucler ?
Cela signifie que le dernier caractère lu ne sera pas ajouté à ch.
31/12/2007, 01h34
Archy27
J'ai mis résolu car j'ai réussi à trouver la réponse moi même et je ne pensais pas que tu allais revenir mais c'est bien gentil de ta part ;).
Le dernier caractère lu est pourtant bien ajouté à ch car la boucle se termine que lorsque c est un caractère vide (j'ai testé et cela marche).
Cependant, j'aimerais une petite info si tu as à la réponse à cette question:

Comment faire pour dire que l'apostrophe ' est un caractère spécifique qu'il faut enelever? Car imaginons que j'ai le mot c'est à découper, il faut donc que je le découpe en c puis est. Mais on ne peut pas dire de

Code:

if c = ' ' 'then ...

et j'ai essayé avec le code ASCII approprié mais cela ne marche pas ou alors je me trompe de nombre:
Code:

1 2 if c = chr(32) then ...
Pas évident de mettre l'apostrophe comme caractère spécifique ;) (je n'ai aucun problème avec tout le reste mais l'apostrophe me pose bien des problèmes à cause justement du fait qu'il faille mettre 2 apostrophes pour signaler un char):

Code:

if c = 'a' then...
31/12/2007, 11h39
droggo

Quo,

En Pascal, pour utiliser une apostrophe dans une chaine ou dans un caractère, il faut la doubler:

Code:

if c = ''''then ...
31/12/2007, 17h52
droggo

Qio,

Au fait, j'ai oublié d'ajouter :

Non, tu ne vas pas au bout de ton fichier si ton code est toujours celui que tu as posté, tu ne gères pas le dernier caractère.
Ce qui te donne l'impression de le faire, c'est que ta dernière ligne est suivie d'un retour de ligne.

A titre d'exercice, ouvre ton fichier .txt avec un éditeur, et supprime le saut de ligne après cette dernière ligne, et regarde le résultat de l'exécution de ton programme.