このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/482
#  どなたかご教授ください・・・ 
#  ●正規表現の使用環境 
#  EmEditor 
#   
#  ●検索か置換か? 
#  置換 
#   
#  ●対照データ  
#  ;AA[aa][ab][ac][ad]・・・・・[zw][zx][zy][zz];AB[aa][zy]AC[ab] 
#  ;AA[aa][ab][ac][ad]・・・・・[zw][zx][zy][zz];AB[df]AC[aa][fb] 
#  ;AA[aa][ab][ac][ad]・・・・・[zw][zx][zy][zz];AB[bc][fh]AC[ge][eg] 
#   
#  ●希望する結果  
#  ;AA[ac][ad]・・・・・[zw][zx][zz];AB[aa][zy]AC[ab]     ←;AAの後ろから[aa][zy][ab]を削除 
#  ;AA[ab][ac][ad]・・・・・[zw][zx][zy][zz];AB[df]AC[aa][fb]     ←;AAの後ろから[df][aa][fb]を削除 
#  ;AA[aa][ab][ac][ad]・・・・・[zw][zx][zy][zz];AB[bc][fh]AC[ge][eg]    ←;AAの後ろから、[bc][fh][ge][eg]を削除 
#   
#  すみませんが、よろしくお願いします。  
# 
# 

';AAの後ろから削除文字列を削除'(_対象文字列,_削除文字列,_削除された文字列) :-
        sub_atom(_対象文字列,_,_,_,S1,S2,S3,L1,[';','A','A'|R2],L3),
        \+(member(';',R2)),
        concat_atom(R2,_削除文字列),
        concat_atom([S1,';AA',S3],削除された文字列).     
';AAの後ろから削除文字列を削除'(_対象文字列,_削除文字列,_削除された文字列) :-
        sub_atom(_対象文字列,_,_,_,S1,S2,S3,L1,[';','A','A'|R2],L3),
        \+(member(';',R2)),
        concat_atom(R2,_削除文字列),
        ';AAの後ろから削除文字列を削除'(S3,_削除文字列,_削除された文字列のニ),
        concat_atom([S1,';AA',_削除された文字列のニ],_削除された文字列).
';AAの後ろから削除文字列を削除'(_対象文字列,_,_対象文字列).