このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1268979408/572
#  ●正規表現の使用環境  
#  php5  
#   
#  ●検索か置換か?  
#  置換  
#   
#  ●説明  
#  tableタグ内の改行(<br />)を全て削除したい  
#   
#  ●対象データ  
#  <table border="1" cellpadding="5" cellspacing="0" class="xx" id="xx"><br />  
#  <tbody><br />  
#  <tr><br />  
#  <td><br />  
#  </td><br />  
#  </tr><br />  
#  </tbody><br />  
#  </table>  
#   
#  ●希望する結果  
#  <table border="1" cellpadding="5" cellspacing="0" class="xx" id="xx">  
#  <tbody>  
#  <tr>  
#  <td>  
#  </td>  
#  </tr>  
#  </tbody>  
#  </table>  
# 
# 

'tableタグ内の改行タグを全て削除したい'(_ファイル) :-
        get_chars(_ファイル,Chars),
        'tableタグ内の改行タグを全て削除したい'(Chars,L),
        put_chars(_ファイル,L).

'tableタグ内の改行タグを全て削除したい'([],[]) :- !.
'tableタグ内の改行タグを全て削除したい'(L1,L2) :-
        append(L0,[<,t,a,b,l,e,>|R],L1),
        append(L2,[<,/,t,a,b,l,e,>|R2],R),
        '改行タグの削除'(L2,L3),
        'tableタグ内の改行タグを全て削除したい'(R2,L4),
        append(L0,[<,t,a,b,l,e,>|L3],L4,L2),!.
'tableタグ内の改行タグを全て削除したい'(L,L).

'改行タグの削除'([],[<,/,t,a,b,l,e,>]) :- !.
'改行タグの削除'([<,b,r,' ',/,>|R1],R2) :-
        '改行タグの削除'(R1,R2),!.
'改行タグの削除'([A|R1],[A|R2]) :-
        '改行タグの削除'(R1,R2),!.