Détection de paragraphe dans un fichier texte

Version imprimable

18/02/2007, 15h07
superdj

Détection de paragraphe dans un fichier texte

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
18/02/2007, 16h32
Loceka
pour compter le nombre de paragraphe (ou plutôt de lignes vides), tu n'as qu'à faire :
Code:

1 2 3 4 5 6 while (not eof(F)) do begin readln(F,ligne); if (ligne = '') then n := n+1; end;
18/02/2007, 16h34
superdj

que veut dire la commande eof(F) je conanit eof tout seul mais pas avec quelque chose entre parenthese
18/02/2007, 16h41
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.
18/02/2007, 16h43
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?

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

Code:

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}

18/02/2007, 17h27
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
18/02/2007, 19h02
superdj

j'ai une question comment declarer F dans les variables?
18/02/2007, 19h09
M.Dlb

Code:

var F: Text;
18/02/2007, 20h03
Loceka
enfin, le plus important est de "lier" le (pointeur de _) fichier à l'emplacement du fichier sur le disque :
Code:

1 2 Assign(F, 'X:\...\fichier.txt'); // Lie la variable F au fichier Reset(F); // ouvre le fichier
18/02/2007, 20h08
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.
18/02/2007, 20h39
M.Dlb

Hein ? C'est pas français tout ça...
19/02/2007, 11h16
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 ;)