копирование строки из файла используя потоки

[tim91]

Суть задачи сводится к построчному анализу файла. Не могу понять как считывать из файла строку использую поток (файл текстовый). Гуглил, решения не нашел. Объясните, пожалуйста, на простом примере.

[ArtGrek]

Файловые потоки

Теперь разберем возможности работы потомка TStream - TFileStream - файловый поток. Этот класс был специально введен для работы с файлами. Для работы с файловым потоком Вам надо записать в Uses модули classes, Sysutils (classes - включает в себя собственно определение класса, Sysutils - некоторые константы необходимые для работы).

Вот пример записи/перезаписи файла:

Procedure WriteFileUsingStream(s, FileName:string);
begin	
with TFileStream.create(FileName, fmCreate or fmOpenWrite) do 
	try 
	write(pointer(s)^,length(s)); 
	finally 
	free; 
	end; 
end;

Теперь небольшой разбор:

TFileStream.create - конструктор класса, его вызов требует указания имени файла и опций его открытия, следующие опции определены:

fmCreate = $FFFF;
fmOpenRead = $0000;
fmOpenWrite = $0001;
fmOpenReadWrite = $0002;
fmShareCompat = $0000;
fmShareExclusive = $0010;
fmShareDenyWrite = $0020;
fmShareDenyRead = $0030;
fmShareDenyNone = $0040;

Теперь метод Write - этим методом в файл пишется любая информация из буфера любого типа, Вам надо указать только буффер и количество записываемых байтов. В данном случае используется переменная типа String в качестве буффера, но так как для длинных строк она представляет собой лишь указатель, то конструкция "pointer(s)^" заставляет обращаться именно к ее содержимому.

А вот этот код демонстрирует чтение файла с использованием файлового потока:

var p:PChar;
begin	GetMem(p, 255); 
	with TFileStream.create('c:\myText.txt', fmOpenReadWrite) do 
	try 
	Seek(10,soFromBeginning); 
	read(p^, 254); 
	finally 
	free; 
	end; 
	showmessage(p); 
	FreeMem(p); 
end;

И пояснения к коду:
1) Никаких проверок длину файла и его наличие здесь не делается - это демонстрационный код, а не готовая процедура чтения.
2) Файл мы считываем в буффер типа PChar (с тем же успехом можно использовать массив или любой другой контейнер). Для тех кто не помнит - процедуры GetMem(p, 255) и FreeMem(p) - распределение памяти для строки и освобождение памяти.
3) Метод потока Seek позволяет установить текущую позицию считывания/записи файла. Первый параметер - номер байта, второй - это от чего считать этот байт (у нас считать от начала файла), возможны варианты:
soFromBeginning - от начала файла
soFromCurrent - от текущей позиции считывания
soFromEnd - от конца файла (в этом случае номер байта должен быть отрицательным или равным нулю)
4) Собственно считывание из потока осуществляется методом read, в котором указывается в качестве параметров буфер в который мы читаем и желаемое количество байт для чтения. Метод read является функцией, которая возвращает количество байт реально прочитанных из потока.

Заканчивая о файловых потоках хочу упомянуть о методе
CopyFrom который позволяет перекачивать информацию из одного потока в другой и о свойствах:

Size - размер файла
Position - текущая позиция чтения/записи потока

Работа с файловыми потоками весьма быстра, этот класс, являсь классом VCL, в то же время базируется на низкоуровневых функциях Windows, что обеспечивает очень высокую скорость работы и стабильность операций. К тому же многие компоненты и классы VCL поддерживаю прямое чтение и запись с файловыми потоками, что занчительно упрощает работу - например TStringList, TBlobField, TMemoField и другие.
Файловые потоки могут быть рекомендованы к использованию в большинстве случаев для чтения и записи файлов (за исключением специфических ситуаций, требующих каких-то других подходов), другими словами если вам надо просто записать или считать файл, используйте файловые потоки.

[tim91]

sourceFS:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
sourceFS.Read(curStr[1], 254);
ShowMessage(curStr);

результат работы - пустая строка(файл не пустой).

[ArtGrek]

GetMem(curStr, 255);

весь код относителино етои процедуры надо скидывать

[tim91]

Спасибо, уже лучше.

sourceFS:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
GetMem(pointer(curStr), 254);
sourceFS.Read(pointer(curStr)^, SizeOf(curStr));

копирует только часть строки. Если вместо SizeOf(curStr) написать 255, то скопирует больше одной строки. Как копировать строки?

[veniside]

SizeOf(curStr) равно 4. поинтер, как-никак.

[ArtGrek]

GetMem(pointer(curStr), 254); //сперва надо выделить памяти а потом создавать, и в конце работы обязательно FreeMem(p); 
sourceFS:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
sourceFS.Read(pointer(curStr)^, SizeOf(curStr));

написать 255, то скопирует все

что все сли ты сново вопрос задаеш?

Как копировать строки?

[tim91]

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

SizeOf(curStr) равно 4. поинтер, как-никак.

понятно, а что нужно там написать чтобы скопировать именно строку?

[tim91]

что все сли ты сново вопрос задаеш?

мне нужно копировать построчно

[veniside]

> а что нужно там написать чтобы скопировать именно строку?

ничего, никто ведь не знает, будет строка длиной 4 или 4000 символов.
Можно просто весь файл загрузить в память (если он не большой, меньше гига), и там искать символы #13, #10.

Или взять TStringList.LoadFromFile(), он сам всё найдёт )