このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/741
#  全てのdivを削除したい訳でなく、<td....></td>間にある<div></div>を削除したいのです。 
#  <td....></td>間にあるものは削除して、それ以外は改行したいのです。 
# 

'tdタグの中のdivタグを取り除く'(_文字列,_取り除かれた文字列) :-
        atom_chars(_文字列,Chars),
        append(L0,[<,t,d,>|L],[<,/,t,d>|R1],Chars),
        \+(append(_,[<,t,d,>|R2],L)),
        \+(append(_,[|R3],R2)),
        append(L01,[<,d,i,v,>|L2],[<,/,d,i,v>|R3],L),
        append(L0,[<,t,d,>|L01],R3,L1),
        append(L1,[<,/,t,d|R1],Chars2),
        atom_chars(_取り除かれた文字列,Chars2).