A cópia do código é a seguinte:
'==========================================
'Descrição da função: remova tags html com regularidade
'Não pode ser retido, etc., e definido pelo usuário <e>
'==========================================
FunctionRemoveHtmlTag (FString)
Dimre
Setre = newRegexp
re.IGNORECASE = true
re.pattern = "<(. [^>]*)>"
fString = re.Replace (fString, "")
Setre = nada
RemovahtmlTag = fString
Função final
'==========================================
'Descrição da função: Remova as tags HTML
'Não pode ser retido, etc., e definido pelo usuário <e>
'==========================================
FunctionRemove_html (str)
Dimilen1, Ilen2
Dowhileinstr (1, str, "<", 1)> 0
ilen1 = instrum (1, str, "<", 1)
ilen2 = instrum (1, str, ">", 1)
Str = esquerda (str, ilen1-1) e mid (str, ilen2+1)
Laço
Remove_html = str
Função final
'==========================================
'Descrição da função: Remova as tags HTML
'Remover marcadores personalizados pode ser um pouco lento
'==========================================
FunctionRemoveHtml (strText)
DimtaGlist
Taglist = ";!-;! Doctype; a; acrônimo; endereço; applet; área; b; base; BaseFont;" & _
"Bgsound; Big; BlockQuote; Body; Br; Button; Legenda; Centro; Cite; Code;" & _
"Col; colgroup; comentário; dd; del; dfn; dir; div; dl; dt; em; incorped; fieldset;" & _
"Fonte; forma; quadro; FrameSet; Head; H1; H2; H3; H4; H5; H6; HR; html; i; iframe; img;" & _
"Input; ins; isIndex; kbd; etiqueta; camada; lagend; li; link; listagem; map; marquee;" & _
"MENU; meta; Nobr; Noframes; NoScript; Object; Ol; Option; P; Param; PlainText;" & _