![]() |
Escape sequenzen ersetzen
Hallo,
kurze Schilderung meines Problems: Ich erhalte von einem Windows - Dienst (in Python geschrieben) über UDP eine Zeichenkette, die ich in Delphi weiter verarbeiten möchte. Um übertragungsprobleme zu vermeiden, wurden in der Zeichenkette die Sonderzeichen durch \x + Hex Wert ersetzt. So ergibt z.B. 'äöü' die Zeichenkette '\xe4\xf6\xfc'. Gibt es eine Möglichkeit, die originale Zeichenkette wiederherstellen? Danke im voraus Manuel |
AW: Escape sequenzen ersetzen
Ja, das sollte nicht so schwer sein.
Wie wird denn das Backslash selbst escapted? |
AW: Escape sequenzen ersetzen
Das Backslash muss glaube ich nicht escaped werden, weil '\x' für das escapen hergenommen wird.
Ich kann mich aber auch irren... |
AW: Escape sequenzen ersetzen
spontan würde ich \\ für \ vermuten ... halt der normale C-Style
und Zurück: Zeichencode auslesen und nach '\x'+2xHex umwandeln, außer bei #0 = '\0' oder #10 = '\n' oder '\' = '\\' usw. |
AW: Escape sequenzen ersetzen
Gibt es keinen Parser oder ähnliches, der das für mich erledigt?
|
AW: Escape sequenzen ersetzen
Vielleicht denke ich zu simpel, aber wieso nicht StringReplace? Das ist vielleicht nicht die schnellste Möglichkeit, aber wenn der Ausgangsstring nicht allzu lang ist, sollte das doch kein Problem sein.
|
AW: Escape sequenzen ersetzen
Wie wäre es wenn du den Parser schreiben würdest :mrgreen:
Ich würde das mit einem endlichen Zustandsautomaten angehen:
Delphi-Quellcode:
Nicht getestet, aber das Prinzip sollte klar werden.
function unescape(const input: AnsiString): AnsiString;
var state: (stNormal, stExpectX, stHex1, stHex2); curLength, cur: integer; escaped: string[3]; procedure normal; inline; begin state := stNormal; inc(curLength); result[curLength] := input[cur]; end; begin setLength(result, length(input)); curLength := 0; state := stNormal; for cur := 1 to length(input) do begin case state of stNormal: if input[cur] <> '\' then normal else state := stExpectX; stExpectX: if input[cur] = 'x' then state := stHex1 else normal; stHex1: if input[cur] in ['0'..'9', 'a'..'f', 'A'..'F'] then begin escaped := '$' + input[cur]; state := stHex2; end else normal; stHex2: begin if input[cur] in ['0'..'9', 'a'..'f', 'A'..'F'] then escaped := escaped + input[cur] else state := stNormal; inc(curLength); result[curLength] := Chr(StrToInt(escaped)); if state = stNormal then normal else state := stNormal; end; end; end; setLength(result, curLength); end; |
AW: Escape sequenzen ersetzen
Zuerst müssen doch einmal die genauen Kodierungsregeln bekannt sein. Wie wird denn z.B.diese Original-Zeichenkette kodiert?
Code:
Bei der Rückgewinnung sollte dann doch nicht herauskommen:
'äöü' wird als '\xe4\xf6\xfc' codiert!
Code:
'äöü' wird als 'äöü' codiert!
|
AW: Escape sequenzen ersetzen
Zitat:
Wenn das Prinzip klar ist, kann man aus stExpectX ein stExcpectModifier (oder so) machen und '\n', '\0' und andere ähnlich behandeln. EDIT: Ich habe den Code mal getestet und verbessert. Wer mit Lazarus testet, sollte die Ausgabe besser mit AnsiToUtf8 behandeln. |
AW: Escape sequenzen ersetzen
Ich kram das hier mal aus der Versenkung, weil das fast auf mein Gegenwärtiges Problem zutrifft: Datenquelle ist ein Python YAML. Ich erhalte escapete Unicodestrings wie zum Beispiel 'Gl\xF6ckner' an Stelle von 'Glöckner'. YAML ist nix anderes als hübscheres JSON (überspitzt gesagt, ich nutze YAML eigentlich nur, weil es einen Datumstypen kennt, was unter Python ein Segen ist, da kennt JSON nämlich [Standardkonform] keinen). Zurück zu meinem Problem: Was hier geschildert wurde ist ein Eigenbau, den ich von einem "Web" und "IoT" affinen Konstrukt wie Delphi in der Reinkarnation Seattle als eingebaut angesehen hätte. Ich finde aber nicht wirklich etwas hilfreiches. Es gibt Vorschläge TJSONObject.ParseJSONValue zu verwenden. Das scheitert daran, daß mein YAML eben kein JSON ist, denke ich. Zumindest bleibt das JSON Objekt leer, nach dem Parsen des Strings.
Edith fand heraus, daß ParseJSONValue daran scheitert, daß \x nicht vorgesehen ist sondern nur \u... Sherlock |
AW: Escape sequenzen ersetzen
OK, es hat jetzt doch ein versöhnliches Ende genommen. Ich mache folgendes bei der Auswertung der empfangenen Strings:
Delphi-Quellcode:
Das klappt brauchbar.
myJSONValue := TJSONObject.ParseJSONValue(StringReplace(temp, '\x', '\u00', []));
Sherlock - der schon mal den Bagger bestellt, damit dieser Thread wieder eingegraben werden kann. |
AW: Escape sequenzen ersetzen
Was ist deine Frage?
Magst du was hilfreiches von uns sehen? Zum Bsp. mit Rekursion:
Delphi-Quellcode:
// <XYZ> wird ersetzt durch WideChar(XYZ) wenn zum einen die Kombination "<" + "XYZ" + ">" gefunden wird und zum anderen sich "XYZ" in einen Integer umwandeln lässt.
function ParseLiteralsW(AInputString : WideString) : WideString; function WideStrCopy(ASourceString : WideString; AIndex : Cardinal; ALength : Cardinal) : WideString; var len : Cardinal; indx : Cardinal; begin len:=Length(ASourceString); if (AIndex>len) or (ALength=0) then begin Result := ''; exit; end; if AIndex=0 then indx:=1 else indx:=AIndex; if (indx+ALength) > len then begin SetLength(Result,len-indx+1); Move(ASourceString[indx],Result[1],(len-indx+1)*SizeOf(WideChar)); end else begin SetLength(Result,ALength); Move(ASourceString[indx],Result[1],(ALength)*SizeOf(WideChar)); end; end; Function PosExW(SubStr: WideString; S: WideString; Offset : Longint = 1): LongInt; Begin if Length(SubStr)<=Length(S) then begin Result := Offset; While Length(SubStr) + Result - 1 <= Length(S) do Begin If CompareMem(@SubStr[1], @S[Result], Length(SubStr) shl 1) Then Exit; Inc(Result); End; End; Result := 0; End; var p1,p2 : Integer; tmpword : Word; tmpw : WideString; begin Result:=AInputString; p1:=1; p2:=1; p1:= PosExW('<',AInputString,p1); p2:= PosExW('>',AInputString,p2); if (p1>0) and (p2>0) and (p2>p1+1) then begin Try tmpword:=StrToInt(WideStrCopy(AInputString,p1+1,p2-p1-1)); if (tmpword>0) and (tmpword<=MaxWord) then begin tmpw:=WideStrCopy(AInputString,1,p1-1)+WideChar(tmpword)+WideStrCopy(AInputString,p2+1,Length(AInputString)-p2); Result := ParseLiteralsW(tmpw); end; except End; end; end; Zwischenzeitlich kam noch mal dein Beitrag, bis ich einen Fehler gefunden habe. Gut dass es bei dir klappt. Schönes Wochenende! |
AW: Escape sequenzen ersetzen
Danke für den Code, über kurz oder lang werde ich wohl darauf zurückkommen müssen, je komplexer meine Kommunikation zwischen Server und Client wird. Also vergebens ist das auf keinen Fall gewesen! Danke!
Sherlock |
AW: Escape sequenzen ersetzen
Es ist immer noch ein Fehler in meinem Beitrag weiter oben. Die Sequenz <60>...<62> wird bei einem rekursiven Aufruf wieder geparsed. Unschön. Deswegen eine kleine Änderung:
Delphi-Quellcode:
function ParseLiteralsW(AInputString : WideString) : WideString;
var p1,p2 : Integer; tmpword : Word; tmpw : WideString; begin Result:=AInputString; p1:=1; p2:=1; p1:= PosExW('<',AInputString,p1); p2:= PosExW('>',AInputString,p2); if (p1>0) and (p2>0) and (p2>p1+1) then begin Try tmpword:=StrToInt(WideStrCopy(AInputString,p1+1,p2-p1-1)); if (tmpword>0) and (tmpword<=MaxWord) then begin //hier die Rekursion tmpw:=WideStrCopy(AInputString,1,p1-1)+WideChar(tmpword)+ ParseLiteralsW(WideStrCopy(AInputString,p2+1,Length(AInputString)-p2)); Result := tmpw; end; except End; end; end; |
AW: Escape sequenzen ersetzen
Was soll bitte dieses böse leere Except-End da im Code?
Und ja, ich weiß weshalb, aber halt warum, denn ![]() ![]() PS: Versuch mal
Delphi-Quellcode:
zu deescapen. :angle2:
abc<32>def<60>ghi
Delphi-Quellcode:
kürzer
p1:=1;
p2:=1; p1:= PosExW('<',AInputString,p1); p2:= PosExW('>',AInputString,p2); if (p1>0) and (p2>0) and (p2>p1+1) then begin
Delphi-Quellcode:
noch kürzer
p1:= PosExW('<',AInputString,1);
p2:= PosExW('>',AInputString,1); if (p1>0) and (p2>0) and (p2>p1+1) then begin
Delphi-Quellcode:
aber eigentlich
p1:= PosW('<',AInputString);
p2:= PosW('>',AInputString); if (p1>0) and (p2>0) and (p2>p1+1) then begin
Delphi-Quellcode:
p1:= PosW('<',AInputString); // PosExW('<',AInputString,1);
p2:= PosExW('>',AInputString,p1{+1}); if (p1>0) and (p2>0) then begin |
AW: Escape sequenzen ersetzen
Zitat:
Die leere Exception bitte als imaginäres //TODO verstehen. Ich kommentiere nicht immer alle Baustellen. Schlechte Angewohnheit... Sollte ich tatsächlich durch ein ![]() Zitat:
Delphi-Quellcode:
Sollte man testen; ein "<>" zu parsen ergibt keinen Sinn.
(p2>p1+1)
Du hast mich aber damit darauf aufmerksam gemacht, dass ich noch prüfen sollte ob vielleicht nach der "<>" Kombination noch ein "<XYZ>" folgt. Das wird verschluckt. |
AW: Escape sequenzen ersetzen
Aller Guten Dinge sind drei:
Delphi-Quellcode:
Eingabe: <><abc>abc<32>def<60>ghi<70000><>
function ParseLiteralsW(AInputString : WideString) : WideString;
var p1,p2 : Integer; tmpInt : Integer; tmpw : WideString; begin Result:=AInputString; p1:= PosExW('<',AInputString); p2:= PosExW('>',AInputString); if (p1>0) and (p2>0) and (p2>p1+1) then begin //Zweig: Mutmaßliche Escape Sequenz "<X>" vorhanden if TryStrToInt(WideStrCopy(AInputString,p1+1,p2-p1-1),tmpInt) then begin //Zweig: TryStrToInt liefert Integer if (tmpInt>=0) and (tmpInt<=MaxWord) then begin //Zweig: tmpInt liegt in gültigem Intervall tmpw:=WideStrCopy(AInputString,1,p1-1)+WideChar(tmpInt)+ ParseLiteralsW(WideStrCopy(AInputString,p2+1,Length(AInputString)-p2)); Result := tmpw; end else begin //Zweig: tmpInt liegt nicht in gültigem Intervall --> prüfe ob dahinter noch etwas geparsed werden soll tmpw:=WideStrCopy(AInputString,1,p2)+ParseLiteralsW(WideStrCopy(AInputString,p2+1,Length(AInputString)-p2)); Result := tmpw; end; end else begin //Zweig: TryStrToInt liefert keinen Integer --> prüfe ob dahinter noch etwas geparsed werden soll tmpw:=WideStrCopy(AInputString,1,p2)+ParseLiteralsW(WideStrCopy(AInputString,p2+1,Length(AInputString)-p2)); Result := tmpw; end; end else if (Length(AInputString)-p2>3) and (p2>0) and (p1>0) then begin //Zweig: Leere Sequenz "<>" --> prüfe ob dahinter noch etwas geparsed werden soll wenn noch mindestens 3 Zeichen danach kommen tmpw:=WideStrCopy(AInputString,1,p2)+ParseLiteralsW(WideStrCopy(AInputString,p2+1,Length(AInputString)-p2)); Result := tmpw; end; end; Ausgabe: <><abc>abc def<ghi<70000><> Jetzt habe ich hoffentlich alle Klarheiten beseitigt (-es ist etwas unübersichtlicher als vorher-) :thumb: Danke für die Anregung! |
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:51 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz