TERMINACAO DE LINHA EM ARQUIVO TXT

RFERREIRA 22/03/2011 12:55:00
#368775
Alguem sabe me dizer como posso mudar a terminação de linha de um txt que foi gerado em UNIX ou IBM para que o VB6 consiga identificar que acabou a linha?
O unico modo que arrumei de consertar isso foi abrindo o txt no wordpad e salvando pq ai ele muda a terminalção.
Alguem sabe?
MARCELO.TREZE 22/03/2011 12:57:37
#368777
explique melhor, não entendi o que quiz dizer?
RFERREIRA 22/03/2011 13:03:09
#368778
Assim, tenho uma rotina que le um arquivo txt para jogar informações no banco de dados.
Porém esse arquivo é gerado em um servidor IBM que por ser outro Sistema Operacional a linha do txt, termina de maneira diferente do que em um arvquivo gerado no windows. então o vb não entende que a linha terminou e dá erro.
MARCELO.TREZE 22/03/2011 13:27:56
#368784
eu ia falar isso como ele termina e como deveria terminar? poste o exemplo
RFERREIRA 22/03/2011 14:20:15
#368792
estou usando a vbCr como mudo para vbCrLf) ?
MARCELO.TREZE 22/03/2011 15:06:44
#368800
bom coloquei um código em um botão para vc testar

veja

Private Sub Command1_Click()
Dim PathName As String
Dim InLine  As String
Dim TempFile As String
Dim F    As Integer
Dim F2   As Integer

  PathName = [Ô]c:\seuarquivo.txt[Ô]
  TempFile = App.Path & Format(Time, [Ô]hhnnss[Ô]) & [Ô].TMP[Ô] [ô] arquivo temporário
  F = FreeFile
  Open PathName For Input As #F
  F2 = FreeFile
  Open TempFile For Output As #F2
  Do While Not EOF(F)
  Line Input #F, InLine

   If EOF(F) = True Then
    Print #F2, Replace(InLine, vbCr, vbCrLf)
    Else
    Print #F2, InLine
   End If
   
   Loop
     Close #F
  Close #F2
[ô]
[ô] Troca o arquivo antigo pelo novo
[ô]
  Kill PathName
  Name TempFile As PathName
End Sub



ps: o código acima troca apenas a ultima linha do arquivo texto

se deseja trocar a terminação de todas as linhas

seria este o código

Private Sub Command1_Click()
Dim PathName As String
Dim InLine  As String
Dim TempFile As String
Dim F    As Integer
Dim F2   As Integer

  PathName = [Ô]c:\seuarquivo.txt[Ô]
  TempFile = App.Path & Format(Time, [Ô]hhnnss[Ô]) & [Ô].TMP[Ô] [ô] arquivo temporário
  F = FreeFile
  Open PathName For Input As #F
  F2 = FreeFile
  Open TempFile For Output As #F2
  Do While Not EOF(F)
  Line Input #F, InLine

    Print #F2, Replace(InLine, vbCr, vbCrLf)
    
   Loop
     Close #F
  Close #F2
[ô]
[ô] Troca o arquivo antigo pelo novo
[ô]
  Kill PathName
  Name TempFile As PathName
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar