我想从文件中读取,然后以列表形式存储。每次出现逗号时,它将逗号前的所有字符组合成一个新单词。新行将指示它是一个新的子列表。这与Java读取文件时可以执行的操作非常相似。我正在学习序言,在读取文件并将它们作为执行不同操作的输入时遇到问题。您知道有什么方法可以帮助我读取文件并将这些数据用作不同功能的输入吗?谢谢。
读取文件:
Thales,Olivia,Jackson,Sophia
加拿大邮政,索菲亚,杰克逊,奥利维亚
思科,奥利维亚,索菲亚,杰克逊
代码:
read_from_file(File, A):-
open(File, read, Stream),
get_char(Stream, Char1),
process_the_stream(Char1, Stream, A),
close(Stream).
write_on_file(File,Text):-
open(File, append, Stream),
write(Stream, Text), nl,
close(Stream).
process_the_stream(end_of_file, _, []):- !.
process_the_stream(Char, Stream, [Char|B]):-
write(Char),
get_char(Stream, Char2),
process_the_stream(Char2, Stream, B).
当前输出:
A = ['T',h,a,l,e,s,',','O',l,i,v,i,a,',','J',a,c,k ,s,o,n,',','S',o,p,h,i,a,'\ n','C',a,n,a,d,a,'','P' ,o,s,t,',','S',o,p,h,i,a,',','J',a,c,k,s,o,n,',',' O',l,i,v,i,a,'\ n','C',i,s,c,o,',','O',l,i,v,i,a,', ','S',o,p,h,i,a,',','J',a,c,k,s,o,n]
需求输出:
A = [[Thales,Olivia,Jackson,Sophia],[加拿大邮政,Sophia,Jackson,Olivia],[Cisco,Olivia,Sophia,Jackson]]
这使用SWI-Prolog 8.x.y
:- use_module(library(csv)).
process_csv(File,Values) :-
csv_read_file(File,Rows),
rows_to_values(Rows,Values).
rows_to_values([],[]).
rows_to_values([Row|Rows],[Values|Values0]) :-
row_to_values(Row,Values),
rows_to_values(Rows,Values0).
row_to_values(Row,Values) :-
Row =.. List,
List = [_Functor|Values].
示例运行
?- process_csv('C:/Users/Groot/Documents/Projects/Prolog/SO_question_189_data.txt',Values).
Values = [['Thales', 'Olivia', 'Jackson', 'Sophia'], ['Canada Post', 'Sophia', 'Jackson', 'Olivia'], ['Cisco', 'Olivia', 'Sophia', 'Jackson']].
此答案与所需答案不同的原因是原子以'
预订,因此它们是原子而不是变量,因为变量以大写字母开头。