Stringende wieder hinzufügen

[TheMiller]

Hallo,

da diese Frage spezieller ist, eröffne ich einen neuen Thread, der aber eigentlich zu dem hier (Stream wie Editor einlesen)

Also, ich habe in dem oben genannten Thread eine Funktion gepostet bekommen, mit der ich das Stringende-Zeichen #0 entfernen kann. Nun zeigt mir das Memo alles toll an. Damit ich die Datei wieder speichern kann, habe ich das #0 durch ?) ersetzt. Nun möchte ich das ?)-Zeichen wieder in #0 mit StrReplaceBin umwandeln. Doch da fügt er nur das erste Zeichen ein, erkennt natürlich wieder ein Stringende und hört somit auf. Somit habe ich nur die ersten 4 Bytes (?) glaube ich.

Die Datei kann also nicht mehr gespeichert werden. Ich denke, dass StrReplaceBin müsste am Ende der Datei anfangen zu ersetzen und sich vorarbeiten, damit sie nicht vorzeitig abbricht. Doch die Funktion ist in ASM und davon habe ich noch weniger Ahnung.

Bitte um Hilfe!

Danke

[Apollonius]

Du kannst doch einfach den String mit einer for-Schleife durchlaufen und jedes Ersatzzeichen durch ein #0 ersetzen.

[TheMiller]

Das darf doch dann aber kein String-#0 sein. Es muss ja ein Binärwert sein... Sonst habe ich ja #0 da stehen und nicht ein tatsächliches Stringende. Oder?

[omata]

Und welches Ersatzzeichen soll man da nehmen? Vielleicht ist ja z.B. das Fragezeichen vorher auch ein Fragezeichen gewesen und nicht #0 :zwinker:

[TheMiller]

Ich will ja kein Ersatzzeichen, ich mag ja nur mein Ersatzzeichen wieder in ein Binär-#0-Zeichen umwandeln.

[Apollonius]

#0 ist das Zeichen mit dem Binärwert 0, wird also bei PChars als Stringende interpretiert. Der Trick liegt darin, dass bei Strings im Gegensatz zu PChars noch eine zusätzliche Längenangabe vorliegt, auf die mit Length() zugegriffen wird. Damit umgehst du das Problem des vorzeitigen Abbrechens.

[TheMiller]

Hm.. das hab ich nicht ganz verstanden.

Zuerst wandel ich den Kram folgendermaßen um, um ihn im Memo anzuzeigen:

Delphi-Quellcode:

//String, Suchen_nach, Ersetzen-durch
StrReplaceBin(s, #0, '&%');

Nun kann ich es im Memo alles ansehen. Um zu speichern, wollte ich wieder zurückwandeln:

Delphi-Quellcode:

StrReplaceBin(s, '&%', #0);

Da ersetzt er nur bis zum ersten Vorkommen, danach ist für ihn der String zu Ende.

Ich habe nicht ganz verstanden, wie dieser "Trick" funktionieren soll, den du geschrieben hast - bzw wie ich ihn umsetze.

[Apollonius]

Hm, mit einem Ersetzungsstring, der größer als ein Byte ist, wird das etwas schwieriger. Allerdings nicht unmöglich:

Delphi-Quellcode:

procedure Fix0Bytes(var Str: String);
var i, j: Integer;
begin
  i := 1;
  j := 1;
  while i < Length(Str) do
    if (Str[i] = '&') and (Str[i+1] = '%') then
    begin
      Str[j] := #0;
      Inc(i, 2);
      Inc(j);
    end  
    else
    begin
      Str[j] := Str[i];
      Inc(i);
      Inc(j);
    end;
  SetLength(Str, j);
end;

Ich habe es nicht getestet, aber zumindest mit Ansistrings müsste es so gehen.

[TheMiller]

Hey...

hab mal Copy&Paste gemacht, das Ergebnis ist leider das gleiche. Vielleicht müssen wir die Funktion so umschreiben, dass sie am Dateiende beginnt, die Strings zu ersetzen und sich zum Beginn der Datei vorarbeitet. Das könnte doch gehen, oder?

[Apollonius]

Wie speicherst du denn den String?

[TheMiller]

Ups.... durch TStringList - das könnte natürlich einiges Erklären...

[Apollonius]

Wenn du einen TFileStream verwendest, sollte es funktionieren.

[TheMiller]

Ich habe einen MemoryStream verwendet und dann aus Platte geschrieben... Doch so ganz entfert er die "&%"-Zeichen nicht. Hier mal die Originaldatei und die Datei aus dem Stream:

Code:

ÿØÿà JFIF 

 H H  ÿá‚Exif  II*    
 
    †   
    ”   
 
   
   
 
   š   
 
   ¢   (
 
      1
    ª   2
    Æ    
      i‡ 
   Ü   T

Code:

ÿØÿà %JFI &%
 
 %  %H&%&%ÿá  Exi &   I *&% &   &   %
 &   %   %†& &      %& &   ”   %&% 
   
   %&% &   &   &% &   &   %&% %   &   %&% %   &   (
 %   &   &  %&%1
&%&%&% %ª&%& &%2 &  &%& &%  %&%&%&%
&%&%&%&%&%&%i‡ %
&%&%&%Ü&%&%&%

Hm... hilft das weiter? Sieht seltsam aus...

[Apollonius]

Ich hatte im Else-Zweig eine Zeile vergessen.

[grenzgaenger]

probier das mal:

Delphi-Quellcode:

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;

function Replace(const aStr: string; 
                 const aSearchStr: string; 
                 const aReplaceChar: char): string;
var
 l,x: integer;      
 c: PChar;           
begin
 setlength(result, length(aStr));
 c := @aStr[1];
 x := 0;
 for l := 1 to  length(aStr) do
 begin
  inc(x); 
  if pos(aSearchStr, c) = 1 then
  begin
   result[x] := aReplaceChar;
   inc(c, length(aSearchStr));
  end
  else
  begin
   result[x] := c^;
   inc(c);
  end;
 end;
 setlength(result, x);
end;
  
begin
 writeln(Replace('a&%68&%a4', '&%', #0));
 readln;
end.

in der performance kann man da sicher noch was machen... sollte aber funzzen...

ansonsten, denk an omata das ganze, kann nicht bei einem binärformat vernünftig funktionieren...

hierzu müsstest du schon beim lesen, z.b. in hexcode umwandeln, in hexcode editieren und beim speichern den hex wieder in die binärdarstellung bringen...

aber das wirst schon selbst noch merken ... :drunken:

[Christian Seehase]

Moin DJ-SPM,

warum nimmst Du nicht einfach StringReplace? :gruebel:

Delphi-Quellcode:

sErgebnisMitBinaerenNullen := StringReplace(Memo1.Text,'DeineErsatzzeichen',#00,[rfReplaceAll,rfIgnoreCase]);