Вытащить строчку из файла

[Deight]

Тысяча извинений за ту ерунду что наговорил, видать сайт где я такое видел левый какой-то. Пол дня пролазил в нете но так ту страницу и не нашел.

[Pedro]

- предварительно проиндексировать файл - запомнить смещения от начала файла всех строк в специальном индексном файлике, его грузить в память и позиционироваться в текстовом файле по этому индексу.
Этот способ имеет право на жизнь только если работать с текстовым файлом надо много и часто и он не меняется...

Можно в эту сторону поподробнее? Мне кажется неплохой вариант.

[Serge_Bliznykov]

Можно в эту сторону поподробнее? Мне кажется неплохой вариант.

Вы понимаете, что выигрыш тут происходит только за счёт того, что файл предварительно долго обрабатывается (для него создаётся индексный файл)? и что, если исходный файл изменится, то индекс надо перестраивать?!

Если Вы это понимаете, то дальше просто...
что тут особо рассказывать...

Объявляете
f:file of LongInt;
OffS : longInt;
begin
Assign(f,'index.itx');
Rewrite(f);

потом загружаете исходный файл хотя бы в тот же
TS : StringList (TS.LoadFromFile('биг.txt')
далее:
OffS := 0;
for i:=1 to TS.Count-1 do begin
Write(f,OffS);
OffS := OffS + Length(TS.Strings[i]) + 2; {два байта - это на перевод строки. Обязательно посмотреть HEX вьювером и убедится, что строки в вашем текстовом файле разделяются именно двумя байтами (обычно это 0x0D, 0x0A или CR LN или ВК ПС или \r\n - это всё одно и то же, просто кто к чему привык ;-))))}
end;
CloseFile(f);

всё. создание индекса закончено.


дальше. для использования.
читать индексный файл (либо в память в динамический массив, либо seek'акть прямо в индексном файле на нужную строку.
Читаем смещение в переменную (например, в LineOffs)
Дальше в текстовом файлике:
Seek(FText, LineOffs)
всё. мы стоим на начале нужной строки!

p.s. кстати, я бы _очень_ рекомендовал для чтения текстового файла использовать компонент TStreamFile
там есть метод Seek...

[BOBAH13]

Вроде работает..вот за пару минут накатал

var
  f: File;
  buf: array[0..1023] of Char;
  ret, i: Integer;
  curline, line: Integer;
  offset, len: Integer;
  s: String;
begin
  line := 3;

  {$I-}
  AssignFile(f, 'someone.txt');
  Reset(f, 1);

  s := '';
  offset := 0;
  len := 0;
  curline := 1;
  while (Len = 0) do
  begin
    BlockRead(f, buf, SizeOf(buf), ret);
    if (ret <= 0) then
      Break;
    
    for i:= 0 to ret - 1 do
    begin
      if (buf[i] = #13) then
      begin
        if (curline = line) then
        begin
          Len := FilePos(f) - ret + i - offset;
          Break;
        end;
        inc(curline);
        offset := FilePos(f) - ret + i + 1;
      end;
      if (buf[i] = #10) then
        inc(offset);
    end;
  end;

  if (Len = 0) then
    Len := FilePos(f) - offset;
  if (Len > 0) then
  begin
    SetLength(s, Len);
    Seek(f, offset);
    BlockRead(f, Pointer(s)^, Len);
  end;

  CloseFile(f);
  {$I+}

  Caption := Format('Line %d = "%s"', [Line, s]);
end;

[Serge_Bliznykov]

BOBAH13, слов нет. Программка Отличная!
Супер! обязательно сохраню её себе в копилочку!

Вот только тут обсуждение идёт того, что из больших файлов быстро читать не очень получается...

Например, Ваша функция у меня из текстового файла размером 820 МБ (22000000 строк) строчку в конце файла (седьмую от конца, например) читает ~42 секунды. А что, если после этого (допустим кому-то), надо прочитать 100 строку, потом третью, потом 1000000, .... ) - затраты времени потребуются просто колоссальные.. :-(

Ещё раз повторю - без конкретных условия, что есть в наличии, что за файл, какие там переводы строк, размер, количество строк, изменяется ли он, и что требуется получить (постановка задачи, требования по времени исполнения) - тут можно дискутировать до бесконечности...

[DeKot]

Нашелся человек, который вернул всех все таки к вопросу старттопика:

Вытащить строчку из файла

Есть ф-ия GET(№строки) - она Вам и вернет нужную строку, как и просит автор вопроса.
Но все таки обсуждение получилось занятным и о-очень полезным.Хоть целую тему выделяй - "Работа с текстовыми файлами".

[BOBAH13]

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

Нашелся человек, который вернул всех все таки к вопросу старттопика:

Есть ф-ия GET(№строки) - она Вам и вернет нужную строку, как и просит автор вопроса.
Но все таки обсуждение получилось занятным и о-очень полезным.Хоть целую тему выделяй - "Работа с текстовыми файлами".

О чем вы ? какая get ? что это вообще такое. или это так англслово по теме ? без обид... но я ниче не понял...

автору: если вопрос в силе могу реализовать на легке то что вы хотите... и тут дело в том что буфер можно увеличить на сколько угодно... и в таком разе заходов в blockread меньше будет. И все-таки если файл постоянен и очень редко меняется то способ Serge_Bliznykov подойдет в полне.

[DeKot]

Из Delphi 7:


Или для

var f: TStrings;
  Stroka(: string):= f.Strings[N_stroka(: integer)];

[BOBAH13]

Смешно... а как тут говорят размер 100 мб даже.. ну представьте весь этот текст впихнуть в TStringList вы себе представляите обработку загрузки 100 МБ в память ? P.s. вы чтот не много не учли

[Serge_Bliznykov]

DeKot, Вы отстаёте от темы.. Это же метод абстрактного класса TString (или его потомка - TStringList)
Но чтобы получить строчку по номеру туда файл сначала надо загрузить через TStringList.LoadFromFile(...) - а это долго...

мне кажется, что мы по кругу ходим.. По крайней мере, мне, в настоящий момент, по существу обсуждаемого вопроса добавить уже нечего... ;-)