学步园

function nohtml(str)
    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True
    re.Pattern="(<.[^<]*>)"
    str=re.replace(str," ")
    re.Pattern="(</[^<]*>)"
    str=re.replace(str," ")
    nohtml=str
    set re=nothing
end function