求HTML内提取文本的正则

[siugwan]

我的文件内有这样一段HTML内容:
……<FONT FACE="宋体">拟 稿 人：</FONT></TD><TD WIDTH="355"><p align=left><font face="宋体_GB2312" size="3">张三</font></p></TD><TD WIDTH="104"><FONT FACE="宋体">联系电话：</FONT></TD><TD WIDTH="280"><p align=left><font face="宋体_GB2312" size="3">13922222222</font></p></TD></TR>……

如何将 拟 稿 人： 及 联系电话 之间的中文文本（以上为张三）提取出来，谢谢。

[ice_berg16]

var str = '<FONT FACE="宋体">拟 稿 人：</FONT></TD><TD WIDTH="355"><p align=left><font face="宋体_GB2312" size="3">张三</font></p></TD><TD WIDTH="104"><FONT FACE="宋体">联系电话：</FONT></TD><TD WIDTH="280"><p align=left><font face="宋体_GB2312" size="3">13922222222</font></p></TD></TR>';

str = str.replace(/<\/?.+?>/g,"");
str = str.replace(/.*拟 稿 人：|联系电话.*/g, "");
alert(str);

[kevin_gao]

<script language="vbScript" >

function clearHTML(HTMLS)
Dim regEx ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = "<[^<>]*>" ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
clearHTML= regEx.Replace(HTMLS,"") ' 执行搜索。


end function
alert clearHTML("<p>内容</p>")
</script>