StringReplace und seine Tücken

[Catbytes]

Hallo,

benötigt werden 2 Memo-Felder und ein Button.

Dazu folgender Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  s: string;
begin
  Memo1.Clear;
  Memo1.Lines.Add('Mustermann GmbH & Co. KG');
  Memo1.Lines.Add('');
  Memo1.Lines.Add('Täler, Wälder; all das ist Natur & schön.');
  Memo2.Clear;
  for i := 0 to (Memo1.Lines.Count - 1) do
  begin
    s := StringReplace(Memo1.Lines[i], '&', '& # 3 8 ;', [rfReplaceAll]);
    s := StringReplace(s, ';', '& # 5 9 ;', [rfReplaceAll]);
    s := StringReplace(s, 'ä', '& # 2 2 8 ;', [rfReplaceAll]);
    Memo2.Lines.Add(s);
  end;
end;

^^^Edit: Leerzeichen oben bei den ISO-Codes wegdenken - Der Editor hier übersetzt das als Zeichen!

Das Problem:
Wenn StringReplace nun auf das &-Zeichen trifft, wird es korrekt übersetzt. Gleichzeitig wird aber auch geprüft, ob das Semikolon ( ; ) vorkommt - das wird ja aber schon mit dem Umsetzen vom &-Zeichen miterzeugt.

Er schreib dann:
Mustermann GmbH & # 3 8 & # 5 9 ; Co. KG (denkt euch die Leerzeichen weg, sonst interpretiert dies der Editor als Sonderzeichen).

Ich wollte diese Tabelle nutzen, um einen ISO-8859-1-Konverter zu basteln, den ich für eine XML-Datei brauche.

Hat jemand eine Idee, wie ich dieses rekursive verhalten von StringReplace umgehen kann?

[Jelly]

Zitat:

Zitat von Catbytes

Gleichzeitig wird aber auch geprüft, ob das Semikolon ( ; ) vorkommt - das wird ja aber schon mit dem Umsetzen vom &-Zeichen miterzeugt.

Wie miterzeugt :gruebel:

Ich versteh deinen Code nicht, oder viel mehr was der machen SOLL. Du ersetzt ein & durch ein & Was soll das denn werden?[/quote]

Ausserdem, anstatt jede einzelne Zeile deines Memo1 zu durchlaufen, kannst du auch gleich so verfahren:

Delphi-Quellcode:

memo2.lines.text := StringReplace (memo1.lines.text,'&','&',[rfReplaceAll]) ;

[Jasocul]

Ich sehe da nix Rekursives.
Du machst erst ein StringReplace, wodurch du ein Semikolon einfügst.
Danach machst du ein weiteres StringReplace, wo du das Semikolon durch etwas anderes ersetzt.

Was erwartest du denn? Dass deine zweite Umwandlung deine erste vernachlässigt?
Nimm doch eine andere Reihenfolge.

[Catbytes]

Zitat:

Zitat von Jelly

Ich versteh deinen Code nicht, oder viel mehr was der machen SOLL. Du ersetzt ein & durch ein & Was soll das denn werden?

Sorry - habs zu spät gemerkt. Beachte mein Edit. Es soll der ISO-Code erzeugt werden - das hat der Editor gleich als Zeichen übersetzt :?

Zitat:

Zitat von Jelly

Ausserdem, anstatt jede einzelne Zeile deines Memo1 zu durchlaufen, kannst du auch gleich so verfahren:

Delphi-Quellcode:

memo2.lines.text := StringReplace (memo1.lines.text,'&','&',[rfReplaceAll]) ;

Klar - ich muß es aber so machen, weil da noch jede Menge Code dazwischensteht, wo ich Zugriff auf die einzelne Zeile eines Memos brauche.

Aber auch ein:

Delphi-Quellcode:

  memo2.lines.text := StringReplace (memo1.lines.text,'&','& # 3 8 ;',[rfReplaceAll]) ;
  memo2.lines.text := StringReplace (memo2.lines.text,';','& # 5 9 ;',[rfReplaceAll]) ;
  memo2.lines.text := StringReplace (memo2.lines.text,'ä','& # 2 2 8;',[rfReplaceAll]) ;

(^^^^Leerzeichen bei den ISO-Codes wegdenken!)

ändert daran nichts - es wird "falsch" übersetzt.

[Catbytes]

Zitat:

Zitat von Jasocul

Ich sehe da nix Rekursives.
Du machst erst ein StringReplace, wodurch du ein Semikolon einfügst.
Danach machst du ein weiteres StringReplace, wo du das Semikolon durch etwas anderes ersetzt.

Was erwartest du denn? Dass deine zweite Umwandlung deine erste vernachlässigt?
Nimm doch eine andere Reihenfolge.

Geanu das erwarte ich (von einem Computer) :mrgreen:

Ich bräuchte quasi eine Funktion, wo ich die zu suchenden und zu übersetzenden Tags z.B. als Array angeben kann, damit er mehrere auf einmal sucht und ersetzt.

[Daniel Schuhmann]

Genau, in der richtigen Reihenfolge ist es kein Problem. Wenn Du zuerst das & ersetzt, paßt doch alles.

Delphi-Quellcode:

var
  S: String;
begin
  S := 'Hallöchen ältere Leute & Übrige Leser mit schönen Büchern';
  S := StringReplace(S, '&', '"', [rfReplaceAll]);
  S := StringReplace(S, 'ä', 'ä', [rfReplaceAll]);
  S := StringReplace(S, 'ö', 'ö', [rfReplaceAll]);
  S := StringReplace(S, 'ü', 'ü', [rfReplaceAll]);
  S := StringReplace(S, 'Ä', 'Ä', [rfReplaceAll]);
  S := StringReplace(S, 'Ö', 'Ö', [rfReplaceAll]);
  S := StringReplace(S, 'Ü', 'Ü', [rfReplaceAll]);
  ShowMessage(S);
end;

Ich weiß, der Satz ist schwachsinnig, aber dadurch kommen ein paar Umlaute vor...

Problematisch ist es, wenn Du den geänderten Text durch ShowMessage anzeigen läßt, hier scheinen die &-Zeichen verschwunden zu sein (in Wirklichkeit werden sie nur nicht angezeigt, weil sie zur Kodierung der unterstrichenen Buchstaben verwendet werden).

[Catbytes]

Zitat:

Zitat von Daniel Schuhmann

Genau, in der richtigen Reihenfolge ist es kein Problem. Wenn Du zuerst das & ersetzt, paßt doch alles.

Genau das mache ich doch - oben im Quellcode beginne ich ja mit dem &-Zeichen ;)

Aber auch da habe ich schon rumgebastelt und Dinge getauscht - mit dem Ergebnis, daß es dann an anderen Stellen "falsch" ist.

Ich will mir gar nicht vorstellen, was passiert, wenn ich noch das #-Zeichen übersetzen möchte... :?

Zitat:

Zitat von Daniel Schuhmann

Problematisch ist es, wenn Du den geänderten Text durch ShowMessage anzeigen läßt, hier scheinen die &-Zeichen verschwunden zu sein (in Wirklichkeit werden sie nur nicht angezeigt, weil sie zur Kodierung der unterstrichenen Buchstaben verwendet werden).

Das wäre nicht mein Problem, weil die XML-Datei später bei einem Kunden eingelesen wird - wie der sein System konfiguriert hat (SAP-EPB) ist nicht mein Bier.

[diComm]

Zitat:

Genau, in der richtigen Reihenfolge ist es kein Problem. Wenn Du zuerst das & ersetzt, paßt doch alles.

Naja, wohl nicht ganz, denn du hast das ";" vergessen, das er auch noch ersetzen will.

@ Catbytes
Du könntest zuerst das ; ersetzen und dann in einem IF zuerst prüfen, ob auf das & ein # folgt bevor du das & ersetzt. vielleicht etwas aufwändig, aber so könnte es gehen...

[Jasocul]

Ersetze zuerst das "#" und das ";". Danach machst du den Rest.

[diComm]

Zitat:

Ersetze zuerst das "#" und das ";". Danach machst du den Rest.

wenn er zuerst das ; durch "& # 5 9;" ersetzt und anschlissend noch das & durch "& # 3 8;" wird auch das nicht klappen, das gibt dann ""& # 3 8; # 5 9; "