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>")%>
'*******************************
FunctionRemovehtml_a (strText)
Dimnpos1
Dimnpos2
Npos1 = instr (strText, "<")
Dowhilenpos1> 0
npos2 = instr (npos1 + 1, strText, ">")
Ifnpos2> 0
StrText = Left (StrText, NPOS1-1) & mid (StrText, Npos2 + 1)
Autre
Exitdo
Endire
Npos1 = instr (strText, "<")
Boucle
Supprimerhtml_a = strText
Finition de fin
%>
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>")%>
'*******************************
FunctionRemovehtml_b (strText)
Tamiser
SetRegex = newRegexp
Regex.pattern = "<[^>] *>"
Regex.global = true
Supprimerhtml_b = regex.replace (strText, "")
Finition de fin
%>
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>")%>
'*******************************
FunctionRemovehtml_c (strText)
Dimtaglist
TagList = ";! - ;! doctype; a; acronyme; adresse; applet; zone; b; base; basefont;" & _
"Bgsound; Big; Blockquote; Body; Br; Button; Légende; Centre; cite; code;" & _