Форум АНТИЧАТ - Количество строчек в файле

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Количество строчек в файле (https://forum.antichat.xyz/showthread.php?t=169952)

Количество строчек в файле

Народ, как узнать количество строчек в текстовом файле???
Строчек много, порядком 2000-3000, может больше

cat filename.txt | wc -l

на Delphi надо

Цитата:

Сообщение от OPF_Nik

на Delphi надо

начинаеться... а сразу корректно сформулировать техническое задание религия не позволила?

drim
торопился, не подумал

Цитата:

Сообщение от OPF_Nik

drim
торопился, не подумал

в след. раз думайте

по сабжу - вам алгоритм нужен или готовое решение?
второе, как правило, стОит денег

Код:

{ **** UBPFD *********** by delphibase.endimus.com ****

>> Подсчет количества строк в текстовом файле



Считает строки в текстовом файле,

основываясь на количестве символов $0A (LineFeed).



Зависимости: Windows

Автор:       Борис Новгородов, mbo@mail.ru, Новосибирск

Copyright:   Собственное написание

Дата:        1 декабря 2002 г.

***************************************************** }



function LinesCount(const Filename: string): Integer;

var

  HFile: THandle;

  FSize, WasRead, i: Cardinal;

  Buf: array[1..4096] of byte;

begin

  Result := 0;

  HFile := CreateFile(Pchar(FileName), GENERIC_READ, FILE_SHARE_READ, nil,

    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

  if HFile <> INVALID_HANDLE_VALUE then

  begin

    FSize := GetFileSize(HFile, nil);

    if FSize > 0 then

    begin

      Inc(Result);

      ReadFile(HFile, Buf, 4096, WasRead, nil);

      repeat

        for i := WasRead downto 1 do

          if Buf[i] = 10 then

            Inc(Result);

        ReadFile(HFile, Buf, 4096, WasRead, nil);

      until WasRead = 0;

    end;

  end;

  CloseHandle(HFile);

end;



Пример использования: 

Label1.Caption := IntToStr(LinesCount('e:zz.txt'));

str:TStringList;
str:=TStringList.Create;
str.LoadFromFile('myfile');
str.Count - количество строк

LolFEm спс

ZdezBilYa слишком "тяжелый метод"

Цитата:

Сообщение от drim

в след. раз думайте

по сабжу - вам алгоритм нужен или готовое решение?
второе, как правило, стОит денег

да вы охренели! за что деньги то?! уже и пальцем лень пошевелить для другого человека?