Importação de Arquivo TXT

[Everton 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

[MrMALJ]

Você pode resolver isso usando uma consulta para exclusão dos registros duplicados.

[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

[MrMALJ]

Bom faça a consulta e utilize o

docmd.openquery "suaConsulta"

após realizar a sua importação, dessa forma fica automatizada tambem, acho que tive um problema com o seu e assim que resolvi importava para uma tabela temporaria limpava as duplicações depois executava uma outra consulta atualização para passar os registros limpos para a tabela final.