Ver Mensaje Individual
  #8 (permalink)  
Antiguo 13/03/2007, 07:40
tammander
 
Fecha de Ingreso: enero-2006
Ubicación: Torroles (Costa der Só)
Mensajes: 1.017
Antigüedad: 19 años, 3 meses
Puntos: 7
Re: Eliminar espacio dentro del codigo

Prueba a usar esto:


texto = "Esto es una prueba de <b>valores</b> continuos que estan concatenados <b>uno</b> a <b>uno</b>"

function extraeTodos(texto)
Dim textox
textox = texto
te = instr(1, textox, "<b>", 1)
if te <> 0 and te <> vbNull then
texto1 = left(textox, te-1)
tu = instr(1, textox, "</b>", 1)
if tu <> 0 and tu <> vbNull then texto2 = mid(textox,tu+4)
extraeTodos = extraeTodos(1, (texto1 & texto2))
end if
end function


response.Write(extraeTodos(texto))
En donde pone <b>, lo cambias por <font
y </b> pon </font>


Te borrará todo lo que haya entre ambos textos, tags incluidos.
__________________
"Tus pecados son el estiércol sobre el que florecerán las flores de tus virtudes" - Gerald Messadié -