USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Ler quantidade total de linahs do arquivo texto
FAV
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 22/08/2007 15:31 hs            
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
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 22/08/2007 15:57 hs            
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
   
FAV
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 22/08/2007 16:02 hs            
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
   
SergioC
não registrado
ENUNCIADA !
Postada em 22/08/2007 17:35 hs   
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)
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 23/08/2007 13:08 hs            
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...
     
FlavioY
não registrado
ENUNCIADA !
Postada em 23/02/2018 09:53 hs   
SergioC,
Obrigado... utilizei conforme deu a dica e para mim serviu muito bem. Grato
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página