StringReplace und seine Tücken

[Catbytes]

Zitat:

Zitat von Jasocul

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

Okay...

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 5 ;', [rfReplaceAll]);
    s := StringReplace(s, ';', '& # 5 9 ;', [rfReplaceAll]);
    s := StringReplace(s, '&', '& # 3 8 ;', [rfReplaceAll]);
    s := StringReplace(s, 'ä', '& # 2 2 8 ;', [rfReplaceAll]);
    Memo2.Lines.Add(s);
  end;
end;

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

Ergibt:

Mustermann GmbH & # 3 8 ; Co. KG

T& # 2 2 8 ;ler, W& # 2 2 8 ;lder& # 3 8 ; # 5 9 ; all das & # 3 8 ; # 3 5 & # 3 8 ; # 5 9 ; ist Natur & # 3 8 ; schön.

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


:cry:


Edit: diComm war schneller :P

[Daniel Schuhmann]

Muss das ; überhaupt ersetzt werden? Das ist doch im normalen Zeichenvorrat drin.

[Catbytes]

Zitat:

Zitat von Daniel Schuhmann

Muss das ; überhaupt ersetzt werden? Das ist doch im normalen Zeichenvorrat drin.

Leider ja - Kunde besteht auf vollständige ISO-Konvertierung...

[Jasocul]

@Catbytes:
Ein bisschen mehr Fantasie. Erst das ";" und dann das"#". :zwinker:

[GuenterS]

Zitat:

Zitat von 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?

Gleichzeitig ist falsch, es wird danach überprüft ob ein ';' vorkommt --> Das was es liefert ist korrekt, es liegt nur an Deiner Implementierung.

[Catbytes]

Zitat:

Zitat von Jasocul

@Catbytes:
Ein bisschen mehr Fantasie. Erst das ";" und dann das"#". :zwinker:

Okay:

Delphi-Quellcode:

    s := StringReplace(Memo1.Lines[i], ';', ';', [rfReplaceAll]);
    s := StringReplace(s, '#', '#', [rfReplaceAll]);
    s := StringReplace(s, '&', '&', [rfReplaceAll]);
    s := StringReplace(s, 'ä', 'ä', [rfReplaceAll]);

Ergibt:

Mustermann GmbH & # 3 8 ; Co. KG

T& # 2 2 8 ;ler, W& # 2 2 8 ;lder& # 3 8 ; & # 3 8 ; # 3 5 ; 5 9; all das & # 3 8 ; # 3 5; ist Natur & # 3 8 ; schön.

:cry:

Zitat:

Zitat von Jasocul

Man muss die Ursache beheben und nicht die Symptome.

:-D

Trotzdem danke für die Tipps. Egal wie ich es drehe und wende: eine Sache wird immer "falsch" ersetzt.

Noch andere Ideen?

[Catbytes]

Zitat:

Zitat von GuenterS

Gleichzeitig ist falsch, es wird danach überprüft ob ein ';' vorkommt -->

Das stimmt.

Zitat:

Zitat von GuenterS

Das was es liefert ist korrekt, es liegt nur an Deiner Implementierung.

Deshalb habe ich das Wort "falsch" immer in Anführungszeichen geschrieben. Delphi macht schon was ich ihm sage, aber für mein Problem ist es entweder nicht der richtige Befehl, oder ich muß einen anderen Ansatz wählen. Hast du eine Idee für eine "richtige Implementierung"? Ich nutze auch gerne Befehle außerhalb der Delphi-Sprache (JCL o.ä.).

[GuenterS]

Aber etwas zu Deinem Problem ...

Was hindert dich daran eine zweite Stringlist zu verwenden, wo Du das konvertierte reinschreibst?

Ich stell mir das so vor:

Du gehst Dein Memo zeichen für Zeichen durch und schreibst das konvertierte in die neue Stringlist, dann ist es ziemlich egal, welche Reihenfolge du verwendest.

[Jasocul]

Mist. Habe "&" nicht bedacht.
Ich denke der Weg von GuenterS ist die sinnvollste Möglichkeit, falls es nicht noch ein spezielle Konvertierungsfunktion dafür gibt.

[GuenterS]

Zitat:

Zitat von Jasocul

Mist. Habe "&" nicht bedacht.
Ich denke der Weg von GuenterS ist die sinnvollste Möglichkeit, falls es nicht noch ein spezielle Konvertierungsfunktion dafür gibt.

Man könnte natürlich auch das gleiche Memo verwenden und dieses Zeichenweise durchgehen. Trifft man auf etwas zu konvertierendes, ersetzt man dieses Zeichens durch den Code und setzt die Position für das nächste zu prüfende Zeichen auf die Stelle nach dem eingefügten. Dann ist auch wieder die Reihenfolge egal. Zudem würden Ressourcen gespart.