このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/514
#  すみません、質問させてください。 
#   
#  曲名のリストを一括置換しようとしています。具体的には"〜 by"が 
#  入る丸括弧だけ四角括弧"[ ]"に置き換えたいのです。 
#   
#  例 
#  This is me (talk) (Composed by Johan) 
#  ↓ 
#  This is me (talk) [Composed by Johan] 
#   
#  どのような書式にすればいいかご教示お願いします。 
#   

'曲名のリストを一括置換しようとしています。具体的には"〜 by"が入る丸括弧だけ四角括弧"[ ]"に置き換えたいのです。'(_文字列,_置換された文字列) :-
        sub_atom(_文字列,_,_,_,S1,S2,S3,L1,['('|R1],L3),
        last(R1,')'),
        \+(append(_,['('|_],R1)),
        split(R1,['(',')',' by '],[A,B]),
        concat_atom([S1,'[',A,' by ',B,']',S3],_置換された文字列).