Compter les caractères d'un fichier texte

Je n'ai pas parlé de type de fichier, j'ai parlé de "chemin". Si ton fichier texte est dans C:\mesfichiers\pascal\donnees\ par exemple et que ton programme est dans C:\mesprogs\Pascal\ Ton programme ne peut pas accéder au fichier puisqu'ils ne sont pas dans le même répertoire (il faudrait pour cela modifier ta variable environnement sous windows ).

Donc il faut que tu copies le fichier texte à traiter dans le même répertoire que ton programme (c'est-à-dire dans mon exemple, tu mets ton fichier texte dans C:\MesProgs\Pascal\ )

Il y a des problèmes dans ton code. regarde ce que j'ai mis en rouge.

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

If nb_lignes < 4 then write('erreur') (* Que fait le programme après avoir écrit 'erreur' ? C'est un 'comportement non défini : source de bugs *) else if nb_lignes > 3 (* tu n'as besoin de cette condition, else suffit ici *) then ; (* problème de syntaxe*) (* begin / ne pas oublier le "end" à la fin de ce bloc*) numeroligne:=0; (* :=1*) repeat numeroligne:=numeroligne + 1 until numeroligne = nb_lignes; (* problème de syntaxe*) (*traiter les lignes une par une*) begin while not eoln(fichier_source) do (*boucle*) begin read(fichier_source,ligne); Inc(NumeroLigne); nb_car:=length(ligne); end; nb_car:=length(ligne); (* pourquoi deux fois la même instruction : celle-ci est inutile*) (*nombre de caractère nb_car*) If numeroligne = 1 then (* problème numero ligne ne pourra jamais être égale à 1 car toutes les lignes ont été lues, numéroligne correspondra donc au numéro de la DERNIERE ligne de ton fichier*) (*traitement de la 1ère ligne*)

---

Corrige déjà ça. Ce code montre que tu ne sais pas comment fonctionne l'intruction Read ou Readln, que tu ne maîtrises pas la syntaxe des conditions : IF... Then ... Else ni celle de la boucle Repeat ... Until , que tu as du mal à découper ton code en blocs d'instructions. Il faudrait (re?)voir les bases du langage et de sa syntaxe.

Note bien que je dis cela pour t'aider. Es-tu étudiant ? Si oui, demande à ton prof de revoir ces notions peut-être...

Citation:

---

Envoyé par richard

Il y a des problèmes dans ton code. regarde ce que j'ai mis en rouge.

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

If nb_lignes < 4 then write('erreur') (* Que fait le programme après avoir écrit 'erreur' ? C'est un 'comportement non défini : source de bugs *) else if nb_lignes > 3 (* tu n'as besoin de cette condition, else suffit ici *) then ; (* problème de syntaxe*) (* begin / ne pas oublier le "end" à la fin de ce bloc*) numeroligne:=0; (* :=1*) repeat numeroligne:=numeroligne + 1 until numeroligne = nb_lignes; (* problème de syntaxe*) (*traiter les lignes une par une*) begin while not eoln(fichier_source) do (*boucle*) begin read(fichier_source,ligne); Inc(NumeroLigne); nb_car:=length(ligne); end; nb_car:=length(ligne); (* pourquoi deux fois la même instruction : celle-ci est inutile*) (*nombre de caractère nb_car*) If numeroligne = 1 then (* problème numero ligne ne pourra jamais être égale à 1 car toutes les lignes ont été lues, numéroligne correspondra donc au numéro de la DERNIERE ligne de ton fichier*) (*traitement de la 1ère ligne*)

---

Corrige déjà ça. Ce code montre que tu ne sais pas comment fonctionne l'intruction Read ou Readln, que tu ne maîtrises pas la syntaxe des conditions : IF... Then ... Else ni celle de la boucle Repeat ... Until , que tu as du mal à découper ton code en blocs d'instructions. Il faudrait (re?)voir les bases du langage et de sa syntaxe.

Note bien que je dis cela pour t'aider. Es-tu étudiant ? Si oui, demande à ton prof de revoir ces notions peut-être...

---

Non je n'ai pas de cours d'informatique par contre j'ai deja lu beaucoup de livre et suivi certaine discussion de forum sans intervenir.

Au faite j'avais commencé par numeroligne:=0 car juste après on fait directement +1 et là on en serait à numeroligne:=1 par contre j'avais peur de louper la première ligne en affectant à l'initialisation numeroligne:=1...

Effectivement je n'avais pas pensé que le fichier venait juste d'être lu, il faudrait surement insérer un reset pour pouvoir commencer par la 1ère ligne.

Citation:

---

Envoyé par ProgramPascal

Non je n'ai pas de cours d'informatique par contre j'ai deja lu beaucoup de livre et suivi certaine discussion de forum sans intervenir.

Au faite j'avais commencé par numeroligne:=0 car juste après on fait directement +1 et là on en serait à numeroligne:=1 par contre j'avais peur de louper la première ligne en affectant à l'initialisation numeroligne:=1...

Effectivement je n'avais pas pensé que le fichier venait juste d'être lu, il faudrait surement insérer un reset pour pouvoir commencer par la 1ère ligne.

---

La programmation m'interessait donc je m'y suis lancé en tant que projet de fin d'étude mais comme je n'ai pas de cours d'info j'ai mis comme branche "mathématique"

OK, OK, ceci explique cela ...

Il faudrait que tu prennes le temps de lire un bon tuto sur le Pascal, il y en a beaucoup sur "développez", ici par exemple :

http://pascal.developpez.com/cours/cyberzoide/

Tu aurais la syntaxe de toutes ces instructions et le fonctionnement d'un Readln sur un fichier, ici :
http://pascal.developpez.com/cours/c...g_Fichiers#LXV

Citation:

---

Envoyé par ProgramPascal

Au faite j'avais commencé par numeroligne:=0 car juste après on fait directement +1 et là on en serait à numeroligne:=1 par contre j'avais peur de louper la première ligne en affectant à l'initialisation numeroligne:=1...

---

Apprend à tester ton code avec ton compilo : c'est excellent pour comprendre comment ça fonctionne. Fais tes tests.

Citation:

---

Envoyé par ProgramPascal

Effectivement je n'avais pas pensé que le fichier venait juste d'être lu, il faudrait surement insérer un reset pour pouvoir commencer par la 1ère ligne.

---

Non, ce n'est pas cela. "Readln(Fichier)" lit une ligne de ton fichier et après incrémente un poiteur qui va pointer sur la ligne suivante. Si ton fichier comporte 4 lignes voici ce que cela donne :

Code:

---

1 2 3 4 5 6 7

Begin Readln(fichier_source); (* lit la ligne n°1, vide le tampon et incrémente le pointeur interne qui pointe maintenant sur la ligne suivante : n°2 *) Readln(fichier_source); (* lit la ligne n°2, vide le tampon et incrémente le pointeur interne qui pointe maintenant sur la ligne suivante : n°3 *) Readln(fichier_source); (* lit la ligne n°3, vide le tampon et incrémente le pointeur interne qui pointe maintenant sur la ligne suivante : n°4 *) Readln(fichier_source); (* lit la ligne n°4, vide le tampon et incrémente le pointeur interne qui pointe maintenant sur la ligne suivante : n°5*) Readln(fichier_source); (* ERREUR d'exécution ! *)

---

Il faut donc que tu places l'instruction INC(NumeroLigne) avant le Readln si tu initialises 'NumeroLigne' à 0.

http://www-ipst.u-strasbg.fr/pat/program/pascal.htm

Sinon il y a le package multimédia qui est très très bien fait (de R. Di Scala téléchargeable sur Développez), mais il couvre de nombreux domaines de l'informatique et accessoirement Pascal. C'est un bel ouvrage de fond sur l'informatique et la programmation, pas un tutoriel spécifique pour le langage Pascal.

De nombreux livres sont également listés sur la rubriques "Livres" du forum Pascal qu'on peut parfois trouver d'occasion sur des sites tels que 2Xmoins Cher ou PriceMinister ou autres, donc pas chers du tout (c'est le cas de "Programmez en TP7" par Delannoy par exemple qu'on peut trouver actuellement pour une poignée d'euros et qui est clair et bien fait pour un débutant je trouve).

Une question...
Il va me falloir encore beaucoup de temps pour finir mon code? en estimant...

ah mais j'ai deja été plusieurs fois sur ce site! J'ai surement pas été assez attentive si on m'y revoit...

Bonjour

Citation:

---

Envoyé par ProgramPascal

Une question...
Il va me falloir encore beaucoup de temps pour finir mon code? en estimant...

---

Ton code aurait dejà pu être fini dès la première réponse dans le premier post de richard, tout ce que tu avais à y ajouter c'était des traitement avant et après la lecture d'une ligne. Après, tout nécessite une certaine base dans ce qu'on fait et il faut penser aux notions enoncées par richard pour bien avancer.
Un petit conseil, prends le temps de relire toute la discussion du début jusque l'a tu verras plus clair. Visiblement tu te sers pas bien des fonctions du langage.

Revois ton algo avec les conseils donnés dans les précédents posts et ensuite passe à Pascal sinon pour faire simple, fais comme si tu déroulais un algo en notant juste sur un papier ce qu'est sensé faire ton code et tu verras tout de suite comment élaborer un bon algo(même si il t'a déjà été donné par richard).

Cordialement

Mais il y a toujours le problème relatif à le recherche d'un fichier...
Quand on entre le nom d'un fichier il marque toujours fichier non-trouvé.

Bonjour
Est ce que tu passes un chemin absolu ou relatif? dans les deux cas si le fichier n'est pas trouvé c'est soit le chemin indiqué n'est pas bon soit le fichier n'est pas au bon endroit :D.
Après faut voir si le nom de ton fichier est long.

Cordialement

Citation:

---

Envoyé par krachik

Bonjour
Est ce que tu passes un chemin absolu ou relatif? dans les deux cas si le fichier n'est pas trouvé c'est soit le chemin indiqué n'est pas bon soit le fichier n'est pas au bon endroit :D.
Après faut voir si le nom de ton fichier est long.

Cordialement

---

Mais je rentre simplement le nom d'un fichier comme demandé et il ne trouve aucun fichier

Ceci est à 99.99 % une erreur liée au système d'exploitation.

1) Le nom de ton fichier est-il composé uniquement de lettres et de chiffres à l'exlusion de _,*,é,à,è,ê,ù,- etc. ? Si non renomme simplement en "Fichiertest.txt".
2) Quelle est l'extension du fichier (ce qui se situe après le point) : .txt, .doc, .wps, .odt, etc ? Tu ne peux connaître l'extension de ton fichier que dans la console MSDOS (cliquer sur <démarrer>, puis sur <exécuter>, puis taper 'cmd' et cliquer sur OK, ceci ouvre une console DOS, aller dans le répertoire du ficheir et taper la commande <dir> puis <entrée>) Si tonfichier a une extenson particulière il faut, pour appeler ton fichier à l'exécution de ton programme, taper le nom du fichier, un point et l'extension comme ceci : monfichier.txt.

3) Je te repose quand même la question : as-tu fait ce que je t'ai dit à savoir déplacer ton fichier dans le même répertoire que celui de ton programme ? Réponds-moi oui ou non STP que je puisse éliminer des hypothèses.

4) Es-tu sous Vista ou sous XP ?

Wea,

Citation:

---

Envoyé par richard

Tu ne peux connaître l'extension de ton fichier que dans la console MSDOS

---

Gné ?

Citation:

---

Envoyé par richard

Ceci est à 99.99 % une erreur liée au système d'exploitation.

Tu ne peux connaître l'extension de ton fichier que dans la console MSDOS

---

Tu peux connaître l'extension de ton fichier dans la console MSDOS (puisque le programme en question focntionne en mode console).

Citation:

---

Envoyé par richard

Ceci est à 99.99 % une erreur liée au système d'exploitation.

1) Le nom de ton fichier est-il composé uniquement de lettres et de chiffres à l'exlusion de _,*,é,à,è,ê,ù,- etc. ? Si non renomme simplement en "Fichiertest.txt".
2) Quelle est l'extension du fichier (ce qui se situe après le point) : .txt, .doc, .wps, .odt, etc ? Tu ne peux connaître l'extension de ton fichier que dans la console MSDOS (cliquer sur <démarrer>, puis sur <exécuter>, puis taper 'cmd' et cliquer sur OK, ceci ouvre une console DOS, aller dans le répertoire du ficheir et taper la commande <dir> puis <entrée>) Si tonfichier a une extenson particulière il faut, pour appeler ton fichier à l'exécution de ton programme, taper le nom du fichier, un point et l'extension comme ceci : monfichier.txt.

3) Je te repose quand même la question : as-tu fait ce que je t'ai dit à savoir déplacer ton fichier dans le même répertoire que celui de ton programme ? Réponds-moi oui ou non STP que je puisse éliminer des hypothèses.

4) Es-tu sous Vista ou sous XP ?

---

Oui je l'ai mis dans le même repertoire et j'ai windows XP

Et les autres questions ?

Tapes-tu le point et l'extension de ton fichier ?
Quel est le nom complet de ton fichier ?

Citation:

---

Envoyé par richard

Et les autres questions ?

Tapes-tu le point et l'extension de ton fichier ?
Quel est le nom complet de ton fichier ?

---

Ce qui est étrange c'est que mon prof de math arrive à ouvrir un fichier avec mon programme en entrant le chemin complet d'aacès de type "C:\Documents\...\..\...txt" mais en procédant de la même manière chez moi ça fonctionne toujours pas

Bonsoir,

Ce serait bien de répondre précisément aux questions posées parce que cela donne des pistes pour t'aider.

Donc, merci de nous donner les noms complets du fichier (nom + extension) ainsi que le chemin complet du répertoire dans lequel se trouve le programme et ce fichier (puisqu'ils sont dans le même répertoire).