VPF::Работа с текстовыми файлами больших размеров.

-----DelphiMan

Дата 8.4.2004, 10:08 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Меня интересует как имея текстовый фаил
найти внём нужную ЛИНИЮ по 10-ти начальным символам строки
и совершить над этой линией следующие действия:

1) Заменить
2) Переименовать
4) Сместить позицию (Вверх /Вниз)

Конечно это можно былобы сделать открыв фаил в Какомнить Memo или RichEdite
но поскольку размер файла очень большой то на его загрузку и сохранение
уйдёт куча времени.

x77

Дата 8.4.2004, 10:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

FileSeek, BlockRead, BlockWrite.

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

-----DelphiMan

Дата 8.4.2004, 11:12 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ну и как задать для FileSeek нужную строку ?

x77

Дата 8.4.2004, 11:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

а что, размер линий разный?

тогда

for i := 1 to 10 do
ReadLn (f, s);

после окончания цикла в s будет десятая строка. меняем её как нам надо. потом:

for i := 1 to 9 do
ReadLn (f, s);
WriteLn (f, s);

--------------------

x77

Дата 8.4.2004, 11:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

а, торможу. тебе ж надо не десятую, а по первым символам.

читай строки, для каждой делай Pos.

--------------------

-----DelphiMan

Дата 8.4.2004, 16:50 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ну и как используя WriteLn сделать запись скажем
в серидине файла?

x77

Дата 8.4.2004, 20:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

делаешь в цикле ReadLn (f, s), пока не выполнится какое-то условие (не наступит "середина файла", к примеру), а потом делаешь WriteLn.

--------------------

Alex

Дата 8.4.2004, 20:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

А можно узнать, что вы называете большим файлом?

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Дата 8.4.2004, 21:00 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Цитата(x77 @ 8.4.2004, 17:09)

Ошибка будет.
Добавлено @ 21:02

Цитата(alex @ 8.4.2004, 17:47)

А можно узнать, что вы называете большим файлом?

Как я понял это когда размер файла больше Оперативной памяти

x77

Дата 9.4.2004, 15:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

RAdmin, ты имеешь в виду Reset/Rewrite? не будет ;)

--------------------

maxim1000

Дата 9.4.2004, 15:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

Репутация: 4
Всего: 110

открываем два файла (один из них исходный, другой - для результата)
читаем один по кусочкам
вносим изменения
пишем резуьтат во второй файл
Добавлено @ 15:48
кстати, в виду больших объемов информации не помешало бы пользоваться системными функциями работы с файлами (я тестов не проводил, но по идее они должны быть быстрее)

--------------------

qqq

Alex

Дата 9.4.2004, 15:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Нет ну всетаки какой файл по размеру?

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

x77

Дата 9.4.2004, 16:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

alex-co, действительно

вдруг там вообще без file-mapping'а не обойдёшься. кстати, для действительно больших файлов - на пару гигов - оптимальный вариант.

--------------------

Дата 9.4.2004, 19:57 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Цитата(x77 @ 9.4.2004, 12:41)

RAdmin, ты имеешь в виду Reset/Rewrite? не будет ;)

Ага, ибо либо одно либо другое.

Если Rewrite то придётся весь фаил перезаписывать, а прикинь он весить будет около гига, ну а ресет сам знаешь что даёт

.

Как вот такой вариант ?

Код



procedure FileReplaceString(const FileName, searchstring, replacestring: string); 
var 
  fs: TFileStream; 
  S: string; 
begin 
  fs := TFileStream.Create(FileName, fmOpenread or fmShareDenyNone); 
  try 
    SetLength(S, fs.Size); 
    fs.ReadBuffer(S[1], fs.Size); 
  finally 
    fs.Free; 
  end; 
  S  := StringReplace(S, SearchString, replaceString, [rfReplaceAll, rfIgnoreCase]); 
  fs := TFileStream.Create(FileName, fmCreate); 
  try 
    fs.WriteBuffer(S[1], Length(S)); 
  finally 
    fs.Free; 
  end; 
end;

x77

Дата 9.4.2004, 21:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

RAdmin, ты считаешь, что твой вариант будет нормально себя чувствовать при весе файла около гига?

кстати, объявление string соответствует AnsiString, а у него 2 гига - вообще предел.

нет, народ, для действительно больших файлов надо либо делать файл-маппинг, либо вообще читать напрямую диск.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »