html中怎么去除多余的代码,去除HTML代码中所有标签的两种方法
去除HTML代码中所有标签
复制代码 代码如下:
'******************************
'函数:RemoveHTML_A(strText)
'参数:strText,待处理的字符串
'作者:阿里西西
'日期:2007/7/12
'描述:去除HTML代码中所有标签
'示例:欢迎光临阿里西西")%>
'******************************
Function RemoveHTML_A(strText)
Dim nPos1
Dim nPos2
nPos1 = InStr(strText, "
Do While nPos1>0
nPos2 = InStr(nPos1+1, strText, ">")
If nPos2>0 Then
strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1)
Else
Exit Do
End If
nPos1 = InStr(strText, "
Loop
RemoveHTML_A = strText
End Function
%>
去除HTML代码中所有标签之二
复制代码 代码如下:
'******************************
'函数:RemoveHTML_B(strText)
'参数:strText,待处理的字符串
'作者:阿里西西
'日期:2007/7/12
'描述:去除HTML代码中所有标签
'示例:欢迎光临阿里西西")%>
'******************************
Function RemoveHTML_B( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "]*>"
RegEx.Global = True
RemoveHTML_B = RegEx.Replace(strText, "")
End Function
%>
去除HTML代码中所有标签之三
复制代码 代码如下:
'******************************
'函数:RemoveHTML_C(strText)
'参数:strText,待处理的字符串
'作者:阿里西西
'日期:2007/7/12
'描述:去除HTML代码中所有标签
'示例:欢迎光临阿里西西")%>
'******************************
Function RemoveHTML_C( strText )
Dim TAGLIST
TAGLIST = ";!--;!DOCTYPE;A;ACRONYM;ADDRESS;APPLET;AREA;B;BASE;BASEFONT;" &_
"BGSOUND;BIG;BLOCKQUOTE;BODY;BR;BUTTON;CAPTION;CENTER;CITE;CODE;" &_
"COL;COLGROUP;COMMENT;DD;DEL;DFN;DIR;DIV;DL;DT;EM;EMBED;FIELDSET;" &_
"FONT;FORM;FRAME;FRAMESET;HEAD;H1;H2;H3;H4;H5;H6;HR;HTML;I;IFRAME;IMG;" &_
"INPUT;INS;ISINDEX;KBD;LABEL;LAYER;LAGEND;LI;LINK;LISTING;MAP;MARQUEE;" &_
"MENU;META;NOBR;NOFRAMES;NOSCRIPT;OBJECT;OL;OPTION;P;PARAM;PLAINTEXT;" &_
"PRE;Q;S;SAMP;SCRIPT;SELECT;SMALL;SPAN;STRIKE;STRONG;STYLE;SUB;SUP;" &_
"TABLE;TBODY;TD;TEXTAREA;TFOOT;TH;THEAD;TITLE;TR;TT;U;UL;VAR;WBR;XMP;"
Const BLOCKTAGLIST = ";APPLET;EMBED;FRAMESET;HEAD;NOFRAMES;NOSCRIPT;OBJECT;SCRIPT;STYLE;"
Dim nPos1
Dim nPos2
Dim nPos3
Dim strResult
Dim strTagName
Dim bRemove
Dim bSearchForBlock
nPos1 = InStr(strText, "
Do While nPos1 > 0
nPos2 = InStr(nPos1 + 1, strText, ">")
If nPos2 > 0 Then
strTagName = Mid(strText, nPos1 + 1, nPos2 - nPos1 - 1)
strTagName = Replace(Replace(strTagName, vbCr, " "), vbLf, " ")
nPos3 = InStr(strTagName, " ")
If nPos3 > 0 Then
strTagName = Left(strTagName, nPos3 - 1)
End If
If Left(strTagName, 1) = "/" Then
strTagName = Mid(strTagName, 2)
bSearchForBlock = False
Else
bSearchForBlock = True
End If
If InStr(1, TAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then
bRemove = True
If bSearchForBlock Then
If InStr(1, BLOCKTAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then
nPos2 = Len(strText)
nPos3 = InStr(nPos1 + 1, strText, "" & strTagName, vbTextCompare)
If nPos3 > 0 Then
nPos3 = InStr(nPos3 + 1, strText, ">")
End If
If nPos3 > 0 Then
nPos2 = nPos3
End If
End If
End If
Else
bRemove = False
End If
If bRemove Then
strResult = strResult & Left(strText, nPos1 - 1)
strText = Mid(strText, nPos2 + 1)
Else
strResult = strResult & Left(strText, nPos1)
strText = Mid(strText, nPos1 + 1)
End If
Else
strResult = strResult & strText
strText = ""
End If
nPos1 = InStr(strText, "
Loop
strResult = strResult & strText
RemoveHTML_C = strResult
End Function
%>
您可能感兴趣的文章:asp中去除html中style,javascript,css代码
HTA文件去除html控件认证和接收命令行参数
asp.ne去除html的函数代码
asp去除html标记与空格的正则
截字符串 去除HTML标记
asp去除html的函数代码分析附实例说明
html中怎么去除多余的代码,去除HTML代码中所有标签的两种方法相关推荐
- 多个html如何套用套一个头部,Vue.js项目中管理每个页面的头部标签的两种方法...
在 Vue SPA 应用中,如果想要修改 HTML 的头部标签,如页面的 title ,我们只能去修改 index.html 模板文件,但是这个是全局的修改,如何为每个页面都设置不一样的 title ...
- 服务器如何关闭硬盘自检,去除非法关机硬盘错误造成的开机硬盘自检的两种方法...
大家都知道,当我们的宝贝电脑上一次非正常关机或者硬盘有错误下一次开机时系统就会对硬盘进行自检,有时大家会觉得这自检太漫长或太烦,那么我们就没有办法关闭这种自检吗?答案是否定的,关闭自检一下两种方法: ...
- html边框直线代码,网页制作学习:实现细线边框的两种方法_html
很多朋友都有过制作网页的经历,如今,众多网页的设计都用到了表格.这样不仅有利于网页的维护,同时,提高了网页的观赏性.在众多网页制作风格中,细边框这个制作方法是必不可少的.这里,我将简单地谈一下细边框的 ...
- java json解析 代码_Java构造和解析Json数据的两种方法详解一
在www.json.org上公布了很多JAVA下的json构造和解析工具,其中org.json和json-lib比较简单,两者使用上差不多但还是有些区别.下面首先介绍用json-lib构造和解析Jso ...
- 密码学——Hill体制密码中已知明文M和密文C求解密钥矩阵K的两种方法之逆矩阵求解法和待定系数求解法
本文主要解决古典密码中的Hill体制密码在已知明文M和密文C的情况下求解密钥矩阵K的两种方法:①求逆矩阵②待定系数法. 如若不懂Hill体制的古典密码可以参照我上一篇文章密码学--几种典型的古典密码体 ...
- java mvc中重复提交表单,spring mvc 防止重复提交表单的两种方法,推荐第二种
第一种方法:判断session中保存的token 比较麻烦,每次在提交表单时都必须传入上次的token.而且当一个页面使用ajax时,多个表单提交就会有问题. 注解Token代码: package c ...
- (方法总结)Python 一行代码提取字符串每个单词首字母的两种方法
第一种方法: 使用知识点: 列表推导式 切片 split() 方法 实现案例: In [1]: a_str = "I Love Python" In [2]: [i[0] for ...
- c语言清除html标签的方法,去除HTML代码中所有标签的两种方法
去除HTML代码中所有标签 '****************************** '函数:RemoveHTML_A(strText) '参数:strText,待处理的字符串 '作者:阿里西西 ...
- 平板电脑可以开发php吗,PHP代码判断设备是手机还是平板电脑(两种方法)
现在移动互联网越来越发达,很多的网站都普及了手机端浏览,为了更好的让网页在手机端显示,我们都选择了使用CSS媒体查询制作响应式模版,但这也有弊端,例如某些网站的结构是CMS类型的,太多的内容要显示,而 ...
- php 判断 平板,PHP代码判断设备是手机还是平板电脑(两种方法)_php实例
现在移动互联网越来越发达,很多的网站都普及了手机端浏览,为了更好的让网页在手机端显示,我们都选择了使用CSS媒体查询制作响应式模版,但这也有弊端,例如某些网站的结构是CMS类型的,太多的内容要显示,而 ...
最新文章
- LeetCode简单题之重新格式化字符串
- mySQL笔记(1)
- hdp xiazia
- ubuntu16.04配置py-faster-rcnn
- c++ io条件状态 的一个例子
- 连接linux工具有哪些_推荐 10 个不错的网络监视工具,值得收藏
- 制作自己的linux内核,打造属于你自己的Linux系统
- 怎样学好python编程-Python编程怎么学习好?老男孩Python入门
- 谈谈创业这点事(4)
- DQ77KB升级bios和AMT设置
- android 通知栏授权,Android 消息通知栏Notification使用和权限
- 快速入门:Excel中如何按照多个字段排序
- 【c++入门(2)】邻项交换
- 解决 The resulting partition is not properly aligned for best performance
- 嵌入式系统设计与开发期末考试复习
- Optisystem7.0安装教程(Win10系统)
- 和菜鸟一起学算法之三分法求极值问题
- tensorflow报AttributeError: __enter__错误解决
- Unity3D读取Socket的二进制图片
- 哪位人兄..做过flex 打开 DWG DWF 文件程序
热门文章
- u盘第一扇区 分区表_硬盘主引导扇区、分区表和分区引导扇区(MBR、DPT、DBR、BPB)详解...
- ModSecurity的规则
- 明明有QQ,凭什么微信能火?——QQ微信横向对比分析
- python package和目录_Python package和folder
- VLC保存网络流到本地和fiddler下载视频
- EDA安装------Centos7安装ANSYS
- 论文到底怎么降重才有效
- 底部菜单控件BottomNavigationView的使用
- 携程2021年校招笔试题[2021年10月21日19点-21点]
- bzoj3162 独钓寒江雪