Leitura das ultimas "X" linhas de arquivo TXT (usando variáveis internas LOF & LOC)

Question

Ola!
Tenho arquivos TXTs enormes e gostaria de ler as últimas "X" linhas (a definir, mas aproximadamente 100), pois contém as informações que busco.

Já usei o método "padrão" (conforme abaixo) e verifiquei o conteúdo que busco... funciona!

Do While Not EOF(1)

Line Input #1, Linha 

If Mid(Linha, 2, 4) = "9900" Then 

.... 

ElseIf Mid(Linha, 2, 4) = "9999" Then 

.... 

    Exit Do 

End If 

Loop

Entretanto como alguns arquivos são muito grandes as leituras são beeeeem lentas.

Gostaria de ler os últimos bytes do arquivo alterando a posição de leitura do arquivo aberto #1

Sei que a variável LOF(1) me traz o tamanho do arquivo... mas não consigo alterar a posição de leitura LOC(1) para LOF(1) - 1000 (por exemplo), como proceder ?

LOC(1) = LOF(1) - 1000 <=== Não funciona! =(

Answer 1

Para registro, caso alguém precise... consegui resolver da seguinte forma:

    PriLin = True 

    Open Worksheets("MENU").Cells(3, 1).Value & Worksheets("MENU").Cells(IX, 1).Value For Input As #1 

    Do While Not EOF(1) 

        If LOF(1) > 10000 And PriLin Then 

            Seek #1, LOF(1) - 10000 

            PriLin = False 

        End If 

        Line Input #1, Linha 

        If Mid(Linha, 2, 4) = "9900" Then 

	... 

        ElseIf Mid(Linha, 2, 4) = "9999" Then 

	... 

            Exit Do 

        End If 

    Loop 

Resumindo... na primeira leitura de cada arquivo, o comando SEEK "joga" a leitura lá para o final, alterando a posição de leitura (variável LOC) para o tamanho do arquivo menos 10.000 caracteres (fiz um teste e ficou ok!).

=D