このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/506
#  下記の2文にあるfontタグを消したいです。 
#  正規表現を用いた1度の置換で消せますか? 
#   
#  <dd><font style="font-size:;color:;"> テスト <br> テスト </font><br><br></dd> 
#  <dd><font style="font-size:;color:;"> テスト2 <br> テスト2 </font><br><br></dd> 
#   
#   
#  考え方として 
#  <dd><font style="font-size:;color:;">がある行のうち</font>を削除し、そのあと<font style="font-size:;color:;">を削除 
#  これで行けそうかと思ったのですが、●●がある行のうち○○を削除、という正規表現がわかりませんでした・・・ 
# 
# 

'fontタグのみ削除する'(_文字列,_fontタグが削除された文字列) :-
        sub_atom(_文字列,_,_,_,S1,S2,S3,L1,L2,L3),
        append([<,f,o,n,t|R1],[>],L2),
        \+(append(_,[>|_],R2)),
        append(L3_0,[<,/,f,o,n,t,>|R3],L3),
        \+(append(_,[<,/,f,o,n,t,>|_],L3_0)),
        append(L1,L3_0,R3,L4),
        atom_chars(_fontタグが削除された文字列,L4).