プロローグ、Iはプロローグに異なるCSVファイルを読み込むために必要

Question

異なるセパレータをCSVからデータを読み、いくつかの行が他のファイルに、0'\tでフォーマットされているが、空間0'でフォーマットされています。

は、私が使用：

read_points(Filename, Points) :- 
     csv_read_file(Filename, P,[convert(true),functor(pt),separator(0'\t)]), 
     csv_read_file(Filename, P,[convert(true),functor(pt),separator(0')]). 

しかし、私に二つの異なるリストを返すので、それはうまくいきません。

どのように私はそれがcorrectleyコーディングすることができますか？ ありがとうございます。

EDIT：'0\tと ファイルの例：'0と

0.1  5 
3  5 
5  8 

は、例：

0.1 5 
3 5 
5 8 

Answer 1

スペースかがある場合、私はそれがIfステートメントを使用して、最初の行で検索解決。

read(Filename, Elements) :- 
( space(Filename) 
-> csv_read_file(Filename, L,[functor(line),separator(0')]) 
; csv_read_file(Filename, L,[functor(line),separator(0'\t)]) 
). 

space(File):- 
    read_first(File,L), 
    once(member(32,L)). 

read_first(File, sol) :- 
    see(File), 
    read_one_line(Codes), 
    seen, 
    Sol = Codes. 

read_one_line(Codes) :- 
    get0(Code), 
    ( Code < 0 /* end of file */ -> 
     Codes = [] 
    ; Code =:= 10 /* end of line */ -> 
     Codes = [] 
    ; Codes = [Code|Codes1], 
     read_one_line(Codes1) 
).