このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/279
#  ●正規表現の使用環境 
#  C# 4.0 
#   
#  ●検索か置換か? 
#  置換です 
#   
#  ●説明 
#  HTMLファイルのソースコードの 
#  <script type="text/javascript">〜省略〜</script> 
#  scriptタグ開始を含めてscriptタグ終了タグまでを消去したいんです 
#   
#  ●対象データ 
#  <script type="text/javascript"> 
#  <!-- 
#  // 〜コメント〜 
#  内容 
#  // --> 
#  </script> 
#   
#  <script type="text/javascript" src="script.js"></script> 
#   
#  上記のどちらも以下のものでやったのですが、どうもヒットしません 
#  <script\s[a-zA-Z0-9<>()-\.!_~*,;/:@&=+$,%#'""]+>[a-zA-Z0-9<>()-\.!_~*,;/:@&=+$,%#]+\</script> 
#   
#  解答よろしくお願いします 
# 
# 

'scriptタグ開始を含めてscriptタグ終了タグまでを消去'(_文字列,_置換された文字列) :-
        sub_atom(_文字列,_,_,_,S1,S2,S3,L1,L2,L3),
        L2 = [<,s,c,r,i,p,t,' '|R2],
        append(R20,[/,s,c,r,i,p,t,>],R2),
        \+(append(_,[<,s,c,r,i,p,t,' '|_],R20)),
        \+(append(_,[/,s,c,r,i,p,t,>|_],R20)),
        'scriptタグ開始を含めてscriptタグ終了タグまでを消去'(S3,_置換された文字列2),
        concat_atom([S1,_置換された文字列2],_置換された文字列),!.
'scriptタグ開始を含めてscriptタグ終了タグまでを消去'(_文字列,_文字列).