このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1312201995/736
#   
#  ファイル1(テキスト)に 
#  AAA,BBB,CC,DDd,FF 
#  OOO,TTT,FF,AAA,VV 
#  DDD,EEE,GG,SSS,AA 
#  が入っていて、真ん中のCC、FF、GGの部分だけを配列に入れ、 
#  もうひとつのファイルに配列に入れた部分を 
#  保存したいのですが、どうしたらいいですか。 
# 

'ファイル1(テキスト)に AAA,BBB,CC,DDd,FF\\nOOO,TTT,FF,AAA,VV\\nDDD,EEE,GG,SSS,AA\\nが入っていて、真ん中のCC、FF、GGの部分だけを配列に入れ、もうひとつのファイルに配列に入れた部分を保存したい' :-
        get_split_lines(_ファイル1,[','],LL),
        '中間要素だけをならびとして'(LL,_中間要素ならび),
        'もうひとつのファイルにならびを保存する'(_もうひとつのファイル,_中間要素ならび).

'中間要素だけをならびとして'(LL,_中間要素ならび) :-
        findall(E,(
                    append(_,[L|_],LL),
                    append(L0,[E|R],L),
                    length(L0,Len),
                    length(R,Len)),
               _中間要素ならび),!.

'もうひとつのファイルにならびを保存する'(_もうひとつのファイル,L) :-
        open(_もうひとつのファイル,write,Outstream),
        write(Outstream,L),
        write(Outstream,'.\n'),
        close(Outstream).