このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1136788500/442
#  輝け甲子園の星(2010早春号)より 
#  選抜高校野球選手権大会出場選手「好きなタレント」アンケート 
#   
#  1位 北川景子 49票 
#  2位 上戸 彩 24票 
#  3位 香里奈  23票 
#  4位 佐々木希 22票 
#  5位 松本人志 18票 
#  6位 新垣結衣 17票 
#  7位 南 明奈 黒木メイサ 15票 
#  9位 木下優樹奈 12票 
#  10位 市川由衣 11票 
#  11位 EXILE 10票 
#  12位 ダウンタウン 相武紗季 9票 
#  14位 宮崎あおい 8票 
#  15位 柴咲コウ 戸田恵梨香 井上真央  コトリッチ 7票 
# 
# 

姓名表示のクセを補正する事例 :-
        '"好きなタレント.txt" ファイルから次のデータを呼び出し、述語 好きなタレント順位/3 を定義する'.

'"好きなタレント.txt" ファイルから次のデータを呼び出し、述語 好きなタレント順位/3 を定義する' 
        get_split_lines('好きなタレント.txt',[' '],_順位ならび), 
        member(_行情報,_順位ならび), 
        行解析(_行情報,_順位,_票,_姓名ならび), 
        member(_姓名,_姓名ならび), 
        assertz(好きなタレント(_順位,_姓名,_票)), 
        fail. 
'"好きなタレント.txt" ファイルから次のデータを呼び出し、述語 好きなタレント順位/3 を定義する'.

行解析([_順位1|R1],_順位,_姓名ならび,_票) :-
        sub_atom(_順位1,_,1,0,位),
        sub_atom(_順位1,0,_,1,_順位文字列から位を除いた文字列),
        全角文字数値整数変換(_順位文字列から位を除いた文字列,_順位),
        行解析_1(R1,_姓名ならび,_票).

行解析_1([A],[],_票) :- sub_atom(A,_,1,0,票),sub_atom(A,0,_,1,B),全角文字数値整数変換(B,_票),!.
行解析_1(L1,[B|R2],_票) :- 姓名変換(L1,B,R1),行解析_1(R1,R2,_票).

姓名変換([_姓,_名|R],_姓名,R) :- sub_atom(_姓,0,2,0,_姓),sub_atom(_名,0,1,0,_名),concat_atom([_姓,_名],_姓名),!.
姓名変換([_姓,_名|R],_姓名,R) :- sub_atom(_姓,0,1,0,_姓),sub_atom(_名,0,2,0,_名),concat_atom([_姓,_名],_姓名),!.
姓名変換([_姓名|R],_姓名,R).