Discussion :

[superdj]

Pouvez-vous m'aider ?
Pour un programme, j'ai besoin de réaliser l'opération suivante :

Dès qu'il y a une ligne vide (c'est-à-dire une ligne sans rien d'écrit), alors ecrire n.
Je précise que n corespond à une variable du programme (un nombre de paragraphes en fait).

En gros, je veux faire un truc qui, dès qu'il déctecte une ligne vide, m'affiche le nombre de paragraphes, mais là je bug.

Merci d'avance

[Loceka]

pour compter le nombre de paragraphe (ou plutôt de lignes vides), tu n'as qu'à faire :

Code :

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

1
2
3
4
5
6
while (not eof(F)) do
begin
  readln(F,ligne);
  if (ligne = '') then
    n := n+1;
end;

[superdj]

que veut dire la commande eof(F) je conanit eof tout seul mais pas avec quelque chose entre parenthese

[Loceka]

euh... tu travailles bien sur un fichier texte, non ?
Si tu travailles en interactif avec l'utilisateur, en lisant ce qu'il écrit dans la console alors c'est pas tout à fait la même chose.

Pour répondre à ta question, eof(F) teste si on est arrivé à la fin du fichier F.

[superdj]

ok en fait on appel un fichier texte , annexe sous dos , donc on travail avec la commance eof, donc tu a une idée avec eof?

[Tuxico]

le code que t'as donné Loceka est bon...

Code :

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

1
2
3
4
5
6
7
while (not eof(F)) do  {tant que ce n'est pas la fin du fichier}
begin             
  readln(F,ligne);       {ligne contient une ligne de F}
  if (ligne = '') then    {Si ligne est vide alors on incrémente n, càd le nombre de paragraphes}
    n := n+1;
end;
writeln(n);               {on affiche le nombre de paragraphe}

[superdj]

a voila la je comprend bien , merci pour ces explications clair de vous 2 , sinon la je bosse ma prog , je revindrai peut etre tt a l heure pour un exo ou j'ai du mal , mais pour le moment j'avance donc sa va
merci

[superdj]

j'ai une question comment declarer F dans les variables?

[M.Dlb]

Code :

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

var F: Text;

[Loceka]

enfin, le plus important est de "lier" le (pointeur de _) fichier à l'emplacement du fichier sur le disque :

Code :

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

1
2
Assign(F, 'X:\...\fichier.txt'); // Lie la variable F au fichier
Reset(F); // ouvre le fichier

[superdj]

ok , mais mon souci c'est que j'aimerai savoir le faire sans apeler un fichier dans turbo pascal , mais a partir d entré soi manuel , ou soi d appel de fichier text a partir du DOS.

[M.Dlb]

Hein ? C'est pas français tout ça...

[Tuxico]

tu veux le passer en argument?

voir FAQ Pascal, il y a un tuto sur comment recup les arguments d'une ligne de commande ^^

donc quand tu lanceras ton prog ca donnera par ex :

exemple ton_fichier.txt

donc tu peux varier le fichier

Sinon tu peux aussi demander a l'utilisateur de rentrerle nom du fichier une fois le programme lancé, de vérifier s'il existe bien avec FileExists() de sysutils; et ensuite l'assigner comme ci-dessus