Como obter o número de linhas de um arquivo txt?
Olá!
Eu gostaria de saber como obter o número de linhas de um arquivo txt?
Valeu!
Angelo
Eu gostaria de saber como obter o número de linhas de um arquivo txt?
Valeu!
Angelo
Anonymous
Curtidas 0
Respostas
Anonymous
17/03/2003
Será que alguém pode ajudar?
Valeu!
Valeu!
GOSTEI 0
Carlos Filho
17/03/2003
como exemplo, coloque isso no evento click de um botão qualquer e certifique-se de que um arquivo TXT exista no mesmo diretório da aplicação...
var
Arquivo: TStringList;
NdeLinha: Cardinal;
begin
Arquivo := TStringList.Create;
Arquivo.LoadFromFile(´Arquivo.TXT´);
NdeLinha := Arquivo.Count;
Arquivo.Free
ShowMessage(´Seu arquivo tem´ + NdeLinha);
end;
Basta você entender o código e adapta-lo a suas necessidades!
var
Arquivo: TStringList;
NdeLinha: Cardinal;
begin
Arquivo := TStringList.Create;
Arquivo.LoadFromFile(´Arquivo.TXT´);
NdeLinha := Arquivo.Count;
Arquivo.Free
ShowMessage(´Seu arquivo tem´ + NdeLinha);
end;
Basta você entender o código e adapta-lo a suas necessidades!
GOSTEI 0
Carlos Filho
17/03/2003
[quote:cae4dd0701=´Ðerek Wildstar´]como exemplo, coloque isso no evento click de um botão qualquer e certifique-se de que um arquivo TXT exista no mesmo diretório da aplicação...
var
Arquivo: TStringList;
NdeLinha: Cardinal;
begin
Arquivo := TStringList.Create;
Arquivo.LoadFromFile(´Arquivo.TXT´);
NdeLinha := Arquivo.Count;
Arquivo.Free
ShowMessage(´Seu arquivo tem´ + IntToStr(NdeLinha));
end;
Basta você entender o código e adapta-lo a suas necessidades![/quote:cae4dd0701]
Esqueci de converter Inteiro pra String no meu exemplo. Acima está o correto!
IntToStr(NdeLinha)
var
Arquivo: TStringList;
NdeLinha: Cardinal;
begin
Arquivo := TStringList.Create;
Arquivo.LoadFromFile(´Arquivo.TXT´);
NdeLinha := Arquivo.Count;
Arquivo.Free
ShowMessage(´Seu arquivo tem´ + IntToStr(NdeLinha));
end;
Basta você entender o código e adapta-lo a suas necessidades![/quote:cae4dd0701]
Esqueci de converter Inteiro pra String no meu exemplo. Acima está o correto!
IntToStr(NdeLinha)
GOSTEI 0
Aroldo Zanela
17/03/2003
Olá!
Eu gostaria de saber como obter o número de linhas de um arquivo txt?
Valeu!
Angelo
Angelo,
Se for um arquivo de tamanho fixo, ou seja, todas linhas tem mesmo número de bytes, você pode pegar o tamanho do arquivo e dividir pelo comprimento em bytes das linhas, considerando CR e LF de cada linha, e podendo ter ou não uma marca de final de arquivo ESC26 (Ctrl F).
Use FileSeek para pegar o tamanho total, por exemplo:
The following code positions the file pointer at the end of a file: (tá no help) if FileSeek(MyFileHandle,0,2) = HFILE_ERROR then HandleFileError else AppendStuff;
GOSTEI 0
Anonymous
17/03/2003
Agradeço de coração ao pessoal que me deu uma mão!
Valeu gente, sempre que puder, pode contar comigo!
Angelo
Valeu gente, sempre que puder, pode contar comigo!
Angelo
GOSTEI 0