** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Borrar lineas en blanco de un fichero de texto
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoBorrar lineas en blanco de un fichero de texto

 Responder Responder
Autor
Mensaje
cpampasPT Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 20/Marzo/2010
Localización: Portugal
Estado: Sin conexión
Puntos: 537
Enlace directo a este mensaje Tema: Borrar lineas en blanco de un fichero de texto
    Enviado: 16/Junio/2019 a las 00:54
Buenas amigos,
Me pregunto si me podeis dar una idea de como puedo eliminar las lineas en blanco de un fichero de texto al que accedo asi, o sera que tengo que recorrer cada una de las lineas y no todas en conjunto :


  Dim MyData As String, fName as string
fName = "C:\prueba.txt"
    '--> Leer el fichero de texto de una sola vez
    Open fName For Binary As #1

    MyData = Space$(LOF(1)) ' asigna  buffer to al tamano del fichero
    Get #1, , MyData
    Close #1


Do
    temp = MyData
    MyData = Replace(MyData, Space(3), Space(2)) ' cambia 3 espacios por 2
Loop Until temp = MyData

MyData = Replace(MyData, Space(2), "#") ' asigna delimitador para separar futuros campos
    '--> crea un nuevo fichero con las alteraciones
    Open "C:\Users\Carlos\Desktop\NewFilename.Txt" For Output Access Write As #1
' aqui me gustaria eliminar las lineas en blanco
    Print #1, MyData
    Close #1
  
Arriba
Chea1 Ver desplegable
Moderador
Moderador


Unido: 20/Noviembre/2005
Localización: España
Estado: Sin conexión
Puntos: 4143
Enlace directo a este mensaje Enviado: 16/Junio/2019 a las 10:08
Prueba a hacer replace con dos vbCrlf seguidos por uno solo. También con dos vbLf o con vbCrlf + vbLf

Saludos
José Bengoechea Ibaceta
Mi página

Mi otra página
Arriba
cpampasPT Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 20/Marzo/2010
Localización: Portugal
Estado: Sin conexión
Puntos: 537
Enlace directo a este mensaje Enviado: 16/Junio/2019 a las 18:49
Jose ,
Gracias por tu sugerencia que segui leyendo cada una de las lineas, y reemplazando vbCrlf + vbLf
Por mi podeis cerrar el hilo

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable