Olá amigos, gostaria de uma forma de converter arquivos de texto do formato UNIX para Windows em VBA.
Já procurei uma forma objetiva mas não achei.
Grato
Já procurei uma forma objetiva mas não achei.
Grato
Sub ConverterDeUnix()
'ahteixeira 2016 para MaximoAccess
Dim fOrigem$, fDestino$, Linha$
fOrigem = Application.CurrentProject.Path & "\OI_UNIX.txt"
fDestino = Application.CurrentProject.Path & "\OI_UNIX_Convertido.txt"
Open fOrigem For Input Access Read As #1
Line Input #1, Linha
If EOF(1) Then
Linha = Replace(Linha, vbLf, vbCrLf)
Close #1
Open fDestino For Output Access Write As #1
Print #1, Linha
Close #1
Else
Close #1
End If
End Sub
Sub ConverterDeUnix()
'ahteixeira 2016 para MaximoAccess
Dim fOrigem$, fDestino$, Linha$
fOrigem = "C:\FEBRABAN\OI_UNIX.txt"
fDestino = "C:\FEBRABAN\OI_UNIX_Convertido.txt"
Open fOrigem For Input Access Read As #1
Line Input #1, Linha
If EOF(1) Then
Linha = Replace(Linha, vbLf, vbCrLf)
Close #1
Open fDestino For Output Access Write As #1
Print #1, Linha
Close #1
Else
Close #1
End If
End Sub