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
  

Prueba a hacer replace con dos vbCrlf seguidos por uno solo. También con dos vbLf o con vbCrlf + vbLf

Jose ,

Gracias por tu sugerencia que segui leyendo cada una de las lineas, y reemplazando vbCrlf + vbLf

Por mi podeis cerrar el hilo