自定义去除HTML代码函数

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<m则说明"<"在">"的左边，则"<"和">"之间的字符串为html代码，需要过滤掉
str2 = left(str2,n-1) & mid(str2,m+1) '取"<"左边的字符串和">"右边的字符串并将他们连接在一起
n = instr(str2,"<") '找到剩余字符串中第一个"<"所在的位置
m = instr(str2,">") '找到剩余字符串中第一个">"所在的位置
loop '循环
killhtmllabel = str2 '将过滤好的字符串返回。
end function '结束。