Fichier non ouvert en écriture ou fichier introuvable

Bonjour à tous, j'ai un projet à faire en Pascal et j'aurai besoin de manipuler des fichiers.

J'ai eu un an de cours de Pascal et n'ai pas vu la gestion de fichier, j'ai donc lu les tutoriels disponibles ici mais je n'arrive toujours pas à faire de manipulation basique de fichier.

Tout d'abord une question générale: est-il possible de travailler avec des chaines de caractères ET des nombres dans un seul fichier?

Si oui, comment?


Sinon, j'ai essayé de faire un simple programme d'écriture et de lecture, mais j'ai toujours une erreur 105: file not open for output.

voilà mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

program test;   uses crt;     var fichier : text; b : string;     procedure ecriture;   begin   reset (fichier); writeln('Entrez une phrase'); readln(b); writeln(fichier,b) end;   procedure lecture;   begin   reset (fichier); readln (fichier,b); writeln (b); readkey end;     begin assign (fichier,b); filemode:=2; ecriture; lecture; end.

---

_


Sinon, j'ai essayé un autre code trouvé sur un site, qui est celui-ci:

http://pages.univ-nc.nc/~racca/exempletext.html

Quand je l'exécute, il me dit "file not found" à la ligne "reset(f_in);"

Dois-je créer moi-même les fichiers f_in et f_out ? Si oui, où les créer?

_


Désolé de poser des questions aussi basiques mais j'ai besoin de résoudre ces problèmes pour avancer.


Merci d'avance

Bonjour,

Première chose : on ne peut écrire dans un fichier texte ouvert avec Reset. Pour ce faire, il faut utiliser Rewrite ou Append.

Un exemple : http://pascal.developpez.com/cours/p...page_14#LXIV-C

Ensuite, dans l'instruction

Code:

---

assign (fichier,b);

---

tu dois assigner à la chaîne b le nom du fichier.

;)

Merci, j'ai maintenant réussi à faire fonctionner un programme tout bête de lecture écriture: voilà le code pour info

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

(* Programme de test de lecture et d ecriture de fichier*)     program test;   uses crt;     var fichier : text; b : string;       begin assign (fichier,'C:\tp7\source\testmoi.txt'); filemode:=2; rewrite(fichier); writeln('Entrez une phrase'); readln(b); writeln(fichier,b); close(fichier); reset(fichier); readln (fichier,b); writeln (b); readkey end.

---

Cependant, la commande rewrite réinitialise le fichier texte. J'aimerais qu'il soit possible de réécrire à la suite du fichier sans modifier ni effacer le contenu qui y était.

Comment pourrais-je faire ça?



Et sinon, à propos de ma 1ere question (possibilité d'avoir deux variables associées à un fichier text: l'une string et l'autre real (ou integer)?

Problème résolu en utilisant append à la place de rewrite


Et pour répondre à ma question (:D), oui on peut utiliser des reels et des chaines de caractère dans un fichier text, sans aucun problème. Je sais pas quel était le bête type qui n'y arrivait pas :]