このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/php/1168450843/632
#  質問させてください。 
#   
#  <table> 
#  <tr> 
#    <th>名称1</th> 
#    <td> 
#      値1 
#    </td> 
#  </tr> 
#  <tr> 
#    <th>名称2</th> 
#    <td> 
#      値2 
#    </td> 
#  </tr> 
#  </table> 
#  のようなHTMLがあります。 
#  実際には全ての改行とインデントはトリムされてます。 
#  この値1の部分をとるにはどのような正規表現を使えば良いでしょうか? 
#   
#  <th>名称1</th><td>([^<]*)</td> 
#  のように考えてましたが値1には<img>タグが入る場合があります。 
#  <table>や<td>が入ることはありません。 
#   

'最初のtdタグの値を検索する'(_文字列,_前文字列,_適合文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,S1,S2,_後文字列,L1,['<',t,d,'>'|R2],['<',/,t,d,'>'|R3]),
        \+(append(_,['<',t,d,'>'],_,R2)),
        concat_atom([S1,''],_前文字列),
        concat_atom(R2,_適合文字列),!.