Question

急！！ 正则表达式过滤html

请问各位高手，我想用正则表达式找到html指定的标签，然后过滤掉标签，用string保存其中间的文本内容。
找了很多质料，就是没找到一个合适的，请帮忙指点一下。
例如：
<table border=0 cellpadding=0 cellspacing=0 width=600 height=120>
<tr><td height=10 colspan=2></td></tr>
<tr>

<td width=300 valign=top>
<table border=0 cellpadding=0 cellspacing=0 width=280>
<tr><td height=10></td></tr>
<tr><td align=right><font color=#0d3cd4>中央气象台2007年03月29日20时发布</font></td></tr>
<tr><td height=10></td></tr>
<tr><td align=center><font color=#0d3cd4> -2℃ ～ 11℃</font></td></tr>
<tr><td height=10></td></tr>
<tr><td align=center><font color=#0d3cd4>多云</font></td></tr>
</table>
</td>
把代码中的“多云”，“-2℃ ～ 11℃”抽出来，分别保存到string变量中

Answer 1

<%
Function stripHTML(strHTML)
'Strips the HTML tags from strHTML

Dim objRegExp, strOutput
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"

'Replace all HTML tag matches with the empty string
strOutput = objRegExp.Replace(strHTML, "")
'Replace all < and > with < and >
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")
stripHTML = strOutput 'Return the value of strOutput

Set objRegExp = Nothing
End Function
%>