"Dreckige" Zeichenkette bereinigen und kompilierbar machen

[DieDolly]

Das ist leider zuviel für mich! Ich frage viel, werkle viel rum und finde dann mit eurer Hilfe immer irgendeine Lösung, auch wenn meine eigenen oft Frickeleien sind.
Aber das Problem bekomme ich nicht gelöst.

Wie mache ich aus

Code:

p'i

ein

Code:

p''i

(klar, mit StringReplace) aber ohne dabei sowas wie

Code:

X := '123' + '456' + sLineBreak + 'test' + sLineBreak + '.';

oder das erste und letzte

Code:

'

im String zu verändern?

[Andreas13]

Hast Du es mal mit System.AnsiStrings.AnsiQuotedStr probiert?

function AnsiQuotedStr(const S: AnsiString; Quote: AnsiChar): AnsiString; "Wandelt einen String in einen in Anführungszeichen gesetzten String um.

AnsiQuotedStr gibt den gegebenen AnsiString als einen in Anführungszeichen gesetzten AnsiString zurück und verwendet als Anführungszeichen das in Quote angegebene Zeichen. Es wird am Anfang und Ende von AnsiString eingefügt. Sind bereits Anführungszeichen im AnsiString vorhanden, werden diese verdoppelt. Diese Funktion unterstützt Multibyte-Zeichen-AnsiStrings (MBCS).
"

Gruß, Andreas

[DieDolly]

Das funktioniert schonmal gut.
Aber leider macht das aus einem

Code:

x := '123' + sLineBreak + '456';

dann

Code:

x := '123'' + sLineBreak + ''456';

Alle anderen Hochkommas, die auch verdoppelt werden müssen, werden korrekt verdoppelt.

[Delphi.Narium]

Testdatei mit folgendem Inhalt:

Code:

X := '123' + '456' + sLineBreak + 'test' + sLineBreak + '.';
p'i

Pascalscript:

Delphi-Quellcode:

program Test;
var
  i  : Integer;
  sl : tStringList;
  s  : String;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('c:\temp\test.test');
  for i := 0 to sl.Count - 1 do begin
    s := sl[i];
    s := AnsiReplaceStr(s,'''','''''');
    s := AnsiReplaceStr(s,' ''''',' ''');
    s := AnsiReplaceStr(s,''''' ',''' ');
    s := AnsiReplaceStr(s,''''';',''';');
    sl[i] := s;
  end;
  sl.SaveToFile('c:\temp\test.test.neu');
  sl.Free;
end.

Ausgabe:

Code:

X := '123' + '456' + sLineBreak + 'test' + sLineBreak + '.';
p''i

Eventuell als Ansatz zu gebrauchen?

[DieDolly]

Wird schwierig. Nicht alle Strings enden mit einem ';
Manche auch mit <Variable>;
Manchmal kann da auch stehen po' più, also nach dem ' ein Leerzeichen
und all so Sachen.

Ich muss da die Tage nochmal nach gucken.

Ich weiß da echt nicht weiter.

Der Eingabestring muss nicht so aussehen wie meiner in #1. Der kann auch dreckig sein, ohne Leerzeichen vor oder nach einem +.

[Andreas13]

Hi Dolly,
habe noch eine Idee für Dich: Du könntest in jeder Zeile die Anzahl der '-Zeichen zählen: Wenn die Anzahl UNgerade (= Odd) ist, nur dann sollst Du AnsiQuotedStr(..) benutzen. Denn bei geradzahligen '-Zeichen ist (wahrscheinlich) alles OK.
Schwachpunkt: Es könnte allerdings sein, daß eine Zeile zwei falsche Formatierungen hat...
Aber vielleicht bekommst Du den Löwenanteil damit hin und bleiben nur wenige Zeilen für die manuelle Korrektur übrig.

Grüße, Andreas

[DieDolly]

Die Wahrscheinlichkeit, dass das funktioniert, ist leider 50/50.
In Sprachen wie Italienisch und Französisch, kommen sehr viele von diesen ' mitten im Satz vor.
Trotzdem Danke für die Hilfe bis hierher.

Hier bin ich mittlerweile, der Rest später

Delphi-Quellcode:

EndsWithVariable := not S.EndsWith(''';');
S := Copy(S, 2, Length(S) - 2); // ' am Anfang und Ende entfernen

S := AnsiQuotedStr(S, ''''); // alle ' zu ''

S := AnsiReplaceStr(S, '+''', '+ '''); // +' zu + '
S := AnsiReplaceStr(PS, '''+', ''' +'); // '+ zu ' +

S := AnsiReplaceStr(S, ''''' +', ''' +'); // '' + zu ' +
S := AnsiReplaceStr(S, '+ ''''', '+ '''); // + '' zu + '

S := S + IfThen(EndsWithVariable, '', '''') + ';' // ' am Anfang und Ende (falls notwendig) wieder anfügen

[Uwe Raabe]

Zitat von DieDolly:

Aber leider macht das aus einem

Code:

x := '123' + sLineBreak + '456';

dann

Code:

x := '123'' + sLineBreak + ''456';

Kannst du mal den Code zeigen, der aus dem ersten String den zweiten macht?

[himitsu]

Zitat von DieDolly:

Alle anderen Hochkommas, die auch verdoppelt werden müssen, werden korrekt verdoppelt.

Das QuotedStr muß natürlich jeweils auf die einzelnen Strings angewendet werden.

Es implementiert das Verhalten für "einen" Delphi-String, aber nicht für eine Kombination.

[KodeZwerg]

Zitat von DieDolly:

Manchmal kann da auch stehen po' più, also nach dem ' ein Leerzeichen
und all so Sachen.

Ich frage mich an der Stelle, da Du es ja anscheinend für einen Pascal Compiler aufbereiten sollst, was ist das "p'i 'pa po'" ?