このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1323566370/159
#  ●正規表現の使用環境 
#  テキスト 
#   
#  ●検索か置換か? 
#  置換 
#   
#  ●説明 
#  文章内の指定した数の改行毎に、行を一段開けたい。 
#  下記例文なら改行三つごとに行を一段開けたい。 
#   
#  ●対象データ 
#  (例文) 
#  人は誰しも初体験にはほろ苦く、甘酸っぱい思い出があるものだが、人生の諸先輩方はどんな童貞喪失体験をしたのか? 
#  「シリーズ初体験」−−現在70歳の会社役員(兵庫県)が当時の思い出を語った。 
#  中学2年の時、国語の女教師に「勉強を教えてあげるから家においで」といわれ、夏休みに入ってすぐに先生の家を訪れました。 
#  教師になって3年目、美人ではないけれど、私にとっては優しいお姉さんのような存在でした。 
#  何人かいるのかなと思ったんですが、先生の家に行くと私の他は誰もいませんでした。 
#  勉強を教わり、夕食をご馳走になり、その日は泊めてもらいました。 
#  夜中、下半身がもぞもぞするので目が覚めると、先生が私の浴衣の裾を広げていました。 
#   
#  ●希望する結果 
#  人は誰しも初体験にはほろ苦く、甘酸っぱい思い出があるものだが、人生の諸先輩方はどんな童貞喪失体験をしたのか? 
#  「シリーズ初体験」−−現在70歳の会社役員(兵庫県)が当時の思い出を語った。 
#  中学2年の時、国語の女教師に「勉強を教えてあげるから家においで」といわれ、夏休みに入ってすぐに先生の家を訪れました。 
#   
#  教師になって3年目、美人ではないけれど、私にとっては優しいお姉さんのような存在でした。 
#  何人かいるのかなと思ったんですが、先生の家に行くと私の他は誰もいませんでした。 
#  勉強を教わり、夕食をご馳走になり、その日は泊めてもらいました。 
#   
#  夜中、下半身がもぞもぞするので目が覚めると、先生が私の浴衣の裾を広げていました。 
#  ------------------------- 
#  よろしくお願いします。 
# 
# 

'文章内の指定した数の改行毎に、行を一段開ける'(_ファイル,_n行毎) :-
        get_lines(_ファイル,Lines),
        'n行毎に改行を挿入する'(Lines,Lines2),
        表示する(_ファイル,Lines2).

'n行毎に改行を挿入する'([A,B,C|R1],[A,B,C,'\n'|R2]) :-
        'n行毎に改行を挿入する'(R1,R2),!.
'n行毎に改行を挿入する'(L,L).

表示する(_ファイル,Lines) :-
        put_lines(_ファイル,Lines).