AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Escape sequenzen ersetzen

Ein Thema von manuel.taber · begonnen am 25. Aug 2011 · letzter Beitrag vom 11. Apr 2016
Antwort Antwort
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.321 Beiträge
 
Delphi 12 Athens
 
#1

AW: Escape sequenzen ersetzen

  Alt 11. Apr 2016, 14:40
Was soll bitte dieses böse leere Except-End da im Code?
Und ja, ich weiß weshalb, aber halt warum, denn Delphi-Referenz durchsuchenStrToIntDef oder Delphi-Referenz durchsuchenTryStrToInt.

PS: Versuch mal abc<32>def<60>ghi zu deescapen.

Delphi-Quellcode:
p1:=1;
p2:=1;
p1:= PosExW('<',AInputString,p1);
p2:= PosExW('>',AInputString,p2);
if (p1>0) and (p2>0) and (p2>p1+1) then begin
kürzer
Delphi-Quellcode:
p1:= PosExW('<',AInputString,1);
p2:= PosExW('>',AInputString,1);
if (p1>0) and (p2>0) and (p2>p1+1) then begin
noch kürzer
Delphi-Quellcode:
p1:= PosW('<',AInputString);
p2:= PosW('>',AInputString);
if (p1>0) and (p2>0) and (p2>p1+1) then begin
aber eigentlich
Delphi-Quellcode:
p1:= PosW('<',AInputString); // PosExW('<',AInputString,1);
p2:= PosExW('>',AInputString,p1{+1});
if (p1>0) and (p2>0) then begin
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Photoner

Registriert seit: 6. Dez 2012
Ort: Nürnberg
103 Beiträge
 
Delphi 10.1 Berlin Starter
 
#2

AW: Escape sequenzen ersetzen

  Alt 11. Apr 2016, 15:09

PS: Versuch mal abc<32>def<60>ghi zu deescapen.
Ergebnis wie gewünscht: "abc def<ghi"

Die leere Exception bitte als imaginäres //TODO verstehen. Ich kommentiere nicht immer alle Baustellen. Schlechte Angewohnheit...
Sollte ich tatsächlich durch ein Delphi-Referenz durchsuchenTryStrToInt ersetzen. Das ist deutlich besser.

Delphi-Quellcode:
p1:= PosExW('<',AInputString,1);
p2:= PosExW('>',AInputString,1);
if (p1>0) and (p2>0) and (p2>p1+1) then begin
Das ist gekauft. (p2>p1+1) Sollte man testen; ein "<>" zu parsen ergibt keinen Sinn.
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.
Chris
  Mit Zitat antworten Zitat
Photoner

Registriert seit: 6. Dez 2012
Ort: Nürnberg
103 Beiträge
 
Delphi 10.1 Berlin Starter
 
#3

AW: Escape sequenzen ersetzen

  Alt 11. Apr 2016, 15:56
Aller Guten Dinge sind drei:

Delphi-Quellcode:
  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;
Eingabe: <><abc>abc<32>def<60>ghi<70000><>
Ausgabe: <><abc>abc def<ghi<70000><>

Jetzt habe ich hoffentlich alle Klarheiten beseitigt (-es ist etwas unübersichtlicher als vorher-)

Danke für die Anregung!
Chris

Geändert von Photoner (11. Apr 2016 um 15:57 Uhr) Grund: Dankeschön vergessen
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:20 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