このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1263824755/299
#  [1] 授業単元:コンピュータリテラシー 
#  [2] 問題文(含コード&リンク): 
#  あるファイルの名簿を呼びだし、名前もしくは名字で検索しその結果を新しいファイルに保存する。あるファイルの名簿は特に決められていない。 
#  http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10456.txt 
#  
名簿を呼びだし、名字で検索しその結果を新しいファイルに保存する(_名簿ファイル,_出力ファイル,_検索する名字) :-
    名簿を呼び出し(_名簿ファイル,L),
    名字で検索しその結果を新しいファイルに保存する(_出力ファイル,L,_名字),!.

名簿を呼び出し(_名簿ファイル,L) :-        
    get_split_lines(_名簿ファイル,[' ',','],L),!.

名字で検索しその結果を新しいファイルに保存する(_出力ファイル,L,_名字) :-
    tell(_出力ファイル),
    名字で検索しその結果を新しいファイルに保存する(L,_名字),
    told.

名字で検索しその結果を新しいファイルに保存する([],_) :- !.
名字で検索しその結果を新しいファイルに保存する([[_名字,_名前,_住所,_電話番号]|R],_名字) :-
    write_formatted('%t,%t,%t,%t\n',[_名字,_名前,_住所,_電話番号]),
    名字で検索しその結果を新しいファイルに保存する(R,_名字),!.
名字で検索しその結果を新しいファイルに保存する([_|R],_名字) :-
    名字で検索しその結果を新しいファイルに保存する(R,_名字),!.