去html代码的正则 推荐

函数名：ScriptHtml

作用：过滤HTML标记

参数：ConStr —— 要过滤的字符串

==================================================

```vbscript

Function ScriptHtml(ByVal ConStr, TagName, FType)

'创建一个新的正则表达式对象

Dim Re

Set Re = CreateObject("VBScript.RegExp")

'设置正则表达式对象的一些属性

Re.IgnoreCase = True

Re.Global = True

'根据传入的FType选择相应的过滤方式

Select Case FType

Case 1

'过滤掉所有形如的HTML标签，但保留标签内的内容

Re.Pattern = "<" & TagName & "([^>])>"

ConStr = Re.Replace(ConStr, "")

Case 2

'过滤掉形如和的HTML标签以及它们之间的内容，例如...

Re.Pattern = "<" & TagName & "([^>])>.?</" & TagName & "([^>])>"

ConStr = Re.Replace(ConStr, "")

Case 3

'过滤掉和的HTML标签，但保留标签内的内容，例如...

Re.Pattern = "<" & TagName & "([^>])>"

ConStr = Re.Replace(ConStr, "") '移除开始标签

Re.Pattern = "</" & TagName & "([^>])>"

ConStr = Re.Replace(ConStr, "") '移除结束标签

End Select

ScriptHtml = ConStr

Set Re = Nothing '释放正则表达式对象

End Function

```scriptHtml的使用示例：使用该函数去除HTML中的特定标签和内容。例如：使用参数为content,"br",1调用函数，可以去除所有`
`HTML标记；使用参数为content,"a",2调用函数，可以去除所有`...`标签及其内部内容；使用参数为content,"td",3调用函数，可以去除``和``HTML标记，但保留标签内的内容。您可以依次类推，使用该函数过滤其他HTML标记，如div、object等。最后调用`Cambrian.render('body')`以完成操作。