Everton Diniz

Eu agradeço ao amigo, mas preciso de uma ação automatica. Na realidade eu preciso acertar o script de importação. Muito obrigado pela ajuda... Diniz

Bom dia Srs, Estou importando um arquivo txt que não tem CRLF, somente CR. Seguindo instruções fui montando a rotina de importação da seguinte forma: Open arquivo For Input As #1 Open "c:\Controle\temp.txt" For Output As #2 Do While Not EOF(1) Line Input #1, xLine For FF = 1 To Len(xLine) If Mid(xLine, FF, 1) = Chr(10) Then SLine = SLine & vbCrLf Print #2, SLine Else SLine = SLine & Mid(xLine, FF, 1) End If Next FF Loop Close #1 Close #2 Open "C:\Controle\temp.txt" For Input As #1 Do While Not EOF(1) Line Input #1, SLine Com a finalidade de resolver este problema, um segundo arquivo entrou em ação para receber corretamente as linhas. Porém ao importar este arquivo para a tabela muitos registros estavam sendo duplicados. Observei que o meu arquivo auxiliar estava com muitos registros duplicados, daí meu inset duplicado na tabela. Os amigos poderiam me ajudar a solucionar este enigma... Muito Grato Diniz