
13/03/2007, 07:40
|
| | 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é - |