Получить количество строк указанного текстового файла. Концом строки считается пара символов 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"): Скрипт выполнен успешно.