Foros del Web » Programando para Internet » ASP Clásico »

Replace etiquetas

Estas en el tema de Replace etiquetas en el foro de ASP Clásico en Foros del Web. Muy buenas, a ver si alguien puede echarme una manita: Sabeis como puede hacer que me reemplace todo lo que haya entre las etiquetas de ...
  #1 (permalink)  
Antiguo 22/02/2006, 05:18
 
Fecha de Ingreso: enero-2006
Ubicación: Madrid
Mensajes: 148
Antigüedad: 19 años, 2 meses
Puntos: 0
Replace etiquetas

Muy buenas, a ver si alguien puede echarme una manita:
Sabeis como puede hacer que me reemplace todo lo que haya entre las etiquetas de html, es decir si tengo una etiqueta <meta name=....> que me remplace lo que esta entre <> por un blanco por ejemplo, es un poco extraño lo se pero lo necesito, venga un saludo para todos.
  #2 (permalink)  
Antiguo 22/02/2006, 08:58
Avatar de ElAprendiz  
Fecha de Ingreso: enero-2002
Ubicación: Maipu, Chile
Mensajes: 3.706
Antigüedad: 23 años, 3 meses
Puntos: 2
mhhh
por que no haces algo mas sencillo

variable="<meta name=....>"
if left(variable, 1, 11)="<meta name=" then
variable=""
end if
__________________
Manual de ASP Avanzado ;-)
  #3 (permalink)  
Antiguo 22/02/2006, 18:09
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 20 años, 7 meses
Puntos: 18
Esto he entendido yo que quieres hacer, tú diras si te ha servido
Código:
<%
function quitatags(a)
	cadena=""
	principio=0
	final=1
	for i=1 to len(a) ' recorres toda la cadena
		if mid(a,i,1)="<" then
			cadena=cadena&"<" 'esto lo he puesto porque creo que querías dejar los símbolos
			principio=1 'se ha encontrado el comienzo de una etiqueta
			final=0 'pero el final no
		end if
		if principio=1 then
			if mid(a,i,1)=">" then 
				final=1
				principio=0
			end if
		end if
		if principio=0 and final=1 then 'si no se ha encontrado ninguna etiqueta, o se ha llegado al final de una, se empiezan a añadir los caracteres
			cadena=cadena&mid(a,i,1)
		end if
	next
	quitatags=cadena 'asi dejas <>
	'quitatags=replace(cadena,"<>","")'asi los quitas
end function 
response.write quitatags("123456789<9876543210>123456789")
%>
también tiene la putada de que si sólo existe "<" pero no ">", te borrará todo lo que siga a "<". pero eso te lo dejo a tí y a la función Instr.

un saludo.
  #4 (permalink)  
Antiguo 23/02/2006, 04:54
 
Fecha de Ingreso: enero-2006
Ubicación: Madrid
Mensajes: 148
Antigüedad: 19 años, 2 meses
Puntos: 0
Muchas gracias mas o menos me ha servido, me ha quitado casi todas las etiquetas, salvo las style y las script, las stle ya las he quitado tambien, modificando un par de cosas, pero las script me estan dando algún que otro problema, pero en ello estoy, gracias de nuevo un saludo.
  #5 (permalink)  
Antiguo 28/02/2006, 03:59
 
Fecha de Ingreso: enero-2006
Ubicación: Madrid
Mensajes: 148
Antigüedad: 19 años, 2 meses
Puntos: 0
Hola a todos que tal, ya hice con el programa que me envio trasgukabi, que me quitase las etiquetas del codigo fuente, el problema que tenia era con las etiquetas <script> y <style> pues tampoco queria coger los estilos ni las funciones javascript, lo hice pero no se porque algunas etiquetas <script> me las coge y otras no, y querria eliminar todas el programita es el siguiente a ver si alguien puede ayudarme ciao muchas gracias.

Código:
function quitatags(a)
	cadena=""
	principio=0
	final=1
	for i=1 to len(a) ' recorres toda la cadena
		if mid(a,i,1)="<" or mid(a,i,6)="<style" or mid(a,i,7)="<script" then
			if mid(a,i,6)="<style" then
				i=i+6
				while mid(a,i,8)<>"</style>"
					i=i+1
				wend
			else
				if mid(a,i,7)="<script" then
					i=i+7
					while (mid(a,i,9)<>"</SCRIPT>" and mid(a,i,9)<>"</script>")
						i=i+1
					wend
					i=i+9
				end if
			end if 
			cadena=cadena&"<" 
			principio=1 'se ha encontrado el comienzo de una etiqueta
			final=0 'pero el final no
		end if
		if principio=1 then
			cont=0
			if mid(a,i,8)="</style>" or mid(a,i,8)="</script" then
				i=i+8
				cont=1
			else
				if mid(a,i,1)=">" then
					final=1
					principio=0
				end if
			end if
		end if
				
		if principio=0 and final=1 then 'si no se ha encontrado ninguna etiqueta, o se ha llegado al final de una, se empiezan a añadir los caracteres
			if cont=1 then
			 	cadena=cadena&">"
			else
				cadena=cadena&mid(a,i,1)
			end if
		end if
	next
	quitatags=cadena 'asi dejas <>
	quitatags=replace(cadena,"<>","")'asi los quitas
end function
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 09:35.