"Dreckige" Zeichenkette bereinigen und kompilierbar machen

[Delphi.Narium]

Tippe mal darauf, dass es sich um Quelltexte handelt, bei denen innerhalb von Zeichenfolgen bei 'nem ' das zweite ' fehlt, um einen korrekten Quelltext zu erhalten.

Delphi-Quellcode:

  if (Stringvariabel = 'a''a') then  // <- müsste sein
  if (Stringvariabel = 'a'a') then  // <- aber enthalten ist

aus demhier

Delphi-Quellcode:

  sQuelltext := 'Quelltext';
  s1 := 'Tippe mal darauf, ';
  s2 := 'dass es sich um ' + sQuelltext + 'e handelt, ';
  s3 := 'bei denen innerhalb von Zeichenfolgen '
  s4 := 'bei 'nem ' das zweite ' fehlt, ';
  s5 := 'um einen korrekten ' + sQuelltext + ' zu erhalten.';
  ShowMessage(s1 + s2 + s3 + s4 + s5);

soll dashier

Delphi-Quellcode:

  sQuelltext := 'Quelltext';
  s1 := 'Tippe mal darauf, ';
  s2 := 'dass es sich um ' + sQuelltext + 'e handelt, ';
  s3 := 'bei denen innerhalb von Zeichenfolgen '
  s4 := 'bei ''nem '' das zweite '' fehlt, ';
  s5 := 'um einen korrekten ' + sQuelltext + ' zu erhalten.';
  ShowMessage(s1 + s2 + s3 + s4 + s5);

werden.

Und das Ganze quasi für beliebige Quelltexte.

Und wie wir sehen, hat die Syntaxhervorhebung hier im Forum mit dem "Original" auch so ihre Probleme ;-)

[DieDolly]

Ich hole Strings aus einer Datei raus und packe sie in eine pas-Datei. In der Pas-Datei sind Dummy-Texte, die mit dem jeweiligen String der da hingehört ersetzt wird.
Das funktioniert seit vielen Monaten ohne Probleme.

Aber die Strings die ich aus der Uresprungsdatei raushole, können italienisch, französisch oder sonst was sein. Diese Sprachen haben oft ein ' irgendwo.
Die Strings können aber auch + sLinebreak + und sowas erhalten. Deswegen ist ein "einfach alle ' durch '' ersetzen" nicht möglich.

[Blup]

Ich würde damit anfangen die Bedingug klar zu definieren und Testfälle aufzustellen.
Ist die Bedingung unvollständig oder falsch, kann auch das Ergebnis nicht in jedem Fall richtig sein.

Bedingung:
Im Text tritt diese Zeichenfolge auf:
[Buchstabe oder Ziffer][Hochkomma][beliebige Anzahl Leerzeichen(oder kein Leerzeichen)][Buchtstabe oder Ziffer]

Wenn Bedingung zutrifft, ersetze das Hochkomma durch zwei Hochkomma.
Die Bedingung kann an mehreren Stellen im Text auftreten.

Delphi-Quellcode:

uses
  StrUtils, WideStrUtils;

function IsBuchstabeOderZiffer(AValue: Char): Boolean;
begin
  Result := CharInSet(AValue, ['a'..'z', 'A'..'Z', '0'..'9']) or
            InOpArray(AValue, ['ä', 'ö', 'ü', 'Ä', 'Ö', 'Ü']);
end;

function HochkommaErgaenzen(const AValue: string): string;
const
  HOCHKOMMA = '''';
  SPACE = ' ';
var
  n1, n2, n3: Integer;
  c: Char;
begin
  Result := '';
  for n1 := 1 to Length(AValue) do
  begin
    c := AValue[n1];
    Result := Result + c;
    if IsBuchstabeOderZiffer(c) then
    begin
      {Hochkomma nach Buchstabe?}
      n2 := n1 + 1;
      if n2 <= Length(AValue) then
      begin
        c := AValue[n2];
        if c = HOCHKOMMA then
        begin
          {Leerzeichen nach Hochkomma überspringen}
          n3 := n2;
          repeat
            n3 := n3 + 1;
            if n3 <= Length(AValue) then
              c := AValue[n3]
            else
              c := #0;
          until c <> SPACE;
          {Buchstabe folgt Hochkomma (eventuelle nach Leerzeichen)}
          if IsBuchstabeOderZiffer(c) then
            Result := Result + HOCHKOMMA;
        end;
      end;
    end;
  end;
end;