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

4 participantes

    Importação TXT - Ajuda

    avatar
    wmantovani
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 05/09/2011

    Importação TXT - Ajuda Empty Importação TXT - Ajuda

    Mensagem  wmantovani 23/10/2012, 11:48

    Pessoal bom dia, possuo um formulário para importação de txt que esta funcionando normalmente, com o seguinte código que segue, que infelizmente não me lembro que ha muito tempo me ajudou. Perdão,

    As linha do arquivo texto do relógio de ponto estão da seguinte forma:
    O campo 02813 é a matricula,
    O campo 121020 é a data do relógio de ponto
    O (08,00) é o hora da batida do ponto

    0,027813,121020,08,00,01,0,
    0,027813,121020,12,00,01,0,
    0,027813,121020,14,00,01,0,
    0,027813,121020,18,00,01,0,
    0,027813,121021,08,01,01,0,
    0,027813,121021,12,01,01,0,
    0,027813,121021,14,01,01,0,
    0,027813,121021,18,01,01,0,



    O que perciso é que no momento da importação seja colocado os dados da seguinte forma já tentei algumas coisas por aqui, mas não to sabendo como tratara a mesma data, matricula e diversos horário e colocar na mesma linha da tabela para que ficasse da seguine forma:

    Data, matricla hora_inicial_manha, hora_final_manha, hora_inicial_tarde, hora_final_tarde

    20/10/12 – 27813, 08:00, 12:00, 14:00, 18:00
    21/10/12 - 27813, 08:01, 12:01, 14:01, 18:01

    Esis o codigo que utilizo atualmente:

    Private Sub Comando68_Click()
    On Error GoTo TrataErro
    Dim db As DAO.Database
    Dim RS As DAO.Recordset
    Dim Linha As String
    If Len(Me.txtNomeArq & vbNullString) = 0 Then ' Testa se txtNomeArq contém alguma coisa
    MsgBox "Informe o nome do arquivo a ser importado", vbExclamation + vbOKOnly, "Vazio"
    Me.txtNomeArq.SetFocus
    Exit Sub
    End If
    If Len(Dir(Me.txtNomeArq)) = 0 Then ' Testa a existência do arquivo
    MsgBox "O arquivo não existe!!!", vbCritical + vbOKOnly, "Erro"
    Me.txtNomeArq.SetFocus
    Exit Sub
    End If

    Open Me.txtNomeArq For Input As #1 ' Abre o arquivo a ser importado
    Set db = CurrentDb
    Set RS = db.OpenRecordset("PONTO")


    While Not EOF(1)
    Line Input #1, Linha ' Lê uma linha do arquivo texto
    If Left$(Linha, 1) = "0" Then
    With RS
    .AddNew

    !MATRÍCULA = Mid$(Linha, 4, 6)
    !DATA = CVDate(Mid$(Linha, 14, 2) & "/" & _
    Mid$(Linha, 12, 2) & "/" & _
    Mid$(Linha, 10, 2))
    !Hora = CVDate(Mid$(Linha, 17, 2) & ":" & _
    Mid$(Linha, 20, 2))
    .Update
    End With
    Else
    End If
    Wend
    MsgBox "ARQUIVO DE PONTO IMPORTADO COM SUCESSO !!! "


    SAIDA:
    Close
    Set RS = Nothing
    Set db = Nothing
    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 Sub

    Desculpas se não soube me explicar

    Grato a quem puder me dar uma luz
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8025
    Registrado : 05/11/2009

    Importação TXT - Ajuda Empty Re: Importação TXT - Ajuda

    Mensagem  Alexandre Neves 23/10/2012, 18:04

    Boa noite, mantovani
    Não entendi o significado do dados que ilustrou.


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    wmantovani
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 05/09/2011

    Importação TXT - Ajuda Empty Re: Importação TXT - Ajuda

    Mensagem  wmantovani 23/10/2012, 23:57

    Caro Alexandre, os dados abaixo:
    0,027813,121020,08,00,01,0,
    0,027813,121020,12,00,01,0,
    0,027813,121020,14,00,01,0,
    0,027813,121020,18,00,01,0,
    0,027813,121021,08,01,01,0,
    0,027813,121021,12,01,01,0,
    0,027813,121021,14,01,01,0,
    0,027813,121021,18,01,01,0,

    Sao de um relogio de ponto, onde na primeira linha, 027813 corresponde a matricula, 121020 corresponde a data da batida do ponto, 08 a hora e 00 os minutos, o arquivo gerado e sempre neste formato com varias matriculas diariamente, algo em torno de 500 matriculas diferentes, 4 vezes ao dia, totalizando 2000 batidas diarias

    preciso colocar cada dia de batida onde na mesma linha, conste as colunas data, matricula horario de batida de entreada entre 07:00 e oito horas, outra coluna saida do almoço 11:00 e 12:05, outra coluna retorno do almoço entre 13:50 e 14:05 e a ultima coluna saida do dia entre 18:00 e 19:00

    avatar
    wmantovani
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 05/09/2011

    Importação TXT - Ajuda Empty Re: Importação TXT - Ajuda

    Mensagem  wmantovani 23/10/2012, 23:59

    Caro Alexandre, os dados abaixo:
    0,027813,121020,08,00,01,0,
    0,027813,121020,12,00,01,0,
    0,027813,121020,14,00,01,0,
    0,027813,121020,18,00,01,0,
    0,027813,121021,08,01,01,0,
    0,027813,121021,12,01,01,0,
    0,027813,121021,14,01,01,0,
    0,027813,121021,18,01,01,0,

    Sao de um relogio de ponto, onde na primeira linha, 027813 corresponde a matricula, 121020 corresponde a data da batida do ponto, 08 a hora e 00 os minutos, o arquivo gerado e sempre neste formato com varias matriculas diariamente, algo em torno de 500 matriculas diferentes, 4 vezes ao dia, totalizando 2000 batidas diarias

    preciso colocar cada dia de batida onde na mesma linha, conste as colunas data, matricula horario de batida de entreada entre 07:00 e oito horas, outra coluna saida do almoço 11:00 e 12:05, outra coluna retorno do almoço entre 13:50 e 14:05 e a ultima coluna saida do dia entre 18:00 e 19:00

    Cláudio Más
    Cláudio Más
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 21/01/2012

    Importação TXT - Ajuda Empty Re: Importação TXT - Ajuda

    Mensagem  Cláudio Más 24/10/2012, 06:56

    !Hora = CVDate(Mid$(Linha, 17, 2) & ":" & _
    Mid$(Linha, 20, 2))

    Após a primeira leitura de hora referente a uma matricula, que deve ser hora_inicial_manha, vc precisa ler mais três linhas do arquivo, para identificar os demais horários, antes do .Update.
    Com os devidos tratamentos de final de arquivo, matricula com todos os horários, etc.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3130
    Registrado : 21/11/2016

    Importação TXT - Ajuda Empty Re: Importação TXT - Ajuda

    Mensagem  DamascenoJr. 29/9/2021, 19:55

    wmantovani, algum avanço?

    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.

      Data/hora atual: 16/10/2021, 17:59