Чтение из текстового файла

← →
AnSi (2003-06-27 12:53) [0]

Нужно сразу считать из обычного текстового файла скажем 100000-ую строку
Как ?

← →
Anatoly Podgoretsky © (2003-06-27 12:54) [1]

Сразу можно если у тебя есть индекс.

← →
none_123 (2003-06-30 09:14) [2]

Ну и как, хотелось бы знать,
и посмотреть кусок кода

← →
Palladin © (2003-06-30 09:25) [3]

var Data:array [1..2] of Integer; // Pos,Size S:string; File_:file; begin AssignFile(File_,"Strings.indexes");Reset(File_,4); Seek(FOFIdx,100000*2); BlockRead(File_,Data,2); CloseFile(File_); AssignFile(File_,"Strings.data");Reset(File_,1); Seek(File_,Data[1]); SetLength(s,Data[1]); BlockRead(File_,s[1],Data[2]); CloseFile(File_); end;

← →
Edward (2003-06-30 10:05) [4]

Можно и так:

procedure TForm1.Button1Click(Sender: TObject); var Lines: TStrings; NeedLine: Integer; begin Lines := TStringList.Create; NeedLine := 100000; try Lines.LoadFromFile("C:\anyfile.txt"); if (NeedLine - 1) <= Lines.Count then ShowMessage(Lines[NeedLine - 1]); finally Lines.Free; end; end;

← →
None_123 (2003-06-30 10:07) [5]

Что такое "Strings.indexes" и можно
ли сразу читать из файла с данными минуя первый кусок кода
до 1-го closefile

← →
Palladin © (2003-06-30 10:10) [6]

только указаным Anatoly Podgoretsky © (27.06.03 12:54)
String.indexes файл с позициями и размерами строк

← →
None_123 (2003-06-30 10:12) [7]

Edward-у:
А если файл большой, скажем
в 100000000 строк, стек токда ведь переполнится и все.

← →
None_123 (2003-06-30 10:29) [8]

А нечто вроде

AssignFile(File_,"Strings.data");
Reset(File_,1);
Seek(File_,100000);
BlockRead(File_,s,sizeof(s));
CloseFile(File_);

будет работать ?

нет
1 -
Reset(File_,1);
Seek(File_,100000);

ты установишь указатель позиции в файле не на 100000 строку, а на 100000 байт, сам понимаешь это немножко разные вещи
2 -
BlockRead(File_,s,sizeof(s));
я так догадываюсь ты имел ввиду s:string; тогда всего лишь прочтется 4, ничего не значащих для программы, байта
если же ты имеешь в виду s:ShortString или s:string[xx] то в перменную S прочтется 255 ( во втором случае xx) байт, тоже понимаешь размер у полученой строки ограничен <=255 (xx)

None_123 (30.06.03 10:07)
А никто не просил считывать весь файл.
Про второй пример вообще молчу.

Чтение из текстового файла Найти похожие ветки