function clearHTMLCode(originCode) dim reg set reg = new RegExp reg.Pattern = " <[^>]*>" reg.Global = true clearHTMLCode = reg.Replace(originCode, "") end function
Function FilterHTML(s)
Dim reg
Set reg =New RegExp
reg.IgnoreCase =True
reg.Global =True
reg.Pattern ="\<(?=/?(?:sub|sup|b)[\s\>])[^>]*?>"' 过滤 sup, sub, b 标签 FilterHTML = reg.Replace(s, "")
Set reg =NothingEnd Function
Function FormatStr(str) Dim s1,s2 If str <>"" then str=replace(replace(Trim(str),chr(32)&chr(32),""),chr(9),"") DO While (instr(str,">")>0 and instr(str," <")>0) s1=InStr(str," <") s2=Instr(s1,str,">") If s1>0 and s2>0 then str=replace(str,mid(str,s1,s2-s1+1),"") End if Loop str=replace(replace(str," <","<"),">",">") str=Replace(Replace(Replace(replace(replace(str,chr(13),""),chr(10),""),"""","”"),"'","’")," ","") FormatStr=str Else FormatStr="" End if End Function
