从 swi-prolog 代码将数据写入 CSV 文件

Question

如何从下面的序言代码将数据写入 CSV 文件？

谢谢，

SB

run:-
   member(A,[a,b,c,d,e]),
   member(B,[1,2,3,4,5,6]),
   write(A),write(' '),write(B),nl,
   fail.
run.

Answer 1

简单的解决方案

由于您使用的是 SWI-Prolog，因此您可以使用 CSV library。

?- use_module(library(csv)).
?- findall(row(A,B), (member(A, [a,b,c,d,e]), member(B, [1,2,3,4,5])), Rows), csv_write_file('output.csv', Rows).

如您所见，我分两步完成：

1. 我创建row(A, B) 形式的术语。
2. 然后我将这些术语交给csv_write_file/2，它负责创建语法正确的输出文件。

非标准分隔符

在您的问题中，您不是在A 和B 之间写一个逗号，而是一个空格。如果您真的想使用空格作为分隔符，您可以将其设置为选项：

csv_write_file('output.csv', Rows, [option(separator(0' )])

“不平衡”参数

另外，在您的问题中，B 的值比A 的值多。您可以编写代码来处理这个问题，但是有几种方法可以处理这个问题。例如，（1）您可以用nill 填充缺失的单元格； （2）same_length(As, Bs)失败可以抛出异常； (3) 你只能写“完整”行：

length(As0, N1),
length(Bs0, N2),
N is max(N1, N2),
length(As, N),
append(As, _, As0),
length(Bs, N),
append(Bs, _, Bs0),