Escape sequenzen ersetzen

[himitsu]

Was soll bitte dieses böse leere Except-End da im Code?
Und ja, ich weiß weshalb, aber halt warum, denn StrToIntDef oder TryStrToInt.

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

[Photoner]

Zitat von himitsu:

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 TryStrToInt ersetzen. Das ist deutlich besser.

Zitat von himitsu:

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.

[Photoner]

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!