La copie de code est la suivante:
'=======================================================.
'Fonction Description: supprimez les balises HTML avec régularité
«Il ne peut pas être conservé, etc., et défini par l'utilisateur <et>
'=======================================================.
FunctionRemovehtmltag (fstring)
Tabac
SetRe = newRegexp
re.ignorecase = true
re.Pattern = "<(. [^>] *)>"
fstring = re.replace (fstring, "")
Setdre = rien
Supprimerhtmltag = fstring
Finition de fin
'=======================================================.
'Fonction Description: supprimez les balises HTML
«Il ne peut pas être conservé, etc., et défini par l'utilisateur <et>
'=======================================================.
FunctionRemove_html (str)
Dimilen1, ilen2
DowHileInStr (1, Str, "<", 1)> 0
ilen1 = instant (1, str, "<", 1)
ilen2 = instant (1, str, ">", 1)
Str = gauche (str, ilen1-1) & mid (str, ilen2 + 1)
Boucle
Retire_html = str
Finition de fin
'=======================================================.
'Fonction Description: supprimez les balises HTML
'Supprimer les marqueurs personnalisés peut être un peu lent
'=======================================================.
FunctionRemovehtml (strText)
Dimtaglist
TagList = ";! - ;! doctype; a; acronyme; adresse; applet; zone; b; base; basefont;" & _
"Bgsound; Big; Blockquote; Body; Br; Button; Légende; Centre; cite; code;" & _
"Col; Colgroup; commentaire; dd; del; dfn; dir; div; dl; dt; em; embed; fieldset;" & _
"Font; Form; cadre; Frameset; Head; H1; H2; H3; H4; H5; H6; Hr; html; i; iframe; img;" & _
"Entrée; ins; isIndex; kbd; étiquette; couche; lagend; li; lien; listing; map; marquee;" & _
"Menu; méta; nobr; noframes; noscript; objet; ol; option; p; param; PlainText;" & _