このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1197620454/581
#  問題3:ファイルのデータ(英文)を読み込み、一行毎の文字数(スペースも含む)とワード数を数えるプログラム。  
#  (実行結果例)  
#  (例として次のような C:\test3.txtを入力する)  
#  And friends just can't be found  
#  Like a bridge over troubled water  
#  I will lay me down ←の文章を以下のようなプログラムにする。  
#   
#  ファイル名を入力してください:C:\test3.txt  
#  1:And friends just can't be found  
#  ⇒31文字、6ワード  
#  2:Like a bridge over troubled water  
#  ⇒33文字、6ワード  
#  3:I will lay me down  
#  ⇒18文字、5ワード  
#   

'ファイルのデータ(英文)を読み込み、一行毎の文字数(スペースも含む)とワード数を数える'(_ファイル) :-
        get_lines(_ファイル,Lines),
        append(_,[S|R],Lines),
        sub_atom(S,0,_文字数,0,S),
        split(S,[' ',',',':'],L1),
        length(L1,_ワード数),
        write_formatted('%t\n=%t文字、%tワード\n',[S,_文字数,_ワード数]),
        R = [],!.