windows - SWI-Prolog 写入文件

Question

我看到了以下线程，它们非常有用并且与我的问题相关

Writing in file | Swi-Prolog | Windows\

Prolog insert, modify and delete facts on a separated database text file

我尝试使用 tell、told see、seen 从文本文件中读取和写入，但我得到了相同的结果，当(我打开它并看到)时文件上没有任何内容，并且在读取时系统读取 end_of_file或者在消息或控制台上显示错误以下是我的一些工作示例:

start1:-
    open('output.txt',write,OS),
    X = 'Hi all',
    write(OS,X),
    close(OS),
    open('output.txt',read,OS2),
    read(OS2,Input).


start1:-
    absolute_file_name('X.data',Abs),
    open(Abs,write,Out),
    tell(Abs),
    write('HiAll'),
    told,
    close(Out),
    open(Abs,read,In),
    see('X.data'),
    read(X),
    seen,
    write(X).

Answer 1

非常感谢@CapelliC 下面的代码，我写的，工作正常read 内置谓词用于读取术语，当到达文件末尾时显示错误，我改为使用 read_line_to_codes

readfacts:-
    open('output.txt',read,In),
    repeat,
    read_line_to_codes(In,X),writef(" "),
    writef(X),nl,
    X=end_of_file,!,
    nl,
    close(In).


writefacts:-
    open('output.txt',write,Out),
    write(Out,'Age(Peter,30)'),
    write(Out,'Skin(Smith,Black).'),
    close(Out).