Memo bestimmte Zeichen löschen

[strom]

hallo,

möchte gerne im Memo bestimmte Zeichenkette löschen!

"<message>Hier steht ein Text</message>"

Möchte jetzt gerne "<message> </message>" löschen! Egal wie viele Zeichen dazwischen stehen.

[Perlsau]

Und worin besteht dabei das Problem? Daß du nicht weißt, wie man auf den Memo-Text zugreift? Oder daß du nicht weißt, wie man eine bestimmte Zeichenfolge im Memo-Text löscht?

Es gibt zwei StringReplace-Methoden, einmal für AnsiStrings und einmal für Unicode (ab Delphi 2009). Daher wäre es auch extrem hilfreich, wenn du deine verwendete Delphi-Version angeben würdest, am besten in deinem Profil, dann erscheint das auch immer unter deinem Avatar.

[Jumpy]

Zitat von strom:

Möchte jetzt gerne "<message> </message>" löschen! Egal wie viele Zeichen dazwischen stehen.

Möchtest du jetzt nur die beiden Tags löschen (dann sollten Perlsau's Links weiterhelfen) oder auch das, was dazwischen steht?

[DeddyH]

Reguläre Ausdrücke wären vielleicht auch eine Option.

[strom]

hallo perlsau

Danke für Deine Hilfe!

Könnte das gehen?

Memo1.Lines[1]:= StringReplace(Memo1.Lines.Strings[-1], '</message>', '', [rfReplaceAll, rfIgnoreCase]);

[DeddyH]

Zitat:

Memo1.Lines.Strings[-1]

Worauf willst Du denn da zugreifen? Ich würde mir den kompletten Text in einer Variablen zwischenspeichern, diese dann bearbeiten und zum Schluss im Ganzen wieder zurückschreiben. Aus dem Kopf:

Delphi-Quellcode:

var
  MemoText: string;
begin
  MemoText := Memo1.Lines.Text;
  MemoText := StringReplace(MemoText, '<message>', '', [rfReplaceAll, rfIgnoreCase]);
  MemoText := StringReplace(MemoText, '</message>', '', [rfReplaceAll, rfIgnoreCase]);
  // usw.
  Memo1.Lines.Text := MemoText;
end;

[strom]

hallo deddyH,

hast recht, werde es mal testen!

Danke

[Perlsau]

Zitat von strom:

hallo perlsau

Danke für Deine Hilfe!

Könnte das gehen?

Memo1.Lines[1]:= StringReplace(Memo1.Lines.Strings[-1], '</message>', '', [rfReplaceAll, rfIgnoreCase]);

Probier's doch einfach mal aus