このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1276873238/534
#  テキストボックスに 
#  A222BあああA555BえええAおおおB55A454B 
#  と入っていたとします。 
#  この文字列の 
#  AとBとその間の文字を1セットにして、AとBの間の文字に5が入っていたときだけ、AとBを削除する 
#   
#  このようなロジックをつくっていただけないでしょうか? 
# 

'AとBとその間の文字を1セットにして、AとBの間の文字に5が入っていたときだけ、AとBを削除する'(_文字列,_削除された文字列) :-
        sub_atom(_文字列,_,_,_,S1,S2,S3,L1,['A'|R2],['B'|R3]),
        \+(member('A',R2)),
        \+(member('B',R2)),
        '5が入っている'(R2),
        append([S1|R2],R3,L),
        concat_atom(L,_削除された文字列),!.

'5が入っている'(L) :-
        member('5',L),!.