Скачать: CL | DM;

Обрезка файла   Найти похожие ветки 

← →
Igor_Z   (2007-01-06 09:34) [0]

Уважаемые мастера.
Скажите, как обрезать нетипизированный файл
от одной границы байт до другой.
Truncate работает не так хорошо, если
запись в середине, и нужно, удалить ее одну, он не справится.
Может есть какой-либо еще метод.
Спасибо.

---

← →
kaZaNoVa ©   (2007-01-06 10:11) [1]

никак .. только копированиее и обрезка

---

← →
ors_archangel ©   (2007-01-06 10:43) [2]

Если часто нужно удалять блоки внутри файла, и размер файла может быть большим, то это приведёт к тому, что нужно будет перезаписывать большие блоки данных, наприер, в 3 Mb файле вырезаем 100 байт из середины - придётся перезаписать со смещением 1.5 Mb - 100 байт. Если файл не большого размера, то нет проблем, но если записей много, то лучше в файле организовать подобие кластерной системы - физически неупорядоченное хранение, в простейшем случае, если все записи имеют одинаковую длину, можно просто хранить двусвязный список, только укзаатели будут в файле, а не как обычно - в памяти, т.к. двусвязанные списки позволяют удалять записи с эффективностью O(1): например нужно из файла, содержащего n записей удалить одну посредине: мы перемещаем последнюю запись на место данной плюс модифицируем указатели на эту запись, чтобы они были актуальны, но предварительно, чтобы не нарушить упорядоченность записей, нужно указатель на удаляемую запись заменить указателем на следующю запись, т.е. что-то подобное:

procedure DeleteRecord(f: THandle; n: integer);
var
 t: TRecord;
begin
{ читаем запись (точнее её часть) }
 FileSeek(f, n*RECORD_SIZE, 0);
 FileRead(f, t, 8);
{ указатель на запись меняем на следующий указатель }
 FileSeek(f, t.prev*RECORD_SIZE + 4, 0);
 FileWrite(f, t.next, 4);
{ на место удаляемой записи записываем последнюю запись из файла }
 FileSeek(f, -RECORD_SIZE, SEEK_END);
 FileRead(f, t, RECORD_SIZE);
 FileSeek(f, -RECORD_SIZE, SEEK_END);
 SetEndOfFile(f); // обрезка файла
 FileSeek(f, n*RECORD_SIZE, 0);
 FileWrite(f, t, RECORD_SIZE);
{ обновляем указатель на перемещённую запись }
 FileSeek(f, t.prev*RECORD_SIZE + 8, 0);
 FileWrite(f, n, 4); // записываем новое местоположение
end;

этот лишь примерный код, тут нужно рассмотреть ещё разные случаи, например, когда удаляемая запись - последняя, когда последняя запись ссылалась на удалённую и т.д. Минус такого хранения в том, что нужно +8 байт на каждую запись, но если тебе не важен порядок хранения, тогда всё намного проще: просто читаешь последню запись, записываешь её на место удаляемой и обрезаешь файл

---

← →
Anatoly Podgoretsky ©   (2007-01-06 11:52) [3]

> Igor_Z  (06.01.2007 09:34:00)  [0]

А ты бы для начала определился, что тебе нужно обрезка или смещение.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c