首页 相关文章 去html代码的正则

去html代码的正则

代码如下:


'==================================================
'函数名:ScriptHtml
'作 用:过滤html标记
'参 数:ConStr ------ 要过滤的字符串
'==================================================
Function ScriptHtml(Byval ConStr,TagName,FType)
Dim Re
Set Re=new RegExp
Re.IgnoreCase =true
Re.Global=True
Select Case FType
Case 1
Re.Pattern="" & TagName & "([^])*"
ConStr=Re.Replace(ConStr,"")
Case 2
Re.Pattern="" & TagName & "([^])*.*?/" & TagName & "([^])*"
ConStr...[ 查看全文 ]

2016-02-19 标签:

去html代码的正则的相关文章

手机页面
收藏网站 回到头部