Quando escrevemos código HTML, às vezes precisamos remover todas as tags. É problemático excluir as tags uma a uma. Então, existe alguma maneira rápida e conveniente? Vamos dar uma olhada em como remover todas as tags no código HTML.
Remova todas as tags no código HTML
A cópia do código é a seguinte:<%
'***********************************
'Função: Removerhtml_a (strText)
'Argumentos: strtext, string a ser processada
'Autor: Alixi
Data: 2007/7/12
'Descrição: Remova todas as tags no código HTML
'Exemplo: <%= removerhtml_a ("<b> Bem -vindo ao Alixixi </b>")%>
'***********************************
Função removehtml_a (strtext)
Dim npos1
Dim npos2
npos1 = instrum (strText, "<")
Faça enquanto npos1> 0
npos2 = instrum (npos1+1, strtext, ">")
Se npos2> 0 então
strText = esquerda (strText, npos1 - 1) e mid (strtext, npos2 + 1)
Outro
Saída do
Final se
npos1 = instrum (strText, "<")
Laço
Removahtml_a = strText
Função final
%>
Remova todas as tags no código HTML
A cópia do código é a seguinte:<%
'***********************************
'Função: Removerhtml_b (strText)
'Argumentos: strtext, string a ser processada
'Autor: Alixi
Data: 2007/7/12
'Descrição: Remova todas as tags no código HTML
'Exemplo: <%= removerhtml_b ("<b> Bem -vindo ao Alixixi </b>")%>
'***********************************
Função removehtml_b (strtext)
Dim Regex
Definir regex = novo regexp
Regex.pattern = "<[^>]*>"
Regex.global = true
Removahtml_b = regex.replace (strText, "")
Função final
%>
Remova todas as tags no código HTML
A cópia do código é a seguinte:<%
'***********************************
'Função: Removerhtml_c (strText)
'Argumentos: strtext, string a ser processada
'Autor: Alixi
Data: 2007/7/12
'Descrição: Remova todas as tags no código HTML
'Exemplo: <%= removerhtml_c ("<b> Bem -vindo ao Alixixi </b>")%>
'***********************************
Função removehtml_c (strText)
Dim Taglist
Taglist = ";!-;! Doctype; a; sigrony; endereço; applet; área; b; base; base;" " & _
"Bgsound; grande; blockquote; corpo; br; botão; legenda; centro; citar; código;" & _
"Col; colgroup; comentário; dd; del; dfn; dir; div; dl; dt; em; incorporado; fieldset;" & _
"Fonte; forma; quadro; FrameSet; Head; H1; H2; H3; H4; H5; H6; HR; html; i; iframe; img;" & _
"Input; ins; isIndex; kbd; etiqueta; camada; lagend; li; link; listagem; mapa; marquee;" & _
"Menu; Meta; Nobr; Noframes; NoScript; Object; Ol; Option; P; Param; PlainText;" & _
"Pré; q; s; samp; script; selecione; pequeno; span; greve; forte; estilo; sub; sup;" & _
"Tabela; tbody; td; textarea; tfoot; th; thead; title; tr; tt; u; ul; var; wbr; xmp;"
Const blockTaglist = "; applet; incorporado; FrameSet; cabeça; noframes; noscript; objeto; script; style;"
Dim npos1
Dim npos2
Dim npos3
Dim Strresult
Dim strTagName
Dim Bremove
Dim BSearchForblock
npos1 = instrum (strText, "<")
Fazer enquanto npos1> 0
npos2 = instrum (npos1 + 1, strtext, ">")
Se npos2> 0 então
strTagName = MID (strText, npos1 + 1, npos2 - npos1 - 1)
strTagName = substituir (substituir (strtagname, vbcr, ""), vblf, "")
npos3 = instrum (strtagname, "")
Se npos3> 0 então
strTagname = esquerda (strtagname, npos3 - 1)
Final se
Se deixado (strtagname, 1) = "/" então
strTagName = MID (strtagname, 2)
BSearchForblock = false
Outro
BSearchForblock = true
Final se
Se Instr (1, Taglist, ";" & strtagname & ";", vbTextCompare)> 0 Então, então
BroMove = Verdadeiro
Se BSearchForblock, então
Se Instr (1, BlockTaglist, ";" & strtagName & ";", vbTextCompare)> 0 Então
npos2 = len (strText)
npos3 = instrum (npos1 + 1, strText, "</" & strtagname, vbtextCompare)
Se npos3> 0 então
npos3 = instrum (npos3 + 1, strtext, ">")
Final se
Se npos3> 0 então
npos2 = npos3
Final se
Final se
Final se
Outro
BroMove = Falso
Final se
Se Bremove então
STRRESULT = STRRESULT & LEITE (STRTEXT, NPOS1 - 1)
strText = MID (strText, npos2 + 1)
Outro
strresult = strresult & esquerda (strText, npos1)
strText = MID (strText, npos1 + 1)
Final se
Outro
strresult = strresult & strtext
strText = ""
Final se
npos1 = instrum (strText, "<")
Laço
strresult = strresult & strtext
Removahtml_c = strresult
Função final
%>
Isso se trata de remover todas as tags no código HTML. Eu acredito que todo mundo tem um certo entendimento. Se você quiser saber mais informações técnicas, continue prestando atenção ao novo canal de tecnologia errada!