Meus nobres amigos, desconheço a função que me retorna a quantidade total de linhas de um arquivo texto que tenho que importar, como faço?

 

Ah preciso saber antes de começar a importar para setar uma progress bar.

 

Um abraço

Posso pesquisar outro jeito mas de bate-e-pronto:

 

Dim TotalLinhas As Long, texto as string

Open "C:/arquivo.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, texto
    TotalLinhas = TotalLinhas + 1
Loop
Close #1

MsgBox TotalLinhas

Fala meu amigo, sempre você que me ajuda!!!! (risos)

 

Então, tambem pensei assim, queria ver se tinha um jeito direto e eu acho que tem, porém acho que por enquanto vou fazer isso mesmo. é que meus arquivos são da ordem de 1.000.000 linhas. da pena de rodar um while só para pegar quantidade de linhas.

 

Valeu pela força de sempre

se souber o tamanho do registro:

eu faço assim:

 

    lngBytes = FileLen("A:Funcs.txt")
    intQuantReg = lngBytes / 76     ' 76 = Tamanho do Registro txt (Incluindo 0D0A)

Apenas imagino que o nosso amigo passou aí é caso vc saiba a quantidade de bytes na linha do seu arquivo texto. 1 byte = 1 caractere.

 

Caso seu arquivo texto tenha um tamanho de linha fixo de N bytes e que estas linhas estão preenchidas com algum caractere dá pra fazer alguma coisa sem precisar de loops.

 

Exemplo:

 

XXXXXXXXXX

YYYYYYYYYY

YY UUUUUUU

 

Digamos que o seu arquivo tenha 10 bytes na linha de acordo com o exemplo acima. SEMPRE PREENCHIDOS COM ALGUM CARACTERE.

 

Então só fazer o código do SergioC ai

 

lngBytes = FileLen("A:Funcs.txt")
intQuantReg = lngBytes / 10

 

basicamente...