Cuando escribimos el código HTML, a veces necesitamos eliminar todas las etiquetas. Es problemático eliminar las etiquetas una por una. Entonces, ¿hay alguna forma rápida y conveniente? Echemos un vistazo a cómo eliminar todas las etiquetas en el código HTML.
Eliminar todas las etiquetas en el código HTML
La copia del código es la siguiente:<%
'**********************************
'Función: RemoveHTML_A (strText)
'Argumentos: strtext, cadena para ser procesado
'Autor: Alixi
'Fecha: 2007/7/12
'Descripción: elimine todas las etiquetas en el código HTML
'Ejemplo: <%= removeHtml_a ("<b> Bienvenido a Alixixi </b>")%>
'**********************************
Función RemoveHTML_A (strText)
Dim OPOS1
Dim OSPOS2
npos1 = instr (strText, "<")
Hacer mientras Npos1> 0
npos2 = instr (npos1+1, strtext, ">")
Si Npos2> 0 entonces
strtext = izquierda (strtext, npos1 - 1) y mid (strText, npos2 + 1)
Demás
Salir
Final si
npos1 = instr (strText, "<")
Bucle
RemoverHtml_a = strText
Función final
%>
Eliminar todas las etiquetas en el código HTML
La copia del código es la siguiente:<%
'**********************************
'Función: RemoveHTML_B (strText)
'Argumentos: strtext, cadena para ser procesado
'Autor: Alixi
'Fecha: 2007/7/12
'Descripción: elimine todas las etiquetas en el código HTML
'Ejemplo: <%= removeHtml_b ("<b> Bienvenido a Alixixi </b>")%>
'**********************************
Función Remouthtml_b (strText)
Regex oscuro
Establecer regex = new Regexp
Regex.pattern = "<[^>]*>"
Regex.global = verdadero
Removehtml_b = regex.replace (strText, "")
Función final
%>
Eliminar todas las etiquetas en el código HTML
La copia del código es la siguiente:<%
'**********************************
'Función: RemoveHTML_C (strText)
'Argumentos: strtext, cadena para ser procesado
'Autor: Alixi
'Fecha: 2007/7/12
'Descripción: elimine todas las etiquetas en el código HTML
'Ejemplo: <%= removeHtml_c ("<b> Bienvenido a Alixixi </b>")%>
'**********************************
Función Remouthtml_c (strText)
Tglist de dim
TagList = ";!-; & _
"Bgsound; big; blockquote; cuerpo; br; botón; subtítulos; centro; citar; código;" & _
"Col; colgroup; comentario; dd; del; dfn; dir; div; dl; dt; em; incrustar; Fieldset;" & _
"Font; form; marco; frameset; cabeza; h1; h2; h3; h4; h5; h6; hr; html; i; iframe; img;" & _
"Entrada; ins; isIndex; kbd; etiqueta; capa; lagend; li; enlace; listado; mapa; marquee;" & _
"Menú; meta; nobr; noframes; noscript; objeto; ol; opción; p; par par; textreño;" & _
"Pre; q; s; samp; script; seleccione; pequeño; Span; Strike; Strong; Style; Sub; Sup;" & _
"Tabla; tbody; td; textARea; tfoot; th; thead; título; tr; tt; u; ul; var; wbr; xmp;"
Const blocktagList = "; applet; incrustar; frameset; head; noframes; noscript; objeto; script; estilo;"
Dim OPOS1
Dim OSPOS2
Dim OSPOS3
Dim strresult
Dim strtagname
Dim Bremove
Dim BSearchForBlock
npos1 = instr (strText, "<")
Hacer mientras Npos1> 0
npos2 = instr (npos1 + 1, strtext, ">")
Si Npos2> 0 entonces
strtagname = mid (strText, Npos1 + 1, Npos2 - Npos1 - 1)
strtagname = reemplazar (reemplazar (strtagname, vbcr, ""), vblf, "")
npos3 = instr (strtagname, "")
Si Npos3> 0 entonces
strtagname = izquierda (strtagname, npos3 - 1)
Final si
Si se deja (strtagname, 1) = "/" entonces
strtagname = mid (strtagname, 2)
bsearchForBlock = falso
Demás
bsearchForBlock = True
Final si
If instrer (1, taglist, ";" & strtagname & ";", vbTextCompare)> 0 entonces entonces
Bremove = True
Si bsearchForBlock entonces
If instrer (1, blocktagList, ";" & strtagname & ";", vbTextCompare)> 0 entonces
npos2 = len (strText)
npos3 = instr (npos1 + 1, strtext, "</" & strtagname, vbTextCompare)
Si Npos3> 0 entonces
Npos3 = Instr (Npos3 + 1, StrText, ">")
Final si
Si Npos3> 0 entonces
Npos2 = Npos3
Final si
Final si
Final si
Demás
Bremove = falso
Final si
Si Bremove entonces
strResult = strResult & Left (strText, Npos1 - 1)
strtext = mid (strText, Npos2 + 1)
Demás
strResult = strResult & Left (strText, Npos1)
strtext = mid (strText, Npos1 + 1)
Final si
Demás
strResult = strresult & strtext
strtext = ""
Final si
npos1 = instr (strText, "<")
Bucle
strResult = strresult & strtext
RemoverHtml_c = strResult
Función final
%>
Se trata de eliminar todas las etiquetas en el código HTML. Creo que todos tienen un cierto entendimiento. Si desea saber más información técnica, ¡continúe prestando atención al nuevo canal de tecnología incorrecto!