Модератор: Модераторы
Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
Line: String;
begin
AssignFile(f, FileNameEdit1.FileName);
try
Reset(F);
while not EOF(F) do
begin
ReadLn(F, Line);
ParseLine(line);
end;
finally
CloseFile(f);
end;
end; Насколько я понимаю, он для двоичных, а не текстовых файлов предназначен. Как с его помощью читать файл построчно мне не понятно.xchgeaxeax писал(а):Попробуйте читать файл через TFileStream
Что-то не могу найти, в каком юните это.xchgeaxeax писал(а):OpenText
Посмотрите в сторону TFileReader из модуля StreamEx, который как раз предполагает построчное чтение текстового файла. Что-то вродеartem78 писал(а):Насколько я понимаю, он для двоичных, а не текстовых файлов предназначен. Как с его помощью читать файл построчно мне не понятно.
Код: Выделить всё
...
reader := TFileReader.Create(TextFileName, fmOpenRead or fmShareDenyNone, 4096);
try
while not reader.Eof do begin
line := reader.ReadLine;
ParseLine(line);
end;
finally
reader.Free;
end;
...
Понимаю, вручную работать с данными уже не феншуй.artem78 писал(а):Насколько я понимаю, он для двоичных, а не текстовых файлов предназначен. Как с его помощью читать файл построчно мне не понятно.
Код: Выделить всё
procedure ParseFile(const aFileName: String);
function PostInc(var I: LongInt; N: LongInt = 1): LongInt; inline;
begin
Result := I;
I := I + N;
end;
function ReadBuff(F: TFileStream; S: LongInt; var B): LongInt;
begin
Result := F.Size - F.Position;
if Result > S then Result := S;
F.ReadBuffer(B, Result);
end;
var
F: TFileStream;
B: array [0 .. 511] of Char;
C, I, L: LongInt;
S: String;
begin
F := TFileStream.Create(aFileName, fmOpenRead);
S := '';
L := 1;
while F.Position < F.Size do begin
I := 0;
C := ReadBuff(F, Length(B), B);
while I < C do begin
while (I < C) and (B[I] <> #13) and (B[I] <> #10) do S := S + B[PostInc(I)];
if I = C then continue;
if I = 511 then begin
B[0] := B[I];
I := 0;
C := ReadBuff(F, Length(B) - 1, B[1]);
end;
if B[I] = #13 then begin
if B[I + 1] = #10 then inc(I, 2) else inc(I);
end else if B[I] = #10 then begin
if B[I + 1] = #13 then inc(I, 2) else inc(I);
end;
ParseString(PostInc(L), S);
S := '';
end;
end;
if Length(S) > 0 then ParseString(S);
FreeAndNil(F);
end;Если у вас Lazarus, тогда это внутренняя функция, которую используют Reset/Rewrite/Append. Она позволяет поиграться с флагами.artem78 писал(а):Что-то не могу найти, в каком юните это.
Так ясно же читайте "по байтово" и завешайте чение каждой строки по признаку eol (#13#10) для ускорения можно читать поблочно в буфер и парсить на предмет eol уже его.artem78 писал(а):Насколько я понимаю, он для двоичных, а не текстовых файлов предназначен. Как с его помощью читать файл построчно мне не понятно.xchgeaxeax писал(а):Попробуйте читать файл через TFileStream
Можешь подсказать как читать последнюю строку в текстовом файле без перебора всего файла в Лазарус?
Хм! Разумеется нам при "индексировании" ( может пригодится при работе с действительно большим файлом) полезно получить не номер строки, а позицию ее начала в файле, но это уже совсем просто...В Lazarus, вы можете использовать TStreamReader для чтения текстового файла построчно. Однако, у TStreamReader нет встроенной функции для чтения последней строки без перебора всего файла.
Один из способов сделать это - прочитать файл дважды: сначала прочитать все строки, чтобы узнать количество строк в файле, а затем прочитать последнюю строку, используя индекс этого количества минус единица. Это может быть не очень эффективно, если файл очень большой или если вам нужно читать последнюю строку часто.
Вот пример кода для чтения последней строки файла:
{ Объявляем переменные и инициализируем TFileStream }
var
Stream: TStreamReader;
LastLine: string;
I: Integer;
begin
{ Открываем файл }
Stream := TStreamReader.Create(TFileStream.Create('test.txt', fmOpenRead));
try
{ Считаем количество строк файла }
I := 0;
while Stream.ReadLine <> nil do
begin
Inc(I);
end;
{ Закрываем поток }
Stream.Close;
...особенно доставил пассаж про "чтение дважды" (условие Stream.ReadLine <> nil тоже немного сомнительно (там строка на выходе... какой там к черту nil ? )... но что-то полезное в этой подсказки получить все-же можно С таким подходом Алесе до захвата мира далеко. Мощности не хватит столько лишних действий выполнять.Alex2013 писал(а):...особенно доставил пассаж про "чтение дважды" ...
По моему она просто не совсем точно интерпретировала вопрос... (результат работы предложенного кода, номер последней строки )xchgeaxeax писал(а):Сохранить последнюю (там появится nil при чтении файла) и предпоследнюю прочитанную строку - она не догадалась.
Да "кутлухочка еще маленькая"...xchgeaxeax писал(а):С таким подходом Алесе до захвата мира далеко
но это пока...Код: Выделить всё
function ParseFile2(const aFileName: String): LongInt;
var
F: TFileStream;
R: TStreamReader;
begin
Result := 1;
F := TFileStream.Create(aFileName, fmOpenRead);
R := TStreamReader.Create(F, 4096, False);
while (not R.Eof) and (ParseLine(R.ReadLine, Result)) do inc(Result);
FreeAndNil(R);
FreeAndNil(F);
end;А что, пример с TFileReader нерабочий?xchgeaxeax писал(а):Как по мне, то лучше использовать буфер для чтения и вручную собирать строки из файлового буфера, находя конец строки.
Он менее универсален. Если данные только в файлах, тогда можно использовать его. А если надо взять данные из буфера в памяти? В TStreamReader можно передать TMemoryStream и все будет точно так же.iskander писал(а):А что, пример с TFileReader нерабочий?
Дык вестимо нужно "окавычить" R.ReadLine через проверку исключения try finally ... + перед каждым чтением провеять что F.Position <> F.Size. Да и IOResult возможно поверить лишним не будет.xchgeaxeax писал(а): В конце чтения файла произошла ошибка и последние 100 строк просто не прочитались.
...Код действительно получился короче.
Код: Выделить всё
function ParseFile2(const aFileName: String): LongInt;
var
F: TFileStream;
R: TStreamReader;
begin
Result := 1;
try
F := TFileStream.Create(aFileName, fmOpenRead);
R := TStreamReader.Create(F, 4096, False);
while (not R.Eof) and (ParseLine(R.ReadLine, Result)) do inc(Result);
finally
FreeAndNil(R);
FreeAndNil(F);
end
end;А вопрос-то в топике был о чём?xchgeaxeax писал(а):Он менее универсален. Если данные только в файлах, тогда можно использовать его. А если надо взять данные из буфера в памяти? В TStreamReader можно передать TMemoryStream и все будет точно так же.
Не помогло. Та же ошибка.Alexander писал(а):Если только чтение, то в любом случае после AssignFile(f, FileNameEdit1.FileName); нужно добавить FileMode := 0;
Зато этим способом с флагами fmOpenRead or fmShareDenyNone работает как надо. Большое спасибо!iskander писал(а):Посмотрите в сторону TFileReader из модуля StreamEx, который как раз предполагает построчное чтение текстового файла.
А смысл "изобретать велосипед", когда "из коробки" уже есть то что нужно?xchgeaxeax писал(а):Понимаю, вручную работать с данными уже не феншуй.
Для моих нужд вполне достаточно. Из памяти мне не нужно, только из файла.xchgeaxeax писал(а): iskander писал(а):
А что, пример с TFileReader нерабочий?
Он менее универсален. Если данные только в файлах, тогда можно использовать его.