MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    rodrigosky
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Importando Arquivo .TXT com 4 linhas e layoute diferente

    Mensagem  rodrigosky em Ter 04 Jun 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.


    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, Cool
    !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
    Importando.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (79 Kb) Baixado 17 vez(es)

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em Ter 03 Set 2013, 02:41

    Como anda esta solução colega?


    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    rodrigosky
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  rodrigosky em Ter 22 Out 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

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em Ter 22 Out 2013, 13:28

    O Fórum agradece o retorno.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sab 10 Dez 2016, 04:53