将文件中的信息读出并摆放进List---read_to_list谓词

read_to_list(+Filename, -List)

以行为单位，连续将Filename文件中的原子读出并摆放进List。

代码:

read_to_list(Filename, List) :- see(Filename), loop(List,[]), seen.
loop --> {read(X)} , ( { X \= end_of_file } -> [X], loop ; [] ), !.

例：

文件C:\test.txt里有如下信息：

123.
atm.
hahaha.

执行 ?- read_to_list('C:/test.txt', Input).
传回 Input = [123, atm, hahaha].



适用的Prolog版本：SWI-Prolog

现在发现SWI-Prolog里的read_file_to_terms谓词就可以做到此功能。
同样例子下，写法是read_file_to_terms('C:/test.txt', Input, [])。