MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    [Resolvido]Importar arquivo TXT.

    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 596
    Registrado : 20/01/2014

    [Resolvido]Importar arquivo TXT. Empty [Resolvido]Importar arquivo TXT.

    Mensagem  XPTOS 5/2/2020, 18:35

    Amigos, boa tarde!

    Estou tentando importar um arquivo txt sem delimitador, apenas com tabulação.

    Tento importar nome do cliente e outros campos, mas não está dando certo, porque a quantidade de caracter entre cada nome é diferente e os campos não estão em uma posição fixa.

    Alguém pode me auxiliar?

    Segue exemplo: https://www.dropbox.com/s/09av06v19m1whl7/Importar%20TXT.rar?dl=0

    Código:
    Dim db As DAO.Database, rs As DAO.Recordset
    Dim Arquivo As Integer
    Dim CaminhoArquivo As String
    Dim TextoArquivo As String
    Dim TextoProximaLinha As String
    Dim ContadorLinha As Long

    'Configura a leitura do arquivo
    Arquivo = FreeFile
    CaminhoArquivo = "C:\Users\WAGOMES\Desktop\Importar TXT\producao_112019.txt"

    'Abre o arquivo para leitura
    Open CaminhoArquivo For Input As Arquivo
    ContadorLinha = 1
    'Lê o conteúdo do arquivo linha a linha
    Set rs = CurrentDb.OpenRecordset("Recebido") 'é mais simples

        Do While Not EOF(Arquivo)
            Line Input #Arquivo, TextoProximaLinha
            TextoProximaLinha = TextoProximaLinha & vbCrLf
            TextoArquivo = TextoArquivo & TextoProximaLinha
        On Error Resume Next
            rs.AddNew
            rs!nomeBeneficiario = Mid(TextoProximaLinha, 46, 22)
            rs!numeroCarteira = Mid(TextoProximaLinha, 30, 13)
            rs!senhaAutorizacao = Mid(TextoProximaLinha, 8, 8)
            rs!dataHoraInternacao = Mid(TextoProximaLinha, 17, 10)
            rs.Update
        Loop

      'Coloca na janela de verificação imediata
        MsgBox TextoArquivo
     
        'Fecha o arquivo
        Close Arquivo


    .................................................................................
    Grato,
    avatar
    renpv
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 323
    Registrado : 12/01/2015

    [Resolvido]Importar arquivo TXT. Empty Re: [Resolvido]Importar arquivo TXT.

    Mensagem  renpv 6/2/2020, 00:39

    Seu problema não está no código, está no TXT. Nem tem delimitador nem largura fixa nos campos. Parece ter sido convertido de PDF pra TXT.
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 596
    Registrado : 20/01/2014

    [Resolvido]Importar arquivo TXT. Empty Re: [Resolvido]Importar arquivo TXT.

    Mensagem  XPTOS 6/2/2020, 01:03

    Justamente,

    Ele foi convertido de PDF pra TXT e tem apenas tabulações.

    Como não consegui importar PDF para tabela access, resolvi converter para importar.


    .................................................................................
    Grato,
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3339
    Registrado : 22/11/2016

    [Resolvido]Importar arquivo TXT. Empty Re: [Resolvido]Importar arquivo TXT.

    Mensagem  DamascenoJr. 11/4/2021, 03:12

    Algum avanço aqui?

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 596
    Registrado : 20/01/2014

    [Resolvido]Importar arquivo TXT. Empty Re: [Resolvido]Importar arquivo TXT.

    Mensagem  XPTOS 11/4/2021, 03:47

    Aqui já foi resolvido sim.


    .................................................................................
    Grato,

      Data/hora atual: 6/12/2021, 17:10