このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1323566370/741
#  ●正規表現の使用環境 
#  PCREライブラリを使用したアプリケーション 
#   
#  ●検索か置換か? 
#  置換 
#   
#  ●説明 
#  括弧内に特定の文字列が有れば対応する括弧を装飾したい 
#  
#  (例ではCCCを含むものを検索し対応する括弧に*を加える) 
#   
#  ●対象データ 
#  (AACCCDDAABBB) 
#  (AACAABBDBABC) 
#  CDAA(DB(CC)C)(CDD) 
#  C(AA(ABBD)(BCCC)C) 
#   
#  ●希望する結果 
#  (*AACCCDDAABBB*) 
#  (AACAABBDBABC) 
#  CDAA(DB(CC)C)(CDD) 
#  C(AA(ABBD)(*BCCC*)C) 
# 
# 

'括弧内に特定の文字列が有れば対応する括弧を装飾したい'(_文字列,_特定文字列,_置換された文字列) :-
        sPLIT(_文字列,['(',')',' '],L),
        findall(_置換された要素,(
                    append(L0,[A|R],L),
                    要素文字列置換(A,_特定文字列,_置換された要素)),
                L),
        atomic_list_concat(L,_置換された文字列).

要素文字列置換(A,_特定文字列,_置換された要素) :-
        sub_atom(A,_,_,_,_特定文字列),
        atomic_list_concat(['*',A,'*'],_置換された要素),!.
要素文字列置換(A,_,A).