このディレクトリの索引
#  ●Regular Expressionの使用環境
# 
#  
#  ●検索か置換か?
#  置換
#  
#  ●説明
#  複数行の空行を1つの空行にしたい
#  
#  ●対象データ
#  
#  
#  
#  
#  
#  ●希望する結果 
#  

複数行の空行を1つの空行にしたい(_ファイル) :-
        get_chars(_ファイル,_文字ならび),
        複数行の空行を1つの空行にしたい(_行ならび,_複数の空行を1つの空行にした文字ならび),
        put_chars(_ファイル,_複数の空行を1つの空行にした文字ならび).

複数行の空行を1つの空行にしたい([],[]).
複数行の空行を1つの空行にしたい(['\n','\n'|_残り行ならび],_複数の空行を1つの空行にした行ならび) :-
        複数行の空行を1つの空行にしたい(['\n'|_残り行ならび],_複数の空行を1つの空行にした行ならび),!.
複数行の空行を1つの空行にしたい([A|R1],[A|R2]) :-
        複数行の空行を1つの空行にしたい(R1,R2),!.

get_chars(_ファイル,_文字ならび) :-
        open(_ファイル,read,Instream),
        findall(_文字,(
                    at_end_of_stream(Instream),!,fail;
                    get_char(Instream,_文字))),
                _文字ならび),
        close(Instream).

put_chars(_ファイル,_文字ならび) :-
        open(_ファイル,write,Outstream),
        append(_,[_文字|R],_文字ならび),
        putchar(Outstream,_文字),
        R = [],
        close(Outstream).