replce con backspace

[diegodnt]

HOLA AMIGOS TENGO UN PROBLEMA TOY HACIENDO UNA APLICACION EN VB 6.0 Q ME LIMPIA UNOS CARACTERES HTML DE UNA DE MIS PAGINAS
PARA LO CUAL USO LA FUNCION REPLACE PERO ESA FUNCION ME DEJA LINEAS EN BLANCO Y YO QUIERO Q ESAS LINEAS EN BLANCO DESAPAREZCAN ESTABA PENSANDO QE CUANDO REMPLAZO HTML ME LO REMPLACE POR BACKSPACES PARA NO TENER LINEAS EN BLANCO PERO NO LO PUEDO PONES EN EL REPLACE
YO USO ASI:

numte = Replace(Trim(numte), "<META http-equiv=CACHE-CONTROL content=NO-CACHE>", "")
numte = Replace(Trim(numte), "<META http-equiv=PRAGMA content=NO-CACHE>", "")
numte = Replace(Trim(numte), "<META http-equiv=EXPIRES content=-1></HEAD>", "")

EN MI CASO EL REPLACE LO REMPLAZO CON VACIO PERO QUIERO EN ESOS CASOS UN BACKSPACES PARA BORRAR LOS LUGARES LIBRES
DESDE YA MUCHAS GRACIAS ESPERO Q ME HAYAN ENTENDIDO...
SALU2....
DIEGODNT

[David]

Iniciado por diegodnt

HOLA AMIGOS TENGO UN PROBLEMA TOY HACIENDO UNA APLICACION EN VB 6.0 Q ME LIMPIA UNOS CARACTERES HTML DE UNA DE MIS PAGINAS
PARA LO CUAL USO LA FUNCION REPLACE PERO ESA FUNCION ME DEJA LINEAS EN BLANCO Y YO QUIERO Q ESAS LINEAS EN BLANCO DESAPAREZCAN ESTABA PENSANDO QE CUANDO REMPLAZO HTML ME LO REMPLACE POR BACKSPACES PARA NO TENER LINEAS EN BLANCO PERO NO LO PUEDO PONES EN EL REPLACE
YO USO ASI:

numte = Replace(Trim(numte), "<META http-equiv=CACHE-CONTROL content=NO-CACHE>", "")
numte = Replace(Trim(numte), "<META http-equiv=PRAGMA content=NO-CACHE>", "")
numte = Replace(Trim(numte), "<META http-equiv=EXPIRES content=-1></HEAD>", "")

EN MI CASO EL REPLACE LO REMPLAZO CON VACIO PERO QUIERO EN ESOS CASOS UN BACKSPACES PARA BORRAR LOS LUGARES LIBRES
DESDE YA MUCHAS GRACIAS ESPERO Q ME HAYAN ENTENDIDO...
SALU2....
DIEGODNT

Tal vez podrías "buscar" todos los caracteres q' queréis borrar y simplemente "quitarlos" de la cadena...

[diegodnt]

eso ya lo hice el problema es que cuando los borro me quedan lines vacias ej:
*-*-*-*-*-*-*-*
hola...



lkjlkj...
.

sdsdsdsd
*-*-*-*-*-*-*-*-*-*-*-
fin ejemplo
se entiende quiero borrar esas linesas vacias asi me queda todo juntos
*-*-*-*-
hola...
lkjlkj...
.
sdsdsdsd
*-*-*-*-*-*-*

[Beakdan]

La línea en blanco que te queda es el caracter de salto de línea. Sólo tienes que borrarla también.

Código:

 numte = Replace(Trim(numte), "<META http-equiv=CACHE-CONTROL content=NO-CACHE>" & vbCrLf, "")
 numte = Replace(Trim(numte), "<META http-equiv=PRAGMA content=NO-CACHE>" & vbCrLf, "")
 numte = Replace(Trim(numte), "<META http-equiv=EXPIRES content=-1></HEAD>" & vbCrLf, "")