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]Ler Ultima linha do arquivo TXT.

    DCR2012
    DCR2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/01/2013

    [Resolvido]Ler Ultima linha do arquivo TXT. Empty Ler Ultima linha do arquivo TXT.

    Mensagem  DCR2012 13/3/2013, 13:07

    Boa Tarde,

    Pessoal estou com um probleminha e gostaria de uma ajuda.

    Tenho o Seguinte Cod que está funcionando Perfeitamente sem problemas.

    Código:
    Sub ImportCnabExcDia(arquivo As String, strTable As String)

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


    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset(strTable)
    Dim strNome As String, strTel As String, strBairro As String
    strAImportar = ""

    Open arquivo For Input As #1

    Do While Not EOF(1)

    Line Input #1, Linha ' Lê uma linha do arquivo texto

    If Mid$(Linha, 1, 1) = "1" Then
    stragenciacliente = Mid$(Linha, 2, 4)
    strcontacliente = Mid$(Linha, 6, 10)


    ElseIf Mid$(Linha, 1, 1) = "2" Then
    With RS
    .AddNew
    !Id = Mid$(Linha, 1, 1)
    !datavencimento = Mid$(Linha, 2, 8)
    !numerobordero = Mid$(Linha, 10, 7)
    !NUMEROLOTE = Mid$(Linha, 17, 7)
    !camaradestino = Mid$(Linha, 24, 3)
    !Banco = Mid$(Linha, 27, 3)
    !AGENCIA = Mid$(Linha, 30, 4)
    !CONTACORRENTE = Mid$(Linha, 34, 10)
    !NUMEROCHEQUE = Mid$(Linha, 44, 6)
    !Valor = Mid$(Linha, 50, 15)
    !tiposolicitacao = Mid$(Linha, 65, 1)
    !CPFCNPJ = Mid$(Linha, 66, 15)
    !Campo = Mid$(Linha, 81, 25)
    !filer = Mid$(Linha, 106, 22)
    !statusatendimento = Mid$(Linha, 128, 3)
    !SEQUENCIA = Mid$(Linha, 131, 10)
    !contacliente = strcontacliente
    !agenciacliente = stragenciacliente
       
    .Update
    End With
    End If

    Loop


    Saida:
    Close
    Set RS = Nothing
    Set DB = Nothing
    Exit Sub

    End Sub

    Como podem ver ele Lê o Cabeçalho do arquivo e joga em strings os valores que preciso, e inclui linha a linha esses valores.

    Mas tenho uma informação no fim de todo arquivo que preciso buscar tambem.

    Como faço para o Cod ler a Ultima linha do arquivo primeiro?

    Desde Já agradeço.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Ler Ultima linha do arquivo TXT. Empty Re: [Resolvido]Ler Ultima linha do arquivo TXT.

    Mensagem  criquio 13/3/2013, 13:27

    Talvez assim:

    Código:
    If EOF(1) Then
        Grava a última linha
    ElseIf Mid$(Linha, 1, 1) = "1" Then
        stragenciacliente = Mid$(Linha, 2, 4)
        strcontacliente = Mid$(Linha, 6, 10)
    ElseIf Mid$(Linha, 1, 1) = "2" Then
        With RS
            .AddNew
            !Id = Mid$(Linha, 1, 1)
            ...
            .Update
        End With
    End If

    Loop
    Tente adaptar.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    DCR2012
    DCR2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/01/2013

    [Resolvido]Ler Ultima linha do arquivo TXT. Empty Re: [Resolvido]Ler Ultima linha do arquivo TXT.

    Mensagem  DCR2012 14/3/2013, 13:20

    Criquio desculpe minha ignorancia, mas o que esse IF EOF(1) Then está fazendo. Se ele está gravando a ultima linha como faço para pega a informação que está nela?

    A Informação que preciso seria assim strdatamov = Mid$("ULTIMALINHADOARQUIVO",2,Cool

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Ler Ultima linha do arquivo TXT. Empty Re: [Resolvido]Ler Ultima linha do arquivo TXT.

    Mensagem  criquio 14/3/2013, 13:23

    EOF significa "End Of File", ou seja, "fim do arquivo" ou "última linha". Se estiver na última linha, pega os dados dela.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    DCR2012
    DCR2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/01/2013

    [Resolvido]Ler Ultima linha do arquivo TXT. Empty Re: [Resolvido]Ler Ultima linha do arquivo TXT.

    Mensagem  DCR2012 14/3/2013, 14:22

    Criquio Obrigado.

    Resolvi de outra forma ele le o arquivo duas vezes.
    Como os arquivos são pequenos cerca de 300 registros apenas a leitura é rapida e não lentiou...

    Só para mostrar ficou assim.

    Código:
    Sub ImportCnabExcDia(arquivo As String, strTable As String)

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


    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset(strTable)
    Dim strNome As String, strTel As String, strBairro As String
    strAImportar = ""



    Open arquivo For Input As #1

    Do While Not EOF(1)
    Line Input #1, Linha ' Lê uma linha do arquivo texto

    If Mid$(Linha, 1, 1) = "1" Then
    stragenciacliente = Mid$(Linha, 2, 4)
    strcontacliente = Mid$(Linha, 6, 10)
    ElseIf Mid$(Linha, 1, 1) = "3" Then
    strdatamov = CDate(Right(Mid$(Linha, 2, 8), 2) & "/" & Mid(Mid$(Linha, 2, 8), 5, 2) & "/" & Left(Mid$(Linha, 2, 8), 4))
    End If
    Loop
    Saida1:
    Close


    Open arquivo For Input As #1

    Do While Not EOF(1)
    Line Input #1, Linha ' Lê uma linha do arquivo texto


    If Mid$(Linha, 1, 1) = "1" Then
    stragenciacliente = Mid$(Linha, 2, 4)
    strcontacliente = Mid$(Linha, 6, 10)


    ElseIf Mid$(Linha, 1, 1) = "2" Then
    With RS
    .AddNew
    !Id = Mid$(Linha, 1, 1)
    !datavencimento = CDate(Right(Mid$(Linha, 2, 8), 2) & "/" & Mid(Mid$(Linha, 2, 8), 5, 2) & "/" & Left(Mid$(Linha, 2, 8), 4))
    !numerobordero = Mid$(Linha, 10, 7)
    !NUMEROLOTE = Mid$(Linha, 17, 7)
    !camaradestino = Mid$(Linha, 24, 3)
    !Banco = Format(Mid$(Linha, 27, 3), "000")
    !AGENCIA = Format(Mid$(Linha, 30, 4), "0000")
    !CONTACORRENTE = Mid$(Linha, 34, 10)
    !CC6 = Format(Right(DigCC(Mid$(Linha, 34, 10)), 6), "000000")
    !NUMEROCHEQUE = Format(Mid$(Linha, 44, 6), "000000")
    !Valor = CCur(Mid$(Linha, 50, 15)) / 100
    !tiposolicitacao = Mid$(Linha, 65, 1)
    !CPFCNPJ = Mid$(Linha, 66, 15)
    !Campo = Mid$(Linha, 81, 25)
    !filer = Mid$(Linha, 106, 22)
    !statusatendimento = Mid$(Linha, 128, 3)
    !SEQUENCIA = Mid$(Linha, 131, 10)
    !contacliente = strcontacliente
    !agenciacliente = stragenciacliente
    !datamovimento = strdatamov
    .Update
    End With
    End If
    Loop
    Saida:
    Close


    Set RS = Nothing
    Set DB = Nothing
    Exit Sub

    End Sub

    Obrigado.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Ler Ultima linha do arquivo TXT. Empty Re: [Resolvido]Ler Ultima linha do arquivo TXT.

    Mensagem  criquio 14/3/2013, 18:50

    Grato pelo retorno. O fórum agradece.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Philipp Moreira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 10/10/2013

    [Resolvido]Ler Ultima linha do arquivo TXT. Empty Re: [Resolvido]Ler Ultima linha do arquivo TXT.

    Mensagem  Philipp Moreira 29/11/2013, 13:56

    Pessoal,
    Consigo chegar a ultima linha, porém, como incluo mais uma linha no arquivo texto?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Ler Ultima linha do arquivo TXT. Empty Re: [Resolvido]Ler Ultima linha do arquivo TXT.

    Mensagem  criquio 29/11/2013, 14:26

    Philipp, ao que parece o que você quer é fazer o processo contrário ao do tópico, ou seja, exportar para o arquivo txt. É isso mesmo? Se for, terá que trocar o Input da linha Open File para Append caso a intenção seja adicionar dados ao arquivo txt existente ou Output para apagar o arquivo txt e incluir os dados como novo arquivo.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Philipp Moreira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 10/10/2013

    [Resolvido]Ler Ultima linha do arquivo TXT. Empty Re: [Resolvido]Ler Ultima linha do arquivo TXT.

    Mensagem  Philipp Moreira 29/11/2013, 14:43

    Nossa Criquio! Muito obrigado! To a manha toda pesquisando e não consegui evoluir.

    Estou tendo muita dificuldade em entender como programar referenciando um arquivo com "#1";
    Tendo que estabelecer "Append" para informar que vou incluir algo no arquivo.

    Por favor, teria alguma indicação de fonte de estudo para que eu consiga compreender melhor esta parte de
    criação e manipulação de arquivo?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Ler Ultima linha do arquivo TXT. Empty Re: [Resolvido]Ler Ultima linha do arquivo TXT.

    Mensagem  criquio 29/11/2013, 14:49

    O próprio módulo VBA disponibiliza uma boa fonte de consulta. Clique no meio de Open e pressione F1. Deverá abrir a janela de ajuda posicionada nesse termo. Pode fazer o mesmo com as palavras Input, Output e Append.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Philipp Moreira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 10/10/2013

    [Resolvido]Ler Ultima linha do arquivo TXT. Empty Re: [Resolvido]Ler Ultima linha do arquivo TXT.

    Mensagem  Philipp Moreira 29/11/2013, 14:54

    Obrigado Criquio! [ Resolvido ]

    Conteúdo patrocinado


    [Resolvido]Ler Ultima linha do arquivo TXT. Empty Re: [Resolvido]Ler Ultima linha do arquivo TXT.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:35