Wenn wir HTML -Code schreiben, müssen wir manchmal alle Tags entfernen. Es ist problematisch, Tags nacheinander Tags zu löschen. Gibt es also einen schnellen und bequemen Weg? Schauen wir uns an, wie Sie alle Tags im HTML -Code entfernen können.
Entfernen Sie alle Tags im HTML -Code
Die Codekopie lautet wie folgt:<%
'*********************************
'Funktion: REMEHTML_A (STRTEXT)
'Argumente: Strtext, String, die verarbeitet werden soll
'Autor: Alixi
'Datum: 2007/7/12
'Beschreibung: Entfernen Sie alle Tags im HTML -Code
Beispiel: <%= REMEHTML_A ("<B> Willkommen bei Alixixi </b>")%>
'*********************************
Funktion REDEHTML_A (STRTEXT)
Dim Npos1
Dim Npos2
npos1 = instr (strtext, "<")
Tun, während npos1> 0
npos2 = instr (npos1+1, strtext, ">")
Wenn npos2> 0 dann
strText = links (Strtext, NPOS1 - 1) & Mid (Strtext, NPOS2 + 1)
Anders
Ausgang tun
Ende wenn
npos1 = instr (strtext, "<")
Schleife
REMEHTML_A = Strtext
Endfunktion
%>
Entfernen Sie alle Tags im HTML -Code
Die Codekopie lautet wie folgt:<%
'*********************************
'Funktion: removeHtml_b (strtext)
'Argumente: Strtext, String, die verarbeitet werden soll
'Autor: Alixi
'Datum: 2007/7/12
'Beschreibung: Entfernen Sie alle Tags im HTML -Code
Beispiel: <%= removeHtml_b ("<b> Willkommen bei Alixixi </b>")%>
'*********************************
Funktion REDEHTML_B (STRTEXT)
Dim Regex
Setzen Sie Regex = New Regexp
Regex.pattern = "<[^>]*>"
Regex.global = true
RemoveHtml_b = regex.replace (strtext, "")
Endfunktion
%>
Entfernen Sie alle Tags im HTML -Code
Die Codekopie lautet wie folgt:<%
'*********************************
'Funktion: removeHtml_c (strtext)
'Argumente: Strtext, String, die verarbeitet werden soll
'Autor: Alixi
'Datum: 2007/7/12
'Beschreibung: Entfernen Sie alle Tags im HTML -Code
Beispiel: <%= removeHtml_c ("<b> Willkommen bei Alixixi </b>")%>
'*********************************
Funktion REDEHTML_C (STRTEXT)
Dim Taglist
Taglist = ";!-;! DocType; a; Akronym; Adresse; Applet; Gebiet; B; Basis; BaseFont;" & _
"BgSound; Big; Blockquote; Körper; Br; Button; Bildunterschrift; Zentrum; CITE; Code;" & _
"Col; Colgroup; Kommentar; dd; del; dfn; Dir; div; dl; dt; em; einbettet; Fieldset;" & _
"Schriftart; Form; Rahmen; & _
"Input; INS; ISINDEX; KBD; LABE; LAGE; LAGEND; Li; Link; Listing; Karte; Marquee;" & _
"Menü; meta; nobr; noframes; noscript; objekt; ol; option; p; param; klareText;" & _
"Pre; Q; s; Samp; Skript; Select; klein; Span; Streik; stark; stil; sub; sup;" & _
"Tabelle; tbody; td; textarea; tfoot; th; th; tit; tr; tt; u; ul; var; wbr; xmp;"
Const blocktaglist = "; Applet; einbettet; Frameset; Kopf; noframes; NoScript; Objekt; Skript; Stil;"
Dim Npos1
Dim Npos2
Dim NPOS3
Dim Strresult
Dimer Strtagname
Dimer Bremove
Dim BSEARCHFORBLOCK
npos1 = instr (strtext, "<")
Tun, während npos1> 0
npos2 = instr (npos1 + 1, strtext, ">")
Wenn npos2> 0 dann
Stragname = Mid (Strtext, NPOS1 + 1, NPOS2 - NPOS1 - 1)
Stragname = Ersetzen (ersetzen (StragName, VBCR, ""), VBLF, "")
npos3 = instr (strtagname, "")
Wenn npos3> 0 dann
Strtagname = links (Strtagname, NPOS3 - 1)
Ende wenn
Wenn Sie links (StragName, 1) = "/" Dann
Strtagname = Mid (Strtagname, 2)
BSEARCHFORBLOCK = false
Anders
BSEARCHFORBLOCK = TRUE
Ende wenn
If Instr (1, Taglist, ";" & Strtagname & ";
bremove = true
Wenn bSearchForBlock dann
If Instr (1, Blocktaglist ";
npos2 = len (strtext)
npos3 = instr (npos1 + 1, strText, "</" & strTagname, vbTextCompare)
Wenn npos3> 0 dann
npos3 = instr (npos3 + 1, strtext, ">")
Ende wenn
Wenn npos3> 0 dann
npos2 = npos3
Ende wenn
Ende wenn
Ende wenn
Anders
Bremove = Falsch
Ende wenn
Wenn Bremove dann
Strresult = Strresult & links (Strtext, NPOS1 - 1)
Strtext = Mid (Strtext, NPOS2 + 1)
Anders
Strresult = Strresult & links (Strtext, NPOS1)
Strtext = Mid (Strtext, NPOS1 + 1)
Ende wenn
Anders
Strresult = Strresult & Strtext
Strtext = ""
Ende wenn
npos1 = instr (strtext, "<")
Schleife
Strresult = Strresult & Strtext
REMEHTML_C = Strresult
Endfunktion
%>
Hier geht es darum, alle Tags im HTML -Code zu entfernen. Ich glaube, jeder hat ein gewisses Verständnis. Wenn Sie weitere technische Informationen wissen möchten, achten Sie bitte weiter auf den falschen neuen Technologiekanal!