このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/519
#  質問させて下さい。 
#   
#  ABC 
#  …LMNO……… 
#  ……LMNO…… 
#  ………LMNO… 
#  XYZ 
#   
#  というような文章があったとします。 
#  「LMNO」の前後(「…」)には文字(日本語や英数字)があります。 
#   
#  Perl5互換の正規表現が使えるテキストエディタや、BREGEXP.DLLが使える置換えソフトを使用し、 
#  「ABC」から「XYZ」までにある「LMNO」を「OOOO」に置換えすることは可能でしょうか? 
#  特定の範囲内の文字だけを置換えする正規表現がわからず、検索文字列と置換え文字列の指定で困っています。 
#  どのようにすれば良いのか教えて頂けると助かります。よろしくお願いします。 
# 
# 

'特定の範囲内の文字だけを置換えする正規表現がわからず、検索文字列と置換え文字列の指定'(Lines,_置換されたLines) :-
        append(L0,['ABC'|R1],['XYZ'|R2],Lines),
        findall(Line2,(
                    append(_,[Line|_],R1),
                    'LineのLENOをOOOOに置換する'(Line,Line2)),
                Lines2),
        append(L0,Lines2,R2,_置換されたLines).

'LineのLENOをOOOOに置換する'(Line,Line2) :-
        sub_atom(Line,_,_,_,S1,'LENO',S3,L1,L2,L3),
        concat_atom([S1,'OOOO',S3],_置換されたLine),!.
'LineのLENOをOOOOに置換する'(Line,Line).