Escape sequenzen ersetzen

[DeddyH]

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.

[gammatester]

Zuerst müssen doch einmal die genauen Kodierungsregeln bekannt sein. Wie wird denn z.B.diese Original-Zeichenkette kodiert?

Code:

'äöü' wird als '\xe4\xf6\xfc' codiert!

Bei der Rückgewinnung sollte dann doch nicht herauskommen:

Code:

'äöü' wird als 'äöü' codiert!

[BUG]

Zitat von gammatester:

Zuerst müssen doch einmal die genauen Kodierungsregeln bekannt sein.

Deswegen habe ich ja gefragt, wie '\' codiert wird.
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.

[Sherlock]

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

[Sherlock]

OK, es hat jetzt doch ein versöhnliches Ende genommen. Ich mache folgendes bei der Auswertung der empfangenen Strings:
myJSONValue := TJSONObject.ParseJSONValue(StringReplace(temp, '\x', '\u00', [])); Das klappt brauchbar.

Sherlock
- der schon mal den Bagger bestellt, damit dieser Thread wieder eingegraben werden kann.

[Photoner]

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!

[Sherlock]

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

[Photoner]

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;