Discussion :

[Archy27]

Bonjour à tous,
j'aimerais savoir comment faire pour lire des mots dans un fichier texte .txt en dissociant bien les trous blancs (ie: ' ').
Le problème est qu'avec un readln(f,chaine), il lit toute la ligne du texte donc plusieurs mots à la suite apparaissent...

Regardez le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
    s : string;
    f : text;
 
BEGIN
Assign(f,'c:\bibi.txt');
reset(f);
while not eof(f) do
   begin
      readln(f,s);
      writeln(s); 
   end;     
END.

En théorie, il devait afficher mot par mot les éléments du texte mais en vérité, il affiche ligne par ligne les éléments du texte car readln(f,s) lit la chaine de caractère du fichier f jusqu'à un eoln. Donc j'aimerais bien savoir quelle est la commande, ou tout simplement comment faire pour afficher mot par mot les éléments du texte.

[droggo]

Loe,

...
Le problème est qu'avec un readln(f,chaine), il lit toute la ligne du texte donc plusieurs mots à la suite apparaissent...

En théorie, il devait afficher mot par mot les éléments du texte mais en vérité, il affiche ligne par ligne les éléments du texte car readln(f,s) lit la chaine de caractère du fichier f jusqu'à un eoln. Donc j'aimerais bien savoir quelle est la commande, ou tout simplement comment faire pour afficher mot par mot les éléments du texte.

Non, pas "en théorie", mais "ce tu voudrais faire".

Tu n'as pas le choix, il faut lire chaque ligne, et ensuite la découper en mots.

[darrylsite]

Tu n'as pas le choix, il faut lire chaque ligne, et ensuite la découper en mots.

rien est impossible en programmation si on a un peu d' imagination.
regarde un peu ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
program fichier;
uses crt;
var f:text;
    c:char;
    ch:string;
begin
{change le chemin du fichier}
assign(f,'c:\fichier.txt');
reset(f);
while not eof(f) do
 begin
 ch:='';
{on lit tous les caracteres jusqu' à trouver un espace}
{A ameliorer si il y' a plusiers espaces entre deux mots}
 repeat
 read(f,c);
 ch:=ch+c;
 until c=' ';
 write(ch);
 delay(100);
 end;
 close(f);
 end.

[droggo]

Sio,

rien est impossible en programmation si on a un peu d' imagination.
regarde un peu ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
program fichier;
uses crt;
var f:text;
    c:char;
    ch:string;
begin
{change le chemin du fichier}
assign(f,'c:\fichier.txt');
reset(f);
while not eof(f) do
 begin
 ch:='';
{on lit tous les caracteres jusqu' à trouver un espace}
{A ameliorer si il y' a plusiers espaces entre deux mots}
 repeat
 read(f,c);
 ch:=ch+c;
 until c=' ';
 write(ch);
 delay(100);
 end;
 close(f);
 end.

Ouais, et les caractères CR, LF, et tous les caractères de ponctuation, ... se retrouvent dans ta chaine.

Qui plus est, il faudrait de toute manière sécuriser (que se passe-t-il si on a plus de 255 caractères à suivre sans espace, par exemple).

Et le plus simple est de lire une ligne, et faire une fonction pour la découper en mots, en tenant compte de tous les caractères considérés comme étant des séparateurs de mots (un avantage est qu'on peut plus tard réutiliser cette fonction ).

[Archy27]

Ha oui je vois mieux comme cela. Je n'avais pas pensé à additionner 2 chaînes de caractères en commençant par ch := ' '.
Je pensais que c'était impossible mais en fait non . Merci de votre aide !!