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

[Serge_Bliznykov]

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

Где я найду текстовый файл размером 700 метров?

А в чём проблема то?!!!

вот.
975*000*000 bytes
на моём комьютере создаётся за 55 секунд... ;-)

program fileBig2;
{$APPTYPE CONSOLE}
uses SysUtils;

Var f :TextFile;
i : longInt;
buf : array[1..32*1024] of byte;
begin
  AssignFile(f,'VeryBig.txt');
  SetTextBuf(f,buf);
  Rewrite(f);
  for i:=1 to 25000000 do WriteLn(f,'This is string for test purpose only!');
  CloseFile(f);
end.

[DeKot]

Где я найду текстовый файл размером 700 метров?

Цикл от 0 до парчки миллиардов и алфавит в Memo/

[Deight]

Не грузите может функция не seek называлась. Я уже не помню. Точно помню она перемещала положение на нужную строку именно в текстовом файле.

[DeKot]

Про функцию не знаю, но для объектов типа TStrings есть свойство CaretPos, указывающее на текущее положение курсора.
CaretPos это переменная типа TPoint (тип запись).Методов она не имеет, а есть свои свойства X и Y - колонка и строка.
Например: Memo1.Lines.Strings[Memo1.CaretPos.Y]:= 'Это строка Y';
Там в TStrings есть еще ф-ии Get(№строки) - возвращает строку с №;
IndexOf(string) - ищет указанную строку и если найдена, возвращает индекс строки.Иначе - 1

[Pedro]

Походу тока два варианта: либо перебирать строки циклом, либо грузить в память и работать по простому. И то и другое долго. А нет ли способа установить курсор в файле на позицию определенного символа?

[rpy3uH]

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

А нет ли способа установить курсор в файле на позицию определенного символа?

так ведь ещё надо определить положение где начинается нужная строка. Алгоритм поиска я описал, во втором посте.

[Zeraim]

Мб проще не генерить 1 текстовик а нное число, для более быстрой загрузки без замутов с разбиением по байтам.

А с Грузином я полностью согласен, поскольку чтобы работать с файлом, нам его надо сначала загрузить в оперативную память, а потом уже делать с ним махинации, налету с харда тока по кусочкам, как было описано.
И всякие высказывания типа проще поюзать функцию которая нам ставит в 700мб-ом текстовике курсорчик куда надо - помоему крайне непродуманны. Поскольку имеется в виду обычный бегунок который виден когда печатаешь, а он появляется только при открытом файле.

2Degit
Почитайте учебник по турбо паскалю 7.1, там чорным по белому написано что любой файл, включая текстовый (который рассматривался в данный момент), представляет из себя набор байтов, несущих определённую информацию. Каждый файл начинается с, байта с тегой НАЧАЛО ФАЙЛА и заканчивается байтом с тегой КОНЕЦ ФАЙЛА. Далее идут байты несущие информацию файла, включая теги начала и конца строки.

[Jeni]

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

Не грузите может функция не seek называлась. Я уже не помню. Точно помню она перемещала положение на нужную строку именно в текстовом файле.

Как вспомнишь, как она называется - скажи, это нам всем будет интересно.

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

[Serge_Bliznykov]

Zeraim, я со всеми Вашими высказываниями согласен, кроме:

Каждый файл начинается с, байта с тегой НАЧАЛО ФАЙЛА и заканчивается байтом с тегой КОНЕЦ ФАЙЛА.

я не знаю, что написано в вашем учебнике ТурбоПаскаля (и кто его автор ;-), какая y Вас файловая система, но, извините, в настоящий момент это высказывание - глупость.... ну нет в файлах ни "байта с тегой НАЧАЛО ФАЙЛА", ни байта конца... ;-) Разумеется, если мы с Вами сейчас не будем обсуждать реализацию FAT/NTFS, сектора и прочая...

[Serge_Bliznykov]

Как вспомнишь, как она называется - скажи, это нам всем будет интересно.

присоединяюсь. Вот только чудес не бывает - нет такой функции! И фактически способа три (все медленные на больших файлах):
- либо грузить файл в TStringList.loadFromFile - прямой доступ к любой строке,
- либо читать построчно (очень быстро для первых строк, ОЧЕНЬ медленно, для последних! я, например, категорически не рекомендую этот способ, чтобы подсчитать количество строк в файле, если текстовый файл может быть большого размера!)
- предварительно проиндексировать файл - запомнить смещения от начала файла всех строк в специальном индексном файлике, его грузить в память и позиционироваться в текстовом файле по этому индексу.
Этот способ имеет право на жизнь только если работать с текстовым файлом надо много и часто и он не меняется...

можно посмотреть в сторону БД. Либо хранить строчки ФИКСИРОВАННОЙ длины...

вариантов решения — масса. Всё зависит от конктретной задачи!