TFileStream: прочитать блок данных из файла и заменить его в Delphi 7 - PullRequest
Новая
       8

TFileStream: прочитать блок данных из файла и заменить его в Delphi 7

0 голосов
/ 30 июня 2018

Я хотел бы прочитать блок байтов из файла (например, 400 КБ), заменить некоторый текст в буфере и затем записать его в файл. Первоначально я пытался TFileStream с буферным массивом байтов, но затем я застрял на проблеме, что stringreplace работает со строкой. Исходными данными являются TXT UTF-8. Вот что у меня есть: 

var
  SS,ST: TFileStream;
  Buffer: string;
  sf,tf,TempStr: string;
  i: Integer;
begin
  sf := 'U:\SYSTEM\enwiktionary-latest-stub-articles\stub-articles.xml';
  tf := 'A:1.txt';
  SS := TFileStream.Create(sf, fmOpenRead);
  ST := TFileStream.Create(tf, fmCreate or fmOpenWrite);
  try
    SS.Read(Buffer, sizeof(Buffer));
    Buffer := stringreplace(Buffer, '<page>','<p>', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '</page>','</p>', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '<title>','<t>', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '</title>','</t>', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '<ns>','<n', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '</ns>','>', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '<revision>','<r>', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '</revision>','</r>', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '<id>','<i', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '</id>','>', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '<parentid>','<pi', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '</parentid>','>', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '<contributor>','', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '</contributor>','', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '<username>','<u>', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '</username>','</u>', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '<comment>','<c>', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '</comment>','</c>', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '<text id="','<t =', [rfReplaceAll]);
    Buffer := stringreplace(Buffer, '" bytes="',' b=', [rfReplaceAll]);
    ST.Write(Buffer, sizeof(Buffer));
  finally
    SS.Free;
  end;

Buffer := stringreplace делает ошибку во время выполнения Нарушение доступа ..

Ответы [ 2 ]

0 голосов
/ 01 июля 2018

Рабочий пример. 

var
    ifname,ofname:string;
    sourceStream, targetStream: TFileStream;
    filesizevalue, size:integer;
    Buffer: AnsiString;
begin
  ifname := 'U:\SYSTEM\enwiktionary-latest-stub-articles\stub-articles.xml';
  ofname := 'A:1.txt';
  filesizevalue:=900000;
  size := 1;
  SetLength(Buffer, filesizevalue);
  sourceStream := TFileStream.Create(ifname, fmOpenRead);
  targetStream := TFileStream.Create(ofname, fmCreate or fmOpenWrite);
  try
    sourceStream.seek(0, soFromBeginning);
    sourceStream.ReadBuffer(PAnsiChar(Buffer)^, filesizevalue * size);

    buffer := stringreplace(buffer, '<page>','<p>', [rfReplaceAll]);
    buffer := stringreplace(buffer, '</page>','</p>', [rfReplaceAll]);
    buffer := stringreplace(buffer, '<title>','<t>', [rfReplaceAll]);
    buffer := stringreplace(buffer, '</title>','</t>', [rfReplaceAll]);
    buffer := stringreplace(buffer, '<ns>','<n', [rfReplaceAll]);
    buffer := stringreplace(buffer, '</ns>','>', [rfReplaceAll]);
    buffer := stringreplace(buffer, '<revision>','<r>', [rfReplaceAll]);
    buffer := stringreplace(buffer, '</revision>','</r>', [rfReplaceAll]);
    buffer := stringreplace(buffer, '<id>','<i', [rfReplaceAll]);
    buffer := stringreplace(buffer, '</id>','>', [rfReplaceAll]);
    buffer := stringreplace(buffer, '<parentid>','<pi', [rfReplaceAll]);
    buffer := stringreplace(buffer, '</parentid>','>', [rfReplaceAll]);
    buffer := stringreplace(buffer, '<contributor>','', [rfReplaceAll]);
    buffer := stringreplace(buffer, '</contributor>','', [rfReplaceAll]);
    buffer := stringreplace(buffer, '<username>','<u>', [rfReplaceAll]);
    buffer := stringreplace(buffer, '</username>','</u>', [rfReplaceAll]);
    buffer := stringreplace(buffer, '<comment>','<c>', [rfReplaceAll]);
    buffer := stringreplace(buffer, '</comment>','</c>', [rfReplaceAll]);
    buffer := stringreplace(buffer, '<text id="','<t =', [rfReplaceAll]);
    buffer := stringreplace(buffer, '" bytes="',' b=', [rfReplaceAll]);
    targetStream.Write(PAnsiChar(buffer)^, length(buffer) );
  finally
     sourceStream.free;
     targetStream.free;
  end;
0 голосов
/ 30 июня 2018

Использовать строку буфера UTF8 и выделить место для тела строки: 

 Buffer: AnsiString; //type UTF8String = AnsiString;
 ...
 SetLength(Buffer, BlockSize)
 SS.Read(PAnsiChar(Buffer)^, BlockSize);
 ...
 ST.Write(PAnsiChar(Buffer)^, Length(Buffer));

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

...