Doppelte Hochkommata

[tewes]

Hallo,

ich bekomme per REST folgende URL:
dmsDocObj.URL :=
https://ffppas.XXX.de:8443/sap/opu/o...entsSet(Dokar=''TUP'',Doknr=''10043430922'',Doktl=''000'',Dokvr=''00'')/$value

Im Browser führen dann die doppelten Hochkommata zu einer Fehlermeldung: "Die Anforderungs-URI enthält ein ungültiges Schlüsselprädikat."

Folgendes habe ich versucht:

• s := StringReplace(dmsDocObj.URL, #27#27, #27, [rfReplaceAll]);

• s := StringReplace(dmsDocObj.URL, #27#27, '%27', [rfReplaceAll]);

• s := AnsiDequotedStr(dmsDocObj.URL, #27);

• s := StringReplace(dmsDocObj.URL, #27#27, '*', [rfReplaceAll]);
• s := StringReplace(s, '*', #27, [rfReplaceAll]);

Wie bekomme ich die ersetzt durch einzelne?
'' --> '

[IceBube]

Bei mir funktionierts so

s = StringReplace(dmsDocObj.URL, '''''', '''', [rfReplaceALL]); lg

[milos]

Es scheint als würdest du einfach Hexadezimale und Dezimale Were vertauschen.

#27 ist ASCII Dezimal 27 also ein ESCAPE. Um ' darzustellen, musst du 27 Hexadezimal nehmen, also #$27 (Mit dem Dollar Zeichen) oder 39 Dezimal, also #39.

s := StringReplace(dmsDocObj.URL, #$27#$27, #$27, [rfReplaceAll]);

[himitsu]

oder s := ReplaceStr(dmsDocObj.URL, #39#39, #39);
oder s := ReplaceStr(dmsDocObj.URL, '''''', '''');
oder s := AnsiDequotedStr(dmsDocObj.URL, ''''); (das Gegenteil vom QuotedStr, bzw. eigentlich AnsiQuotedStr)
oder

[IceBube]

Zitat von himitsu:

oder s := ReplaceStr(dmsDocObj.URL, #39#39, #39);
oder s := ReplaceStr(dmsDocObj.URL, '''''', '''');
oder s := AnsiDequotedStr(dmsDocObj.URL, ''''); (das Gegenteil vom QuotedStr, bzw. eigentlich AnsiQuotedStr)
oder

Diese Entscheidungen..furchtbar XD

[himitsu]

Wir hätten auch noch was mit RegEx
oder verschiedene FOR-Schleifen
oder ...





for var i := 1 to S.Length do if Copy(S, i, 2) = '''''' then Delete(S, i, 1);
und nein, es werden nicht alle ' gelöscht, auch wenn es vielleicht so aussieht

[Uwe Raabe]

Probier doch mal dieses (erfordert System.Sysutils):

Delphi-Quellcode:

S := dmsDocObj.URL.DeQuotedString;
// alternativ, wenn URL kein regulärer String ist
S := string(dmsDocObj.URL).DeQuotedString;

[tewes]

Vielen Dank für die Lösungsvorschläge!

Das habe ich versucht:
s := dmsDocObj.URL.DeQuotedString; // Vorschlag Uwe Raabe
s := StringReplace(dmsDocObj.URL, '''''', '''', [rfReplaceAll]); // Vorschlag IceBube
s := StringReplace(dmsDocObj.URL, #$27#$27, #$27, [rfReplaceAll]); // Vorschlag milos
s := ReplaceStr(dmsDocObj.URL, #39#39, #39); // Vorschlag himitsu
s := AnsiDequotedStr(dmsDocObj.URL, ''''); // Vorschlag himitsu

Leider keine Änderung.


Wenn ich im Debugger auf "Wert ändern" gehe und jeweils die beiden Hochkommata gegen einzelne austausche
'https://ffppas.XXX.de:8443/sap/opu/odata/sap/Z_ISHMED_BASIC_API_SRV/documentsSet(Dokar='LDP',Doknr='10043643970',Doktl ='000',Dokvr='00')/$value'

wird hinter "Dokar=" alles abgeschnitten
'https://ffppas.XXX.de:8443/sap/opu/odata/sap/Z_ISHMED_BASIC_API_SRV/documentsSet(Dokar='

[tewes]

Auch dies
for var i := 1 to S.Length do if Copy(S, i, 2) = '''''' then Delete(S, i, 1); hilft leider nicht.

[tewes]

Delphi-Quellcode:

s := dmsDocObj.URL;
for p := 1 to s.length do
begin
  s2 := Copy(s, p, 2);
  if s2 = '''''' then 
    Delete(s, p, 1);  // Vorschlag himitsu
end;

s2 wird im interessanten Bereich (Dokar=''LDP'') nacheinander
'Do'
'ok'
'ka'
'ar'
'r='
'='''
'''L'
'LD'

if s2 = '''''' then wird nie wahr

Delphi-Quellcode:

s := dmsDocObj.URL;
for p := 1 to s.length do
begin
  s2 := Copy(s, p, 2);
  if s2 = '=''' then
    Delete(s, p+1, 1);
end;

löscht die beiden führenden Hochkommata (gekürzt):
'Dokar=LDP''......