通过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库 。

?- 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)失败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),