Hallo Zusammen,

ich verzweifele hier noch.

Ich habe eine Datei mit Text, die ich über eine WideStringlist reinlade.
Nun habe ich ein MemoText(Unicode), den ich mittels WideStringReplace ersetzten will.
Also
so:

zusammenfalten · markieren

Delphi-Quellcode:

     if FileExists(IncludeTrailingBackslash(StartPath) + 'PKMailErsetzung\MailErsetzung_' + PKUser + '.mail') then
        begin
          xErsetzung := TStringList.Create;
          xErsetzung.LoadFromFile(IncludeTrailingBackslash(StartPath)
              + 'PKMailErsetzung\MailErsetzung_' + PKUser + '.mail');

          if xErsetzung.Text <> '' then
          begin
            body.Text := WideStringReplace(body.Text, xErsetzung.Text, '', [rfReplaceAll, rfIgnoreCase]);
            showmessage(xErsetzung.Text);
            showmessage(body.Text);
          end;
          xErsetzung.Free;
        end;

Das funktioniert so irgendwie nicht.
Geht das denn nicht, wenn ich Strings mit Strings ersetzten will ????

Achso: ich habe RadStudio 2010

In der Hilfe steht:

Zitat:

WideStringReplace ersetzt im String S die Vorkommen des in OldPattern angegebenen Teilstrings durch den in NewPattern angegebenen Teilstring.
...
Anmerkung: Diese Funktion ist für WideString-Variablen entwickelt. Um die Ersetzung in einem UnicodeString-Kontext auszuführen, verwenden Sie die Funktion StringReplace. Um die Ersetzung in einem AnsiString-Kontext auszuführen, verwenden Sie ebenfalls die Funktion StringReplace.

Anmerkung: Das rekursive Ersetzen von Teilstrings wird nicht unterstützt. Das bedeutet Folgendes: Wenn die Ersetzung von OldPattern eine neue Übereinstimmung für NewPattern ergibt, wird diese Übereinstimmung nicht ersetzt.

Um alle Vorkommen des Teilstrings in dem String zu ersetzen, können Sie auch die Funktionen WideReplaceStr (mit Berücksichtigung der Groß-/Kleinschreibung) oder WideReplaceText (ohne Berücksichtigung der Groß-/Kleinschreibung) verwenden.

Funktioniert es mit einer der genannten Alternativen?

Nein tut es oeider nicht....

Das Problem ist , ich will ne Mail von OL in mein Programm reinladen,
die Signatur soll aber nicht miterscheinen.

Vielleicht hat mir hier noch jemand einen anderen Anhaltspunkt

Zitat von gaisser:

Das funktioniert so irgendwie nicht.

Was funktioniert nicht?
Wenn es einfach nur nich ersetzt wird, dann stimmt wohl der Text nicht überein, was du nur selber prüfen kannst.


Und warum nicht einfach nur StringReplace?
Seit Delphi 2009 ist das schon alles auf Unicode eingestellt.

Das Problem ist das wenn ich in meiner Textdatei

z.B.

Zitat:

Mit freundlichen Grüßen

Der Mann vom Mond

drinn habe, dann habe ich ja ein Carrige Return, das scheint dann aber StringReplace irgendwie zu ignorieren????

Ich kann auch nicht Zeile für Zeile durchgehen, weil der TExt "Mit freundlichen Grüßen" ja in anderer Form vorkommen kann.

Sind das evtl. unterschiedliche Carriage Returns (also nicht #13#10, sondern z.B. UNIX-mäßig nur #10)? In dem Fall hättest Du eben keine exakte Übereinstimmung, weshalb dann auch nicht ersetzt wird. Sollte es wirklich daran liegen, kannst Du ja sichergehen, indem Du zuerst alle #13#10 durch #10, dann alle #13 (CR von MacOS AFAIK) durch #10 ersetzt und anschließend alle #10 durch sLineBreak. Geht es dann mit StringReplace?

Oder beide Strings mal kurz durch eine TStringList jagen, dann werden die Zeilenumbrüche auch angepaßt.