Option explicite
Fonction striphtml (strText)
Dim Arysplit, I, J, Stroutput
Arysplit = Split (strText, "
Si Len (Arysplit (0))> 0 alors j = 1 else j = 0
pour i = J à Ubund (Arysplit)
Si instr (Arysplit (i), ">") alors
Arysplit (i) = mid (Arysplit (i), instr (Arysplit (i), ">") + 1)
autre
arysplit (i) = "end if
suivant
Stroutput = join (Arysplit, "")
Stroutput = Mid (Stroutput, 2-J)
Stroutput = remplacer (Stroutput, ">", ">")
Stroutput = remplacer (Stroutput, "
striphtml = Stroutput
Fonction finale
%>
0 puis%>
Vue de la chaîne sans rayures HTML:
Vue de la chaîne avec HTML Striping:
Ce qui précède concerne la façon d'effacer les balises HTML dans le contenu. Merci pour votre lecture. Pour plus de contenu, veuillez prêter attention au site Web de la chaîne technologique Wuxin.