1

Se tiene un archivo de texto plano que se descarga desde Unix, viene con el fin de línea LF y requiero convertirlo a fin de línea de windows CRLF. Pero teniendo en cuenta que no se puede recorrer registro por registro para cambiar el fin de linea. Algo similar a un buscar y reemplazar en todo el archivo pero utilizando instrucciones Vba.

1 respuesta 1

1

Usando Scripting.FileSystemObject para leer el archivo, luego simplemente Replace para modificar los fines de línea

Private Sub Unix2Dos(file)

    Dim fs As Object, txt As String
    Set fs = CreateObject("Scripting.FileSystemObject")

    txt = fs.OpenTextFile(file, 1).ReadAll
    txt = Replace(txt, vbLf, vbCrLf)
    fs.OpenTextFile(file, 2).Write txt

End Sub
2
  • Muchas gracias, acabo de probar su solución y se conserva el fin de linea Inicial, al parecer no está reemplazando adecuadamente. Depronto podría orientarme con este problema? @Patricio Moracho
    – Diego All
    Commented el 4 oct. 2017 a las 21:11
  • @DiegoAll, no hay muchas posibilidades Replace(txt, vbLf, vbCrLf) reemplaza el CHAR(10) por un CHAR(10)+CHAR(13), probado. Posibilidades: que no tuvieras permiso de escritura, pero imagino que tendrías un error o que el problema en el archivo sea otro, para lo cual deberías subirlo a algún servicio tipo gdrive y compartirlo así se revisa. Commented el 4 oct. 2017 a las 21:21

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.