Pessoal estou querendo copiar a penultima linha de um arquivo txt e jogála para uma variável...se alguém puder me ajudar ....ficarei grato...t mais.....fuis

Acho que não me expressei muito bem.

 

Preciso coletar algumas linhas em um arquivo texto, no VBA. Mas os arquivos tem quantidades de registros diferentes.

 

Como faço pra identificar em qual linha o ponteiro está, em determinado momento da leitura do arquivo?

 

ex:
Public Function peg_num_registros()

meuarq = Dir("c:     emp     esteg*.txt")

Do While meuarq <> ""

Close #1
Open meuarq For Input As #1
Line Input #1, linha
MsgBox "conteudo da linha é: " & linha

 

meuarq = Dir
Loop

End Function

 

se alguem puder ajudar...

Alan

 

No caso do VB6 somente com um contador vc consegue capturar o numero da linha atual. Tem que percorrer o arquivo inteirp.

 

Falow

 

 

angelo: Faça o Seguinte abra o arquivo txt conte quantas linhas tem depois vc copia a penultima e cola em um text box no seu programa, depois manda o text deste textbox para uma variável....Obs: faça isso pra todos os arquivos.

tenta isso

 

Dim fsys As New Scripting.FileSystemObject

            Set s = fsys.OpenTextFile("C:System Locexeparametros.ini", ForReading)
            Do While DVD <> "[So DVD?]"
            If s.AtEndOfStream Then Exit Sub
            txt = s.ReadLine
            DVD = txt
            Loop
            txt = s.ReadLine
            DVD = txt

 

este exemplo carega uma linha apois a encontrada, neste caso e "so DVD"

entendeu?