Удаление первых N символов из текстового файла в Delphi без создания нового файла

Delphi , Интернет и Сети , Браузер

Иногда в процессе работы с файлами возникает необходимость удаления первых N символов из текстового файла. Это может быть связано, например, с обновлением шаблонов или удалением комментариев. В Delphi для решения этой задачи можно использовать различные подходы, но важно помнить, что в операционной системе Windows нет простого способа удалить часть данных из начала файла. Необходимо либо скопировать содержимое файла в другой файл, удалить исходный и переименовать целевой, либо скопировать все данные файла на несколько байтов назад и затем обрезать файл. Если файл небольшой и может быть загружен в память, второй метод становится довольно простым.

Пример кода для удаления первых N символов

var
  fs: TFileStream;
  ms: TMemoryStream;
begin
  fs := TFileStream.Create('somefile.txt', fmOpenReadWrite); // Открытие файла для чтения и записи
  try
    ms := TMemoryStream.Create;
    try
      ms.CopyFrom(fs, 0); // Копирование всего файла в TMemoryStream
      ms.Position := AHowMuch; // Перемещение указателя на позицию после первых N символов
      fs.Position := 0;
      fs.CopyFrom(ms, ms.Size - ms.Position); // Копирование оставшейся части файла обратно в TFileStream
      fs.Size := fs.Position; // Обрезание файла до новой длины
    finally
      FreeAndNil(ms); // Освобождение TMemoryStream
    end;
  finally
    FreeAndNil(fs); // Освобождение TFileStream
  end;
end;

В этом примере кода используется буфер полного размера памяти. Это позволяет работать с файлами небольшого размера, которые могут быть полностью загружены в оперативную память.

Альтернативный способ

Существует также альтернативный подход, который заключается в чтении файла и перемещении блоков данных назад в самом файле:

procedure HeadCrop(const AFileName: string; const AHowMuch: Int64);
var
  lFileStream: TFileStream;
  lPos, lRead: Int64;
  lBuffer: array[0..511] of Byte;
begin
  lFileStream := TFileStream.Create(AFileName, fmOpenReadWrite);
  try
    if lFileStream.Size < AHowMuch then
    begin
      lFileStream.Size := 0;
      Exit;
    end;
    lPos := AHowMuch;
    repeat
      lFileStream.Position := lPos;
      lRead := lFileStream.Read(lBuffer, SizeOf(lBuffer));
      lFileStream.Position := lPos - AHowMuch;
      lFileStream.Write(lBuffer, lRead);
      Inc(lPos, SizeOf(lBuffer));
    until lRead <> SizeOf(lBuffer);
    lFileStream.Size := lFileStream.Size - AHowMuch;
  finally
    lFileStream.Free;
  end;
end;

Этот код читает файл блоками размером 512 байт и перемещает их назад в файле. Важно отметить, что данный метод перемещает байты, а не символы, поэтому он работает корректно только для однобайтовых кодировок.

Заключение

— задача, которая требует внимания к деталям и понимания того, как работают файлы в операционной системе Windows. Представленные выше примеры кода могут служить отправной точкой для решения подобных задач в ваших проектах на Delphi.

Создано по материалам из источника по ссылке.

Удаление первых N символов из текстового файла в Delphi без создания нового файла может быть выполнено с использованием буфера в памяти или перемещением данных внутри самого файла, что требует внимательного подхода к работе с файловой системой Windows.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::