Получить количество строк указанного текстового файла. Концом строки считается пара символов CRLF (ASCII #13#10).

 

Синтаксис

function GetTextFileLinesCount(sFileNameWithPath: string; iEncodingType: integer): int64;

 

Параметры и возвращаемые значения

Параметр

Тип

Значение

sFileNameWithPath

string

имя текстового файла с полным путём к нему;

iEncodingType

integer

тип кодировки файла, число.

 

Результат функции

-1

файла не существует;

-2

ошибка доступа к файлу;

>=0

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

 

Пример

const
  FILE_NAME = 'F:\Doc\MyChatJSONprotocol.txt';
var
  iCount: int64;
begin
  iCount := GetTextFileLinesCount(FILE_NAME, 0);
  
    if iCount = -1 then mLogScript('File not found!', '')
      else mLogScript(IntToStr(iCount) + ' lines total', '');
end.

Результат работы скрипта
[16:32:20] (Log "GetTextFileLinesCount"): 7015 lines total

[16:32:20] (Run "GetTextFileLinesCount"): Время выполнения скрипта: 30 мс

[16:32:20] (Run "GetTextFileLinesCount"): Скрипт выполнен успешно.

 

Ещё посмотреть

IntToStr

mLogScript