一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

自定义去除HTML代码函数

时间:2010-11-09 编辑:简简单单 来源:一聚教程网

function killhtmllabel(str) '函数开始
dim n,m,str2 '定义三个变量
n = instr(str,"<") '找到第一个"<"所在的位置
m = instr(str,">") '找到第一个">"所在的位置
str2 = str '把str的值赋给str2
do while n > 0 and n < m '如果n>0则说明找到了一个"<",如果n"的左边,则"<"和">"之间的字符串为html代码,需要过滤掉
str2 = left(str2,n-1) & mid(str2,m+1) '取"<"左边的字符串和">"右边的字符串并将他们连接在一起
n = instr(str2,"<") '找到剩余字符串中第一个"<"所在的位置
m = instr(str2,">") '找到剩余字符串中第一个">"所在的位置
loop '循环
killhtmllabel = str2 '将过滤好的字符串返回。
end function '结束。

热门栏目