[TPerlRegEx] Binary Replace

[Win32.API]

Hallo,

ist es möglich mit TPerlRegEx binäre Daten zu ersetzen? Konkret sollte das etwa so aussehen.

Delphi-Quellcode:

    with TPerlRegEx.Create(nil) do
    try
      Subject := BINAERE_DATEN;
      RegEx := '\x01\x02';
      Replacement :=  '\x03\x04';
      Replace();
    finally
      Free;
    end;

Es soll #01#02 durch #03#04 ersetzen, leider wird #01#02 durch '\x03\x04' ersetzt.

Grüße,
Win32.API

//Edit: War mir ganz unsicher, in welches Forum ich das Posten soll. Vielleicht ist es in "Sonstige Fragen zu Delphi" besser aufgehoben.

[himitsu]

Delphi-Quellcode:

RegEx := '\x01\x02';
Replacement := #3#4;

Die Expression muß schon den RegExp-Regeln entsprechen, aber im Replacement muß der gewünschte Text direkt drinstehn, da dort natürlich nicht die Expression-Regeln gelten.

[Win32.API]

Ah, ok, danke Dir für die Antwort. Gibt es eine Möglichkeit das Replacement auch in RegEx-Syntax anzugeben? Um einen Einheitlichen Standard zu schaffen?

[himitsu]

mit Boardmitteln ... nein

du müßtest dir also selber einen Converter schreiben,
wobei man hierbei notfalls auch wieder 'nen RegEx-Replace nutzen könnte.

Deine Lib bietet doch eine Möglichkeit über 'ne Callbackfunktion den Repleace durchzuführen?
z.B. für diese "Chars" nach '\\x\x{1,2}' suchen, in dem Callback den Hex-Anteil in ein Char übersetzen.

Aber danke für den Tipp (schreibe ja nebenbei noch eine "fast fertige" RegEx-Lib) und da könnte ich soeinen Converter leicht mit integrieren
(bin aber aktuell noch mit was Anderem beschäftigt und erst danach kann ich mich wieder darum kümmern )

[Win32.API]

Zitat von himitsu:

Deine Lib bietet doch eine Möglichkeit über 'ne Callbackfunktion den Repleace durchzuführen?
z.B. für diese "Chars" nach '\\x\x{1,2}' suchen, in dem Callback den Hex-Anteil in ein Char übersetzen.

Danke für die Antwort, aber sollte die Expression nicht eher so aussehen: \\x([0-9a-fA-F]{1,2}) , wobei man an dieser Stelle noch auf das Escapen aufpassen müsste.

Grüße,
Win32.API

[himitsu]

ups, jetzt hab'sch mich tatsächlich verlaufen

OK, dann halt \p{IsXDigit} (nach Perl) sowie [[:xdigit:]] (nach POSIX) oder eben [0-9A-Fa-f] .

k.A. ob's so auch noch läuft '(?=(\\\\|[^\\]\\\\|[^\\]|^))\\x[0-9A-Fa-f]{1,2}' . oder vielleicht einfach nur '(?!\\)\\x[0-9A-Fa-f]{1,2}' alle Escapesequenzen davor auszuwerten, via 'ner RegExp, ist nun och nicht so einfach/möglich.

[Win32.API]

Habe nochmal ein wenig in den Perl-Docks gestöbert: \x gibt's nicht dafür aber \X, welches genau das macht.

Und das escapen sollte doch mit einer einfachen negative look behind expression ala (?<!\\)\\x\X{1,2} funktionieren.

Grüße,
Win32.API

[himitsu]

hab'sch mich also doch nicht total falsch verlaufen

Zitat von Win32.API:

Und das escapen sollte doch mit einer einfachen negative look behind expression ala (?<!\\)\\x\X{1,2} funktionieren.

'abc\x12' .. 'a b c \x12' geht
'abc\\x12' .. 'a b c \\ x 1 2' geht
'abc\\\x12' .. 'a b c \\ \x12' geht nicht
'abc\\\\x12' .. 'a b c \\ \\ x 1 2' geht
also oftmals könnte es funktionieren ... muß es aber nicht

[Win32.API]

Zitat von himitsu:

'abc\x12' .. 'a b c \x12' geht
'abc\\x12' .. 'a b c \\ x 1 2' geht
'abc\\\x12' .. 'a b c \\ \x12' geht nicht
'abc\\\\x12' .. 'a b c \\ \\ x 1 2' geht
also oftmals könnte es funktionieren ... muß es aber nicht

Ist doch schon mal ein Anfang

Ich glaube es wird auch schwer, dass mit einer RegEx Expression zu lösen.

Wenn dann müsste jeder Slash escapt werden. Also wird '\\' zu '\' und '\' zu ''.

[himitsu]

eventuell so
wenn keine ungerade Anzahl an \ davor liegt, dann umwandeln
'(?!([^\\]|^)\\(\\\\)*)\\x[0-9A-Fa-f]{1,2}'