Discussion :

[ENSMM]

Boujour,
J ai été formé et utilisé le PROLOG il y a environ 20 ans. Pour traiter des données de type "mots" je viens de me remettre à PROLOG. Mon environnement est PC sous XP et GNU PROLOG. Mes prédicats (certes simples) fonctionnent. Souhaitant traiter des données provenant d'un fichier j'ai cherché à l'aide du manuel en ligne. Après de multiples essais je ne parviens pas à lire les données d'un fichier. J'ai donc décidé de tester les prédicats un par un. Le code suivant me renvoi une erreur (dans un fichir .pl que je "consult":

go:-see('c:\fichier.txt'),seen.

| ?- go.
uncaught exception: error(permission_error(open,source_sink,'c:\fichier.txt'),see/1)
| ?-


Si quelqu'un peut m'expliquer comment ouvrir puis lire le contenu d'un fichier en GNU PROLOG merci d'avance

[Trap D]

Bonjour
Je ne connais pas GNU-Prolog mais voici un code qui permet de lire un fichier txt et d'obtenir un atom :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
test :-
	open('C:/fichier.txt', read, In),
	my_read(In, U-U, Text), 
	close(In),
	write(Text), nl.
 
my_read(In, U, Text) :-
	get_char(In, Ch),
	(Ch \= end_of_file ->  append_dl(U, [Ch|Y]-Y, V), my_read(In, V, Text)
	;	U = Lst-[], atom_chars(Text, Lst)).
 
append_dl(X-Y, Y-Z, X-Z).

Il existe peut-être des modules tout faits pour la lecture des fichiers texte, je ne sais pas

[ENSMM]

Merci de cet exemple je vais tester. Entre temps j'ai téléchargé SWI PROLG car il me semble qu'il y a plus de ressources didactiques sur le WEB pour cette version de Prolog.

[Trap D]

Oui, je pense que la communauté est plus grande, et je connais mieux SWI-Prolog
Pour lire les fichiers textes, il y a un module read_util je crois

[izemouss]

ou se termine ce code juste pour lire un fichier txt ???

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
test :-
	open('C:/fichier.txt', read, In),
	my_read(In, U-U, Text), 
	close(In),
	write(Text), nl.
 
my_read(In, U, Text) :-
	get_char(In, Ch),
	(Ch \= end_of_file ->  append_dl(U, [Ch|Y]-Y, V), my_read(In, V, Text)
	;	U = Lst-[], atom_chars(Text, Lst)).
 
append_dl(X-Y, Y-Z, X-Z).

[Trap D]

D'après vous ?
Quelle idée de ressusciter cette discussion vieille de 5 ans !