このディレクトリの索引
#  
#  特定の文字が含まれる行のみ消す場合の正規表現教えて下さい.
#  

特定の文字が含まれる行のみ消す(_文字列,_特定の文字列,_特定の文字を含む行を除いて結合し直した文字列) :-
        sPLIT(_文字列,['\n'],L),
        特定の文字が含まれる行のみ消す(L,_特定の文字列,_特定の文字を含む行を除いた文字列ならび),
        atomic_list_concat(_特定の文字を含む行を除いた文字列ならび,_特定の文字を含む行を除いて結合し直した文字列).

特定の文字が含まれる行のみ消す([_文字列,'\n'|R1],_特定の文字列,L) :-
        特定の文字が含まれる(_文字列,_特定の文字列),
        特定の文字が含まれる行のみ消す(R1,_特定の文字列,L2),!.
特定の文字が含まれる行のみ消す([_文字列,'\n'|R1],_特定の文字列,[_文字列,'\n'|R2]) :-
        特定の文字が含まれる行のみ消す(R1,_特定の文字列,R2),!.
特定の文字が含まれる行のみ消す(L,_,L).

特定の文字が含まれる(_文字列,_特定の文字列) :-
        sub_atom(_文字列,_,_,_,_特定の文字列),!.