bestimmte buchstaben durch bestimme zahlen im string ersetz.

[agm65]

hi leute, ich nochmal...mal ne kurze frage: wie kann ich in einem string bestimmte buchstaben durch bestimmte zahlen ersetzten ?

string:= 'a4c1'

den buchstaben habe ich zahlen zugewiesen zB a = 0 und c =2

ich wollte jetzt einen string repleace durchjagen bei dem ich nacheinander diese buchstaben durch meine zahlen ersetzte.
das geht jedoch immer nur 1mal ?
hat da jemand eine idee ?

Delphi-Quellcode:

temp := (stringreplace(string,'a','0',[rfReplaceAll, rfIgnoreCase]));
temp := (stringreplace(string,'c','2',[rfReplaceAll, rfIgnoreCase]));

1000 dank °!

[sirius]

[Wie wärs mit rfReplaceAll?]
..edit gelesen...

Was bedeutet:

Zitat:

das geht jedoch immer nur 1mal ?

[agm65]

er ignoriert den ersten replace und ersetzt nur das c

[sirius]

Delphi-Quellcode:

temp := (stringreplace(mystring,'a','0',[rfReplaceAll, rfIgnoreCase])); 
temp := (stringreplace(temp,'c','2',[rfReplaceAll, rfIgnoreCase]));

Du solltest vielleicht auch mal die Variable String umbenennen.

[agm65]

sirius, danke dir....dicker denkfehler ! 1000 dank !

[Blackheart]

Delphi-Quellcode:

var temp: string;
begin
  temp:= Memo1.Text;
  temp := StringReplace(temp, 'a', '0', [rfReplaceAll, rfIgnoreCase]);
  temp := StringReplace(temp, 'c', '2', [rfReplaceAll, rfIgnoreCase]);
  Memo1.Text:=temp;
end;

[xaromz]

Hallo,

schneller geht's hiermit.

Gruß
xaromz

[p0w3r5tr34m3r]

noch ne möglichkeit

Delphi-Quellcode:

uses StrUtils;

var
  myString: string;
begin
  myString := 'das ist mein String';
  myString := AnsiReplaceText(myString, 's', '0');
  ShowMessage(myString); // resultat: da0 i0t mein String
end;

Mit freundlichen Grüßen,
Florian