im FileStream bestimmte Zeichen ersetzen

[fips0705]

ich habe mit
TFileStream.Create(opendialog1.filename, fmOpenReadWrite or fmShareDenyWrite) eine Datei gelesen und möchte nur im Stream bestimme Zeichen wie z.B. Hex 00 durch Leerzeichen ersetzen

mit der Funktion StringReplace funktioniert das im Filestream nicht

[jaenicke]

Handelt es sich um eine Textdatei? Dann würde ich keinen TFileStream benutzen.

Was du bei einem FileStream machen kannst wäre z.B. byteweise ein Byte lesen, vergleichen und ggf. die Position ein Byte zurücksetzen und das Ersatzbyte schreiben. Das wäre aber sehr langsam.

Was sinnvoll ist, hängt vom Dateityp und der Dateigröße ab. Möglich wäre z.B. den Inhalt in einen String oder Bytearray zu kopieren, usw.

[fips0705]

Es ist im Prinzip eine Textdatei, Sie enthält aber Drucksteuerzeichen. Das bewirkt, das es mit einer Stringlist oder auch Memoliste nicht funktioniert. Hier wir immer nur ein Teil gelesen.

Habe es auch schon mit BlockRead versucht.

Leider weiß ich nicht wie ich die komplette Datei einlese und dann von Anfang bis Ende die Datei durchsuche.

[Bernhard Geyer]

Zitat von fips0705:

Es ist im Prinzip eine Textdatei, Sie enthält aber Drucksteuerzeichen.

Bist du dir sicher das es nicht eine Unicode-Textdatei ist? Was sagt notepad dazu wenn du es damit öffnest?

[fips0705]

M F Bitte bei der Zahlung angeben

so sieht die Datei mit notepad aus.
lässt sich aber komplet öffnen

[shmia]

Mit den beiden folgende Funktionen kannst du die komplette Datei als String einlesen, verändern und wieder speichern (am Besten unter einem anderen Dateinamen).
Wenn deine Datei ~ 10 Megabytes überschreitet musst du dir Gedanken machen, nur Teile der Datei einzulesen und zu manipulieren.
So aber ist es am Einfachsten: alles in den Speicher lesen, verändern, zurückschreiben.

Delphi-Quellcode:

// kopiert aus der JCL
function FileToString(const FileName: string): AnsiString;
var
  fs: TFileStream;
  Len: Integer;
begin
  fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    Len := fs.Size;
    SetLength(Result, Len);
    if Len > 0 then
      fs.ReadBuffer(Result[1], Len);
  finally
    fs.Free;
  end;
end;

procedure StringToFile(const FileName: string; const Contents: AnsiString);
var
  fs: TFileStream;
  Len: Integer;
begin
  fs := TFileStream.Create(FileName, fmCreate);
  try
    Len := Length(Contents);
    if Len > 0 then
      fs.WriteBuffer(Contents[1], Len);
  finally
    fs.Free;
  end;
end;

[himitsu]

du kannst die komplette Datei vom Stream kurz in einen Puffer laden, darin die Zeichen ersetzen und dann zurück in en Stream, oder eben Stückchenweise (Byteweise oder in größeren Stückchen)

man könnte auch auch 2 Streams nutzen ... mit einem Stream aus der Datei lesen, dann da stückchenweise raus, bearbeiten und in den anderen stream rein

und statt die Datei danach wieder zurück in den Stream zu schicken, könnte man sie auch gleich im Puffer (z.B. einem String) belassen (siehe shmia)

[fips0705]

vielen Dank für die vielen Tipps.
nur weiß ich nicht wie ich in einem Strem bzw. Puffer Zeichen ersetzte.
welchen Befehl kann ich dafür benutzen.

[Satty67]

Stell Dir den Stream als großes Byte-Array vor. Du kannst nur nicht direkt darauf zugreifen, sondern musst einzelne Byte (oder Byteblöcke) mit Stream.Methoden lesen/schreiben

Delphi-Quellcode:

Stream.Read(aByte, SizeOf(aByte)) 
Stream.Write(aByte, SizeOf(aByte))

Also im Prinzip nach dem öffnen zweier Streams aus dem einen ein Byte lesen... prüfen und evtl. anderen Wert zuweisen... dann Byte in zweiten Stream schreiben.

[fips0705]

Ich habe es jetzt so gelöst vielen Dank

Delphi-Quellcode:

function FileToStringErsetze(const FileName: string;NeueZeichen: string;zuErsetzendeZeichen:integer): AnsiString;
var
  fs: TFileStream;
  Len,j: Integer;
  temp: string;

begin
  fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    Len := fs.Size;
    SetLength(Result, Len);
    if Len > 0 then
      fs.ReadBuffer(Result[1], Len);
      for j := 1 to Len do
        if Ord(Result[j]) = zuErsetzendeZeichen then
          Temp := Temp + NeueZeichen
        else
          Temp := Temp + Result[j];

  finally
    Result:=Temp;
    fs.Free;
  end;
end;

Aufruf über

Delphi-Quellcode:

  SL := TStringList.create ;
  SL.add(FileToStringErsetze(opendialog1.filename,'|',00));