Lorsque nous écrivons du code HTML, nous devons parfois supprimer toutes les balises. Il est difficile de supprimer les tags un par un. Alors, y a-t-il un moyen rapide et pratique? Voyons comment supprimer toutes les balises dans le code HTML.
Supprimer toutes les balises dans le code HTML
La copie de code est la suivante:<%
'*******************************
'Fonction: supprimehtml_a (strText)
'Arguments: strText, chaîne à traiter
'Auteur: Alixi
'Date: 2007/7/12
'Description: supprimez toutes les balises dans le code HTML
'Exemple: <% = supprimerhtml_a ("<b> bienvenue sur Alixixi </b>")%>
'*******************************
Fonction supprimehtml_a (strText)
DIM NPOS1
DIM NPOS2
Npos1 = instr (strText, "<")
Faire pendant que Npos1> 0
npos2 = instr (npos1 + 1, strText, ">")
Si npos2> 0 alors
StrText = Left (StrText, NPOS1 - 1) & mid (StrText, Npos2 + 1)
Autre
Sortir faire
Terminer si
Npos1 = instr (strText, "<")
Boucle
Supprimerhtml_a = strText
Fonction finale
%>
Supprimer toutes les balises dans le code HTML
La copie de code est la suivante:<%
'*******************************
'Fonction: supprimehtml_b (strText)
'Arguments: strText, chaîne à traiter
'Auteur: Alixi
'Date: 2007/7/12
'Description: supprimez toutes les balises dans le code HTML
'Exemple: <% = supprimerhtml_b ("<b> bienvenue sur Alixixi </b>")%>
'*******************************
Fonction supprimehtml_b (strText)
Diche
Définir regex = new regexp
Regex.pattern = "<[^>] *>"
Regex.global = true
Supprimerhtml_b = regex.replace (strText, "")
Fonction finale
%>
Supprimer toutes les balises dans le code HTML
La copie de code est la suivante:<%
'*******************************
'Fonction: supprimehtml_c (strText)
'Arguments: strText, chaîne à traiter
'Auteur: Alixi
'Date: 2007/7/12
'Description: supprimez toutes les balises dans le code HTML
'Exemple: <% = supprimerhtml_c ("<b> bienvenue sur Alixixi </b>")%>
'*******************************
Fonction supprimehtml_c (strText)
Étiquette de tag de faible
TagList = ";! - ;! doctype; a; acronyme; adresse; applet; zone; b; base; basefont;" & _
"Bgsound; Big; Blockquote; corps; br; bouton; légende; centre; citer; code;" & _
"Col; colgroup; commentaire; dd; del; dfn; dir; div; dl; dt; em; embed; fieldset;" & _
"Font; forme; cadre; cadres; tête; 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; noframe; noscript; objet; ol; option; p; param; plaintext;" & _
"Pre; q; samp; script; select; petit; span; grève; fort; style; sub; sup;" & _
"Tableau; tbody; td; textarea; tfoot; th; thead; titre; tr; tt; u; ul; var; wbr; xmp;"
Const blocktaglist = "; applet; embed; Frameset; head; noframes; noscript; objet; script; style;"
DIM NPOS1
DIM NPOS2
DIM NPOS3
Sombre strresult
Tamis sombre
Sombre Bremove
Bsearchforblock
Npos1 = instr (strText, "<")
Faire pendant que Npos1> 0
npos2 = instr (npos1 + 1, strText, ">")
Si npos2> 0 alors
strtagname = mid (StrText, NPOS1 + 1, NPOS2 - NPOS1 - 1)
strtagname = remplacer (remplacer (strtagname, vbcr, ""), vblf, "")
npos3 = instr (strtagname, "")
Si npos3> 0 alors
strtagname = Left (strtagname, npos3 - 1)
Terminer si
Si vous êtes laissé (strtagname, 1) = "/" alors
strtagname = mid (strtagname, 2)
bSearchForblock = false
Autre
bSearchForblock = true
Terminer si
Si instr (1, taglist, ";" & strtagname & ";", vbTextCompare)> 0 alors
Bremove = True
Si BSearchForblock alors
Si instr (1, blocktaglist, ";" & strtagname & ";", vbTextCompare)> 0 alors
Npos2 = Len (StrText)
npos3 = instr (npos1 + 1, strText, "</" & strtagname, vbTextCompare)
Si npos3> 0 alors
npos3 = instr (npos3 + 1, strText, ">")
Terminer si
Si npos3> 0 alors
NPOS2 = NPOS3
Terminer si
Terminer si
Terminer si
Autre
Bremove = False
Terminer si
Si Bremove alors
strresult = strresult & gauche (strText, Npos1 - 1)
strText = mid (strText, npos2 + 1)
Autre
strresult = strresult & gauche (strText, NPOS1)
strText = mid (strText, npos1 + 1)
Terminer si
Autre
strresult = strresult & strText
strText = ""
Terminer si
Npos1 = instr (strText, "<")
Boucle
strresult = strresult & strText
Supprimerhtml_c = strresult
Fonction finale
%>
Il s'agit de supprimer toutes les balises dans le code HTML. Je crois que tout le monde a une certaine compréhension. Si vous souhaitez connaître plus d'informations techniques, veuillez continuer à faire attention à la mauvaise chaîne de nouvelles technologies!