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.