Fórum Quantidade de linhas arquivo texto #156634

29/04/2003

Caros amigos...

Como faço para saber a quantidade exata de linha de um arquivo text:
Estou fazendo da seguinte maneira:

AssignFile(ArqTexto,NomeArq.Text);
Reset(ArqTexto);
:
:
CloseFile(ArqTexto);

só que não estou conseguindo pegar o número total de linhas deste arquivo.

Desde já agradeço

Mariana

Mariana

Curtir tópico

+ 0

Responder

Post mais votado

29/04/2003

Para verificar o total de linhas de um arquivo texto você tem que ler todo o arquivo. Uma forma rápida esta descrita abaixo:

var
  arqTexto : TextFile;
  Caminho : String;
  Linha      : String;
  Contador: Longint;
begin
  AssignFile(ArqTexto, Caminho);
  Reset(ArqTexto);
  Contador := 0;
  while not(EOF(ArqTexto)) do begin
    ReadLn(ArqTexto, Linha);
    Inc(Contador);
  end;
  CloseFile(ArqTexto);
end;

Hades

Responder

Gostei + 1

Mais Posts

29/04/2003

Smaug_84

leia o texto caractere a caractere e quando o caracter for igual a #13 (enter) conta um

Responder

Gostei + 0

03/06/2011

Denis Portas

Segue uma função: function NumeroDeLinhasTXT(lcPath:String): Integer;
Var
aList: TStringList;
Begin
// Verifico se o arquivo está onde foi passado pelo parâmetro
if FileExists( lcPath ) then
Begin
    // Crio a lista que receberá o arquivo
    aList := TStringList.Create;
    Try
      // Carrego o arquivo para dentro da lista
      aList.LoadFromFile(lcPath);
      // Retorno o número de linhas que o arquivo contem
      Result := aList.Count;
    Finally
      // Destruo o objeto
      FreeAndNil(aList);
    End;
End
Else
Begin
    // Caso eu não encontre o arquivo retorno 0.
    Result := 0;
End;
End;
Espero ter ajudado.

Responder

Gostei + 0

06/06/2011

Nigro

Abra o arquivo numa StringList e dê um .count

Responder

Gostei + 0

29/04/2013

José

Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.

Responder

Gostei + 0

26/11/2018

João Filho

<P>Abra o arquivo numa StringList e dê um .count</P>

Não é uma solução, o stringlist é limitado, se você tentar abrir um arquivo muito grande ele não irá ler e consequentemente não obterá a quantidade de linhas.

Responder

Gostei + 0

07/12/2018

João Filho

Pessoal não recomendo utilizar TStringlist para arquivos de texto.

Motivo:
O StringList possui um tamanho limite que quase seja alcançado voçê irá carregar apenas um pedaço, problema que você não tem ao trabalhar com TextFile. Porém, em questão de performance recomendo trabalhar com TStream, que possui uma performance muito superior ao TextFile.

Segue link abaixo contendo alguns métodos úteis para trabalhar com textfile em forma de stream

https://github.com/eduardofaneli2/Delphi-Utils/blob/master/Comum.StreamUtils.pas

Responder

Gostei + 0