Discussion :

[waoul]

Bonjour a tous,

je suis entrain de developper un jeu de scrabble en swi-prolog et j'ai besoin de lire les mots a partir d'un fichier.

donc j ai reussi a ouverir le fichier avec "see(+file)" mais j ai pas pu le lire les atomes contenu avec "read(?T)", et a chaque fois que il me retourne "T=end_of_file" sans passer par les atomes (qui sont des mots) comme si le fichier est vide.

je ne sait pas trop quoi faire.

alors si kelk1 peut m'aider je lui en serai tres reconnaissant.
et merci d'avance.

[Trap D]

Oui, c'est un peu difficile de lire des fichiers.
En SWI-Prolog tu as la bibliothèque "readutil".
Essaie ce petit programme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
test :-
	open('D:/Developpements/Prolog/DVP/donnees.txt', read, File),
	my_read(File, Lst),
	close(File),
	writeln(Lst).
 
 
my_read(File, L) :-
	read_line_to_codes(File, T),
	(   T  = end_of_file -> L = [];
	atom_codes(T1, T),
	my_read(File, L1), L = [T1 | L1]).

Dans donnees.txt j'ai ceci :

voiture
papier
machine
vélo

[Patnel]

bonjour,

je viens de lire cette discussion et je suis interessé, car je débute dans prolog
et j'aimerai en premier pouvoir récupérer des données dans un fichier, les traiter puis écrire le résultat dans un autre fichier.
je viens d'essayer le petit exemple donné, mais swi n'arrive pas à ouvrir le fichier car il ne reconnait pas le chemin.
je suis en windows Xp Sp1, peut être est-ce une question de séparateur / ou \,
voilà l'erreur qu'il me renvoie:
| test.
ERROR: source_sink `'DocumentationPROLOGPROLOG_SWIPrologdemodonnees.txt'' does not exist (No such file or directory)
Exception: (8) open('DocumentationPROLOGPROLOG_SWIPrologdemodonnees.txt', read, _G236) ?

le chemein que je donne est :
open('D:\Documentation\PROLOG\PROLOG_SWI\Prolog\demo\donnees.txt', read, File),


merci pour la réponse

[Trap D]

Fais des doubles \ ou simplement des /.
open('D:\\Documentation\\PROLOG\\PROLOG_SWI\\Prolog\\demo\\donnees.txt', read, File),
Perso j'utilise Vista Intégral et les / fonctionnent très bien.

[Patnel]

exact avec des / ça marche, je n'ai pas vista
donc pas évident de récupérer des chemins DOS
ouf passé ce détail , de la même façon qu'on peut lire ,j'aimerai savoir comment dans un programme prolog on peut écrire dans un fichier.

[Trap D]

Tu peux consulter ce post où des exemples d'écriture dans un fichier sont donnés.

[Patnel]

ok merci bien, maintenant j'ai un début d'interface : je donne le code en exemple pour ceux que ça interesse:

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
 
test :- 
	open('D:/Documentation/PROLOG/PROLOG_SWI/Prolog/demo/donnees.txt', read, File), 
	my_read(File, Lst), 
	close(File),
% redirection vers le fichier donnees_out.txt
tell('D:/Documentation/PROLOG/PROLOG_SWI/Prolog/demo/donnees_out.txt'),
write('donnees sont:'),nl,
 writeln(Lst),
told.
 
my_read(File, L) :- 
	read_line_to_codes(File, T), 
	( T = end_of_file -> L = []; 
	atom_codes(T1, T), 
	my_read(File, L1), L = [T1 | L1]).
%ce programme marche 
%le but est test. il renvoie bien le contenu du fichier de lecture dans le 
%fichiers résultat

MAINTENANT AU TRAVAIL !!!
je suis toujours partisant de discuter de prolog avec d'autres débutants,
j'accepte les mails