删除HTML代码中的所有标记
复制代码代码如下所示：
<
******************************
功能：removehtml_a（strtext）
参数：strtext，要处理的字符串
作者：Ali Cici
日期：2007 7 12
说明：删除HTML代码中的所有标记
的例子：欢迎Alixixi）%>
******************************
功能removehtml_a（strtext）
昏暗的npos1
昏暗的npos2

npos1 =仪器（strtext，<）
而npos1 > 0
npos2 =仪器（npos1 + 1，strtext，>）
如果npos2 > 0
strtext =左（strtext，npos1 - 1）中（strtext，npos2 + 1）
其他的
退出
最后如果
npos1 =仪器（strtext，<）
环

removehtml_a = strtext
端功能
%>

删除HTML代码中的两个标签
复制代码代码如下所示：
<
******************************
功能：removehtml_b（strtext）
参数：strtext，要处理的字符串
作者：Ali Cici
日期：2007 7 12
说明：删除HTML代码中的所有标记
的例子：欢迎Alixixi）%>
******************************
功能removehtml_b（strtext）
昏暗的正则表达式

设置新的正则表达式正则表达式=

正则表达式模式=} * >
全球=真正的正则表达式。

removehtml_b =正则表达式。取代（strtext，）
端功能
%>

删除HTML代码中的所有标签的三
复制代码代码如下所示：
<
******************************
功能：removehtml_c（strtext）
参数：strtext，要处理的字符串
作者：Ali Cici
日期：2007 7 12
说明：删除HTML代码中的所有标记
的例子：欢迎Alixixi）%>
******************************
功能removehtml_c（strtext）
昏暗的使用
使用=；-一个DOCTYPE；！！；缩写；地址；程序；面积；B；基础；基本字形；_
BGSOUND；大；力；身体；BR；按钮；字幕；中心；引用；代码；_
Col；COLGROUP；评论；DD；德尔；DFN；目录；div；DL；DT；EM；嵌入；中；_
字体；形式；框架；框架；头；H1 H2 H3 H4；；；；H5；H6；人力资源；HTML；我；iframe；IMG；_
输入；插件；isindex；大骨节病；标签；层；系浮标的投弃货物；李；链接；上市；地图；帐篷；_
菜单；元；NOBR；noframes>；Noｓｃｒｉｐｔ；对象；醇；期权；P；参数；明文；_
预；Q；S；SAMP；脚本；选择；小；跨度；罢工；强；风格；子；支持；_
表；tfoot>；TD；文本；很大；日；螺纹；标题；TR；TT；U；UL；标题；；

const blocktaglist = ；程序；嵌入；框架；头；noframes>；Noｓｃｒｉｐｔ；对象；脚本；风格；

昏暗的npos1
昏暗的npos2
昏暗的npos3
昏暗的strresult
昏暗的strtagname
昏暗的bremove
昏暗的bsearchforblock

npos1 =仪器（strtext，<）
而npos1 > 0
npos2 =仪器（npos1 + 1，strtext，>）
如果npos2 > 0
strtagname =中（strtext，npos1 + 1，npos2 - npos1 - 1）
strtagname =替换（替换（strtagname，妙用，），vblf，）

npos3 =仪器（strtagname，）
如果npos3 > 0
strtagname =左（strtagname，npos3 - 1）
最后如果

如果左（strtagname，1）= /
strtagname =中（strtagname，2）
bsearchforblock = false
其他的
bsearchforblock =真
最后如果

如果仪器（1，使用，；strtagname ；
bremove =真
如果bsearchforblock然后
如果仪器（1，blocktaglist，；strtagname ；
npos2 = Len（strtext）
npos3 =仪器（npos1 + 1，strtext，< / strtagname，vbtextcompare）
如果npos3 > 0
npos3 =仪器（npos3 + 1，strtext，>）
最后如果

如果npos3 > 0
npos2 = npos3
最后如果
最后如果
最后如果
其他的
bremove = false
最后如果

如果bremove然后
strresult = strresult左（strtext，npos1 - 1）
strtext =中（strtext，npos2 + 1）
其他的
strresult = strresult左（strtext，npos1）
strtext =中（strtext，npos1 + 1）
最后如果
其他的
strresult = strresult strtext
strtext =
最后如果

npos1 =仪器（strtext，<）
环
strresult = strtext strresult

removehtml_c = strresult
端功能
%>