このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1268979408/503
#  秀丸ですが、指定の文字列が無い行全てを削除したいです。 
#   
#  以下の様な複数行のターゲットがあって、zyzの文字列が有る行のみ 
#  残したいのです。 
#   
#  .+[^(zyz)].+\n じゃダメだったし、力不足でニッチもサッチもいきませんorz 
#  どなたかHELP ME・・・・・ 
#   
#  AAABBBzzyCCDDDEEEAAA 
#  AAABBBDDzyzEEEAAA 
#  AAABBBCCzyzEEEAAA 
#  AAABBBCCDDDAAA 
#  AAACCDDDEEEAA 
#  AzyzAABBBCCDDDEEEAAA 
# 

指定の文字列が無い行全てを削除したい(_ファイル名,_削除指定文字列) :-
        get_lines(_ファイル名,Lines),
        findall(_行,(
                    append(_,[_行|_],Lines),
                    指定文字列がある(_行,_削除指定文字列)),
                Lines2),
        put_lines(_ファイル名,Lines2).                    

指定文字列がある(_行,_指定文字列) :- sub_atom(_行,_,_,_,_指定文字列),!.