Discussion :

[safowan]

Salut à tous,
Je voulais apprendre comment programmer en utilisant les fichiers, mais j'ai pas eu des cours trés détailler avec des exercices.
en plus j'ai eu 2 exemples dans un cours mais le prob c'est qu'ils ne s'executent pas à cause d'une erreur 105 et aussi dans l'exemple http://pages.univ-nc.nc/~racca/exempletext.html j'ai pas compris, FOR i:=ORD(S[0]) DOWNTO 1 DO .(pourquoi i est de type byte? & c'est quoi le code ascii de S[0] ?)
Je vous remérci pour l'aide et svp si vous savez des liens qui m'aident n'hésitez pas à me les envoier.
Merci d'vance.

[droggo]

Kae,

Salut à tous,
Je voulais apprendre comment programmer en utilisant les fichiers, mais j'ai pas eu des cours trés détailler avec des exercices.
en plus j'ai eu 2 exemples dans un cours mais le prob c'est qu'ils ne s'executent pas à cause d'une erreur 105 et aussi dans l'exemple http://pages.univ-nc.nc/~racca/exempletext.html

Pour l'erreur 105, je vois un problème dans le code de l'url citée:

Code :

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

1
2
3
4
...
CLOSE(F_In);                                                {Ferme le fichier}
RESET(F_Out);
...

Le fichier F_Out a été ouvert en écriture (ReWrite), et on cherche à le réouvrir en lecture (Reset) sans l'avoir fermé.
Or, pour un fichier Text, les 2 modes sont incompatibles.

J'ai pas compris, FOR i:=ORD(S[0]) DOWNTO 1 DO .(pourquoi i est de type byte?

De type Byte, parce que c'est suffisant.

Personnellement, je préfère qu'on utilise Integer.

& c'est quoi le code ascii de S[0]

Dans les chaînes standards du Pascal, le caractère d'indice 0 dans la chaîne contient en fait la longueur effective de la chaîne.

Prendre S[0] revient donc à prendre Length(S).

Là encore, c'est le genre d'écriture que je déconseille vivement.

[safowan]

Avant tout je te remerci Droggo à tes réponses compréhensibles. Mais il restent quelques problèmes qui pérsistent :
1) Même que j'ai fermé le fichier F_out comme t'as dit, en executant, l'erreur 105 se montre (sachant que j'utilise Turbo Pascal for Windows & windows XP comme sys.exp). Et il faut attirer l'attention qu'en ouvrant le fichier TEXT.SAP je trouve que le demandé est fait, mais la 2ème partie de l'affichage à l'ecran ne se fait pas l'hors de l'execution.
2) Tu m'as dit que S[0] remplace length(S) alors pourquoi on ne met pas FOR i:=S[0] DOWNTO 1 DO à la palce de FOR i:=ORD(S[0]) DOWNTO 1 DO ?

[droggo]

Jao,

2) Tu m'as dit que S[0] remplace length(S) alors pourquoi on ne met pas FOR i:=S[0] DOWNTO 1 DO à la palce de FOR i:=ORD(S[0]) DOWNTO 1 DO ?

Parce que un byte et un char ne sont pas compatibles directement.

Avant tout je te remerci Droggo à tes réponses compréhensibles. Mais il restent quelques problèmes qui pérsistent :
1) Même que j'ai fermé le fichier F_out comme t'as dit, en executant, l'erreur 105 se montre (sachant que j'utilise Turbo Pascal for Windows & windows XP comme sys.exp). Et il faut attirer l'attention qu'en ouvrant le fichier TEXT.SAP je trouve que le demandé est fait, mais la 2ème partie de l'affichage à l'ecran ne se fait pas l'hors de l'execution

Je ne dispose pas du compilateur que tu utilises, vas voir dans l'aide à quoi correspond le code d'erreur d'exécution 105.

Sinon, pour moi le code est bon.

Enfin, "bon", si on néglige le fait que c'est du code de cochon :

aucun contrôle sur le résultat de la réussite ou échec des opérations, c'est une erreur de conception.

--- Édité ----

Je complète ma dernière phrase :

.... c'est une erreur de conception, ou, pour le moins, une très mauvaise habitude.

[safowan]

Merci infiniment

[droggo]

Mei,

Merci infiniment

N'exagérons rien.

Je vois que tu as mis le tag "Résolu".

Quel était le problème ?

(Il est est bon de préciser ce qui se passait, et comment ça a été résolu. Ça aide les autres membres qui auraient le même problème que toi. )