Большой текстовый файл

← →
vajo (2002-06-17 14:50) [0]

У меня файл 4Гб. Мне надо примерно последние 50 000 строк. По моим подсчетам там строк около 30 000 000. В данной процедуре получаю почему-то только первые 397 858 строк.

procedure TForm1.Button1Click(Sender: TObject);
var
Vf: TextFile;
S:String;
i:=Integer;
begin
i:=1;
AssignFile(Vf, "G:\File.log");
while (not Eof(Vf)) do
begin
Readln(Vf, S);
i:=i+1;
end;
Label1.Caption:=IntToStr(i);
CloseFile(Vf);
end;

Может что-то не так делаю? Очень надо как-то открыть этот файл.

← →
Sasha9 © (2002-06-17 14:57) [1]

а может это не текстовый файл?

← →
vajo (2002-06-17 15:22) [2]

Текстовый. Там записаны адреса кто куда по интернету ходит. Взяв несколко первых строк - это хорошо видно.

← →
Игорь Шевченко © (2002-06-17 15:39) [3]

SetFilePointer (f, xxxxxx, 2); { от конца }
ReadFile (f, ....)

← →
Anatoly Podgoretsky © (2002-06-17 15:50) [4]

Вмдимо все таки не текстовый или более 4 Гб

← →
Sasha9 © (2002-06-17 15:50) [5]

может filestream"ом попробовать

У меня были проблемы с текстовиками, созданными в Unix - там строка заканчивается не #$D#$A, а только #$D (по-моему), поэтому некорректно работала функция Readln. Пришлось писать свою на основе простого Read.

Попроси ситемного администратора настроить формирование логовских файлов каждые сутки. У меня за месяц до 5 млн. строк. За сутки около 200000 строк.

Большой текстовый файл Найти похожие ветки