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


    [Resolvido]Importando Arquivo .TXT com 4 linhas e layoute diferente

    avatar
    rodrigosky
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 83
    Registrado : 17/05/2013

    [Resolvido]Importando Arquivo .TXT com 4 linhas e layoute diferente Empty [Resolvido]Importando Arquivo .TXT com 4 linhas e layoute diferente

    Mensagem  rodrigosky 4/6/2013, 15:22

    Prezados,
    Estou tentando desenvolver um banco de dados Access para efetuar importação de um arquivo .TXT, que possuem 4 linhas para cada registro, é um arquivo de cobrança bastante parecido com o FEBRABAN, porem com pequenas adaptações, fiz o código porem estou perdido de como fazer ele varrer tipo varrer as 4 linhas que são informações de único registro e salvando em tabela ,buscando as posições desejadas de cada linha, o código que eu fiz ate o momento varre uma linha e transporta para a tabela em uma linha, e a segunda linha ao invés dele colocar ainda na primeira linha da tabela, ele cria uma nova e assim em sequencia, se caso alguém tenha uma dica ou informações para que eu possa corrigir este erro.

    Segue abaixo código.


    Código:
    Private Sub Comando12_Click()
    On Error GoTo TrataErro

    Dim DB As DAO.Database
    Dim RS As DAO.Recordset
    Dim RS1 As DAO.Recordset
    Dim Linha As String


       If Len(Me.txt_caminho & vbNullString) = 0 Then ' Testa se txtNomeArq contém alguma coisa
           MsgBox "Informe o nome do arquivo a ser importado", vbExclamation + vbOKOnly, "Vazio"
           Me.txt_caminho.SetFocus
           Exit Sub
       End If
       If Len(Dir(Me.txt_caminho)) = 0 Then ' Testa a existência do arquivo
           MsgBox "O arquivo não existe!!!", vbCritical + vbOKOnly, "Erro"
           Me.txt_caminho.SetFocus
           Exit Sub
       End If
       
       Open Me.txt_caminho For Input As #1 ' Abre o arquivo a ser importado
       If MsgBox("Deseja importar a lista de Arquivo?", vbQuestion + vbYesNo, "Sistema!") = vbYes Then
               
           'Limpa a tabela informada (tbl_remessa)
           DoCmd.SetWarnings (False)
           SQL = "DELETE * FROM tbl_remessa"
           DoCmd.RunSQL SQL
     
       Set DB = CurrentDb
       Set RS = DB.OpenRecordset("tbl_remessa")

       
       While Not EOF(1)
           Line Input #1, Linha ' Lê uma linha do arquivo texto
           If Left$(Linha, 1) = "0" Then
               With RS
               .AddNew
               !sequencia_1 = Mid$(Linha, 1, 7) 'Inicia-se a 1º Linha
               !tipo_registro_1 = Mid$(Linha, 8, 2)
               !matricula = Mid$(Linha, 10, 20)
               !nome = Mid$(Linha, 30, 70)
               !cpf = Mid$(Linha, 100, 11) 'Termina 1º Linha
               !chave_origem_2 = Mid$(Linha, 111, 10) 'Inicia-se a 2º Linha
               !chave_origem_rotina = Mid$(Linha, 121, 10)
               !contrato = Mid$(Linha, 131, 50)
               !sequecia_2 = Mid$(Linha, 1, 7)
               !tipo_registro_2 = Mid$(Linha, 8, 2)
               !logradouro = Mid$(Linha, 10, 50)
               !complemento = Mid$(Linha, 60, 15)
               !numero = Mid$(Linha, 75, 5)
               !bairro = Mid$(Linha, 80, 30)
               !cep = Mid$(Linha, 110, 8)
               !municipio = Mid$(Linha, 118, 30)
               !uf = Mid$(Linha, 148, 2) 'Termina 2º Linha
               !sequencia_3 = Mid$(Linha, 1, 7) 'Inicia-se a 3º Linha
               !tipo_registro_3 = Mid$(Linha, 8, 2)
               !numero_fatura = Mid$(Linha, 10, 10)
               !data_vencimento_3 = Mid$(Linha, 20, 10)
               !valor_fatura = Mid$(Linha, 30, 15)
               !chave_origem_3 = Mid$(Linha, 45, 10) 'Termina 3º Linh
               !sequencia_4 = Mid$(Linha, 1, 7) 'Inicia-se a 4º Linha
               !tipo_registro_4 = Mid$(Linha, 8, 2)
               !data_vencimento_4 = Mid$(Linha, 10, 10)
               !valor_boleto = Mid$(Linha, 20, 15)
               !linha_digitavel = Mid$(Linha, 35, 60)
               !competencia = Mid$(Linha, 95, 7) 'Termina 4º Linha
               .Update
                   
               End With
           
           End If
       Wend

    Saida:
       Close
       Set RS = Nothing
       Set DB = Nothing
       MsgBox "Importação realizada com sucesso!", vbInformation, "Sistema!"
       Exit Sub
       
    TrataErro:
       MsgBox Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
    #If DESENV Then     ' Compilação condicional - Em desenvolvimento
       Stop
       Resume
    #End If
       Resume Saida
       End If
    End Sub

    Se encontra em anexo um exemplo do banco e do arquivo a ser importado.

    Desde ja Agradeço a Todos!
    Anexos
    [Resolvido]Importando Arquivo .TXT com 4 linhas e layoute diferente AttachmentImportando.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (79 Kb) Baixado 20 vez(es)
    avatar
    Convidado
    Convidado


    [Resolvido]Importando Arquivo .TXT com 4 linhas e layoute diferente Empty Re: [Resolvido]Importando Arquivo .TXT com 4 linhas e layoute diferente

    Mensagem  Convidado 3/9/2013, 02:41

    Como anda esta solução colega?


    Cumprimentos.
    avatar
    rodrigosky
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 83
    Registrado : 17/05/2013

    [Resolvido]Importando Arquivo .TXT com 4 linhas e layoute diferente Empty Re: [Resolvido]Importando Arquivo .TXT com 4 linhas e layoute diferente

    Mensagem  rodrigosky 22/10/2013, 12:44

    PILOTO, muito obrigado, mas o arquivo mudou de formato, ai não tive problemas para importar manualmente para o access.
    Obrigado a todos
    avatar
    Convidado
    Convidado


    [Resolvido]Importando Arquivo .TXT com 4 linhas e layoute diferente Empty Re: [Resolvido]Importando Arquivo .TXT com 4 linhas e layoute diferente

    Mensagem  Convidado 22/10/2013, 13:28

    O Fórum agradece o retorno.

    Conteúdo patrocinado


    [Resolvido]Importando Arquivo .TXT com 4 linhas e layoute diferente Empty Re: [Resolvido]Importando Arquivo .TXT com 4 linhas e layoute diferente

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 09:07