Option explizit
Funktion StripHTML (Strtext)
Dim Arysplit, I, J, Stroutput
arysplit = split (strtext, "
Wenn len (arysplit (0))> 0 dann j = 1 sonst j = 0
für i = j zu Ubund (Arysplit)
Wenn Instrument (Arysplit (i), ">") dann
Arysplit (i) = MID (Arysplit (i), Instrument (Arysplit (i), ">")+1)
anders
arysplit (i) = "Ende if
nächste
stroutput = join (arysplit, "")
Stroutput = Mid (Stroutput, 2-J)
stroutput = ersetzen (stroutput, ">", ">")
stroutput = ersetzen (stroutput ","
StripHtml = Stroutput
Endfunktion
%>
0 dann %>
Ansicht der Zeichenfolge ohne HTML -Streifen:
Ansicht der String mit HTML -Striping:
In dem obigen geht es darum, wie HTML -Tags im Inhalt gelöscht werden. Vielen Dank für Ihre Lektüre. Weitere Inhalte finden Sie auf der Website des Wuxin Technology Channel.