[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

Delphi-Quellcode:

#01#02

durch

Delphi-Quellcode:

#03#04

ersetzen, leider wird

Delphi-Quellcode:

#01#02

durch

Delphi-Quellcode:

'\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

Delphi-Quellcode:

'\\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 :cry: )

[Win32.API]

Zitat:

Zitat von himitsu (Beitrag 1037739)

Deine Lib bietet doch eine Möglichkeit über 'ne Callbackfunktion den Repleace durchzuführen?
z.B. für diese "Chars" nach

Delphi-Quellcode:

'\\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:

Delphi-Quellcode:

\\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 :wall:

OK, dann halt

XML-Code:

\p{IsXDigit}

(nach Perl) sowie

XML-Code:

[[:xdigit:]]

(nach POSIX) oder eben

XML-Code:

[0-9A-Fa-f]

.

k.A. ob's so auch noch läuft

XML-Code:

'(?=(\\\\|[^\\]\\\\|[^\\]|^))\\x[0-9A-Fa-f]{1,2}'

. oder vielleicht einfach nur

XML-Code:

'(?!\\)\\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. :thumb:

Und das escapen sollte doch mit einer einfachen negative look behind expression ala

Delphi-Quellcode:

(?<!\\)\\x\X{1,2}

funktionieren.

Grüße,
Win32.API

[himitsu]

hab'sch mich also doch nicht total falsch verlaufen :stupid:

Zitat:

Zitat von Win32.API (Beitrag 1037814)

Und das escapen sollte doch mit einer einfachen negative look behind expression ala

Delphi-Quellcode:

(?<!\\)\\x\X{1,2}

funktionieren.

Delphi-Quellcode:

'abc\x12' .. 'a b c \x12'

geht

Delphi-Quellcode:

'abc\\x12' .. 'a b c \\ x 1 2'

geht

Delphi-Quellcode:

'abc\\\x12' .. 'a b c \\ \x12'

geht nicht :stupid:

Delphi-Quellcode:

'abc\\\\x12' .. 'a b c \\ \\ x 1 2'

geht
also oftmals könnte es funktionieren ... muß es aber nicht

[Win32.API]

Zitat:

Zitat von himitsu (Beitrag 1037818)

Delphi-Quellcode:

'abc\x12' .. 'a b c \x12'

geht

Delphi-Quellcode:

'abc\\x12' .. 'a b c \\ x 1 2'

geht

Delphi-Quellcode:

'abc\\\x12' .. 'a b c \\ \x12'

geht nicht :stupid:

Delphi-Quellcode:

'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 :stupid:

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 :gruebel:

XML-Code:

'(?!([^\\]|^)\\(\\\\)*)\\x[0-9A-Fa-f]{1,2}'