[Resolvido]Ler Ultima linha do arquivo TXT.

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.

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.

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,

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

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.

Grato pelo retorno. O fórum agradece.

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

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.

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?

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.

Obrigado Criquio! [ Resolvido ]