Die Codekopie lautet wie folgt:
'===============================================
'Funktion Beschreibung: Entfernen Sie HTML -Tags regelmäßig
'Es kann nicht erhalten bleiben usw. und benutzerdefinierte <und>
'===============================================
FunktionsReMoveHtmltag (Fstring)
Dimre
Setre = newRegexp
re.Innorecase = true
re.Pattern = "<(. [^>]*)>"
fstring = re.Replace (fstring, "")
Setre = nichts
RemoveHtmltag = fstring
Endfunktion
'===============================================
'Funktion Beschreibung: Entfernen Sie HTML -Tags
'Es kann nicht erhalten bleiben usw. und benutzerdefinierte <und>
'===============================================
FunktionsRemove_Html (STR)
Dimilen1, Ilen2
Dowhileinstr (1, str, "<", 1)> 0
Ilen1 = Instrument (1, str, "<", 1)
ilen2 = Instrument (1, str, ">", 1)
STR = links (str, ilen1-1) & Mid (str, ilen2+1)
Schleife
Remove_html = str
Endfunktion
'===============================================
'Funktion Beschreibung: Entfernen Sie HTML -Tags
Das Entfernen von benutzerdefinierten Markern kann etwas langsam sein
'===============================================
FunktionsRemoveHtml (Strtext)
Dimtaglist
Taglist = ";!-;! DocType; a; Akronym; Adresse; Applet; Gebiet; B; Base; BaseFont;" & _
"BgSound; Big; Blockquote; Körper; Br; Button; Caption; Mitte; CITE; Code;" & _
"Col; Colgroup; Kommentar; dd; del; dfn; Dir; div; dl; dt; em; embed; fieldset;" & _
"Schriftart; Form; Frame; Frameset; Kopf; H1; H2; H3; H4; H5; H6;
"Input; Ins; issidex; kbd; lab
"Menü; meta; nobr; noframes; noscript; objekt; ol; option; p; param; klaretext;" & _