去掉所有HTML标记函数

很久没有更新了，放一个小函数：去掉所有HTML标记

Function FilterHTML(str,strlen)

Dim re

Set re=new RegExp

re.IgnoreCase =True

re.Global=True

re.Pattern="<(.[^>]*)>"

str=re.Replace(str,"")

set re=Nothing

Dim l,t,c,i

l=Len(str)

t=0

For i=1 to l

c=Abs(Asc(Mid(str,i,1)))

If c>255 Then

t=t+2

Else

t=t+1

End If

If t>=strlen Then

cutStr=left(str,i)&"..."

Exit For

Else

cutStr=str

End If

Next

cutStr=Replace(cutStr,chr(10),"")

cutStr=Replace(cutStr,chr(13),"")

End Function