Opción explícita
Función striphtml (strText)
Dim Arysplit, I, J, Stroutput
arysplit = split (strText ",
Si len (arysplit (0))> 0 entonces j = 1 más j = 0
para i = j a ubund (arysplit)
if instr (arysplit (i), ">") entonces
arysplit (i) = mid (arysplit (i), instr (arysplit (i), ">")+1)
demás
arysplit (i) = "fin si
próximo
stroutput = unión (arysplit, "")
stroutput = mid (stroutput, 2-j)
stroutput = reemplazar (stroutput, ">", ">")
stroutput = reemplazar (stroutput ",
striphtml = stroutput
Función final
%>
0 entonces %>
Vista de la cadena sin rayas HTML:
Vista de la cadena con rayas HTML:
Lo anterior se trata de cómo borrar las etiquetas HTML en el contenido. Gracias por tu lectura. Para obtener más contenido, preste atención al sitio web del canal de tecnología Wuxin.