Imprimir página | Cerrar ventana

Borrar lineas en blanco de un fichero de texto

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84558
Fecha de impresión: 10/Julio/2020 a las 02:34


Tema: Borrar lineas en blanco de un fichero de texto
Publicado por: cpampasPT
Asunto: Borrar lineas en blanco de un fichero de texto
Fecha de publicación: 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
  



Respuestas:
Publicado por: Chea1
Fecha de publicación: 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
http://jbengoechea.com - Mi página
http://access.bengoechea.net -
Mi otra página


Publicado por: cpampasPT
Fecha de publicación: 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




Imprimir página | Cerrar ventana