Opção explícita
Função striphtml (strtext)
Dim Arysplit, i, J, Stroutput
arysplit = split (strText, "
Se Len (arysplit (0))> 0 então j = 1 else j = 0
para i = j para ubund (arysplit)
Se Instr (Arysplit (i), ">") então
arysplit (i) = mid (arysplit (i), instrum (arysplit (i), ">")+1)
outro
arysplit (i) = "end if
próximo
stroutput = junção (arysplit, "")
stroutput = mid (stroutput, 2-j)
stroutput = substituir (stroutput, ">", ">")
stroutput = substituir (stroutput, "
StripHtml = Stroutput
Função final
%>
0 então %>
Vista da string sem tira html:
Vista da string com tira HTML:
O exposto acima é sobre como limpar as tags HTML no conteúdo. Obrigado pela sua leitura. Para mais conteúdo, preste atenção ao site do Wuxin Technology Channel.