swi prolog，如何读取txt.file的数据

Question

有人可以帮助我完成文件读取谓词吗？

get_userinfo: write('\nEnter Name:'),
          readln(Name),
          write('\nEnter Gender:'),
          read(Gender),
          append('marriage.txt') ,
          write(personal(Name,Gender,Age,Attr)),nl,
          told.

这是我的文本文件：

personal(chong,male).
personal(jack,female).
personal(kk,male).

Answer 1

不确定问题出在哪里：读还是写？看来您拥有所需的代码。我重写了它，将内容进一步分开，并提出了这个：

get_userinfo(personal(Name, Gender, Age, Attr)) :-
      write('Enter name: '),
      readln([Name|_]),
      write('Enter gender: '),
      readln([Gender|_]),
      write('Enter age: '),
      readln([Age|_]),
      write('Enter attr: '),
      readln([Attr|_]).

record_userinfo(Filename, Person) :-
      append(Filename),
      write(Person), nl,
      told.

从这里你可以像这样使用它：

:- get_userinfo(Person), record_userinfo('marriage.txt', Person).

如果你想读这个，你可能应该咨询它：< code>[marriages] 但您需要将其重命名为以“.pl”结尾。

编辑：有关读取文件的更多信息。

在 Prolog 中，有阅读，也有咨询。读取与其他语言一样，您手动从文件中读取数据并对其进行处理。如果您的输入文件也是 Prolog，则可以使用咨询；它相当于解析文件并将其中定义的事实和谓词添加到当前活动的会话中。例如，要查阅 marriage.txt 文件，您可以使用以下命令：

:- ['marriage.txt'].

现在您已经查阅了该文件，您可以使用数据库中的新事实执行查询：

?- ['marriages.txt'].
% marriages.txt compiled 0.00 sec, 1,328 bytes
true.

?- personal(X, Gender).
X = chong,
Gender = male ;
X = jack,
Gender = female ;
X = kk,
Gender = male.

?- personal(X, male).
X = chong ;
X = kk.

?- personal(chong, X).
X = male.

如果您想获取列表在所有 personal/2 事实中，您可以执行以下操作：

?- setof(personal(X,Y), personal(X,Y), Qs).
Qs = [personal(chong, male), personal(jack, female), personal(kk, male)].