什么事情都可以拖一拖，没必要那么着急，事缓则圆。努力去做自己该做的，但是不要期待回报，不是付出了就会有回报的，做了就不要后悔，不做才后悔。
'==================================================
'函数名：ScriptHtml
'作用：过滤html标记
'参数：ConStr------要过滤的字符串
'==================================================
FunctionScriptHtml(ByvalConStr,TagName,FType)
DimRe
SetRe=newRegExp
Re.IgnoreCase=true
Re.Global=True
SelectCaseFType
Case1
Re.Pattern="<"&TagName&"([^>])*>"
ConStr=Re.Replace(ConStr,"")
Case2
Re.Pattern="<"&TagName&"([^>])*>.*?</"&TagName&"([^>])*>"
ConStr=Re.Replace(ConStr,"")
Case3
Re.Pattern="<"&TagName&"([^>])*>"
ConStr=Re.Replace(ConStr,"")
Re.Pattern="</"&TagName&"([^>])*>"
ConStr=Re.Replace(ConStr,"")
EndSelect
ScriptHtml=ConStr
SetRe=Nothing
EndFunction 1content=ScriptHtml(content,"br",1)‘去掉所有<br>HTML标记 2content=ScriptHtml(content,"a",2)‘去掉所有<a></a>和两个标记之间的内容
如<arel="nofollow noopener noreferrer" href=www.126.com>www.126.com</a>把这一段全去了 3content=ScriptHtml(content,"td",3)‘去掉<td>和</td>HTML标记
如<td>士大夫撒</td>把<td></td>去掉了但士大夫撒还保留 依次类推把其他HTML标记都过滤了divobjdect什么的自己看吧
以上就是去html代码的正则 推荐。如果有选择，那就选择最好的;如果没有选择，那就努力做到最好。更多关于去html代码的正则 推荐请关注haodaima.com其它相关文章！