File 如何删除prolog文件中的所有空格和发送？

我想读一个文件，删除所有的空格和发送（nl）这些，并把所有的东西都放在一个列表中

例如： 从

如何实现这一目标

---

谢谢

如果你的Prolog有合适的内置程序，比如/3和/2，你可以这样做

file_to_list(File, List) :-
  read_file_to_codes(File, Codes, []),
  exclude(bad_char, Codes, List).

bad_char(C) :-
  code_type(C, space).

---

读取文件（文件，列表）：-打开（文件，读取，S），设置输入，读取文件到代码（文件，代码，列表），关闭。read_file_to_code（file，code，[]）、exclude（bad_char，code，List）、bad_char（C）：-code_type（C，space）。不起作用，我无法通过读取文件来实现，read_file（'prova.txt'，L）。（1） 调用：读取_文件（'prova.txt'，_1055）？（2） 调用：在\u流的\u端\u（'prova.txt'）？序言第1条错误：在\u流/1的\u端！！存在错误-过去的\u eof/1:prova.txt不是开放流（2）异常：在\u流的\u末端（'prova.txt'）？（1） 重做：读取_文件（'prova.txt'，_1055）？（3） 调用：在\u流的\u端\u（'prova.txt'）？序言第1条错误：在\u流/1的\u端！！存在错误-过去的\u eof/1:prova.txt不是开放流（3）异常：在\u流的\u末端（'prova.txt'）？序言第1条错误：读/2！！存在错误-读取/3:prova.txt不是开放流（1）异常：读取文件（'prova.txt'，_1055）？不，你应该试试？-将文件保存到列表（'c:/prova.txt'，L）。

file_to_list(File, List) :-
  read_file_to_codes(File, Codes, []),
  exclude(bad_char, Codes, List).

bad_char(C) :-
  code_type(C, space).