Text im Memo-Feld ersetzen

[magoo2002de]

Hallo,
kann mir bitte einer erklären, wie ich folgende Sache am besten lösen kann:
Ich habe eine Memo-Feld, in dem ein beliebiger Text steht. Jetzt habe ich eine Datei in der Text im folgenden Format steht:

Code:

te1=Text1
te2=Text2
te3=Text3

Wie kann ich den Text im Memofeld nach den Zeichen vor dem Gleichheitszeichen (te1, te2, te3) durchsuchen und wenn der Text gefunden wurde durch den Text hinter dem Gleichheitszeichen (Text1, Text2, Text3) ersetzen?

Vielen Dank für eure Hilfe!

[Alexander]

Also du sprichst wenn z.B. te1 in Text 1 geändert werden soll, gleich Line 0 an (teX ist Linie X-1) und änderst. Hierbei mal nach POS, Copy, Delete suchen.
Oder aber du suchst gleich nach ersetzen oder so was. Auc ein Blick in die OH kann nicht schaden

[Delphianer]

Hallo,

einfache Lösung:

Memo1.Text = StringReplace(Memo1.Text, 'te', 'Text', [rfReplaceAll, rfIgnoreCase]); Viele Grüße,

Delphianer

[Christian Seehase]

Moin Magoo,

schau Dir auf jeden Fall auch mal die Eigenschaft Values von TStrings bzw. TStringList an. Für eine Datei mit dem Aufbau name=wert könnte das hilfreich sein.

Wenn Du nicht gerade zeilenübergreifend suchen musst, wäre es wahrscheinlich schneller das Memo mit alexanders Methode zu durchsuchen.
Die Eigenschaft Text sollte man möglichst nicht verwenden, da sie immer erst aus den Zeilen aufgebaut, bzw. wieder auf die Zeilen aufgeteilt wird.

[anku]

vielleicht meinst du es so:

Delphi-Quellcode:

for i:=0 to Memo1.Lines.Count-1 do
Memo1.Lines[i]:= copy( Memo1.Lines[i], Pos( '=', Memo1.Lines[i])+1, Length( Memo1.Lines[i])-Pos( '=', Memo1.Lines[i])-1)+ copy( Memo1.Lines[i], Pos( '=', Memo1.Lines[i]), Length( Memo1.Lines[i])-Pos( '=', Memo1.Lines[i]));

das sieht nun erstmal wüst aus.. mit hilfe vom debugger und der delphi hilfe sollte es aber verständlich sein. ansonsten frag nach

mfg

Edit:

das sieht echt krass aus.. mal ein bissel aufdröseln, zum verständnis..

Delphi-Quellcode:

var StringNachDemGleich, StringAbDemGleich: String;
    i: Integer;
for i:=0 to Memo1.Lines.Count-1 do
begin
   StringNachDemGleich:= copy( Memo1.Lines[i], Pos( '=', Memo1.Lines[i])+1, Length( Memo1.Lines[i])-Pos( '=', Memo1.Lines[i])-1);
   StringAbDemGleich:= copy( Memo1.Lines[i], Pos( '=', Memo1.Lines[i]), Length( Memo1.Lines[i])-Pos( '=', Memo1.Lines[i]));
  Memo1.Lines[i]:= StringNachDemGleich+StringAbDemGleich;
end;

[magoo2002de]

WOW, Vielen Dank für eure Hilfe.
Ich werde es gleich mal ausprobieren...

[magoo2002de]

Also mit diesem copy und Pos und so komme ich einfach nicht klar...

Wie bekomme ich denn den Text vor dem Gleichheitszeichen heraus? Mit der Lösung von anku bekomme Text1 und =Text1 heraus. Ich möchte aber das te1 und Text1 heraus kommt.

Es wäre echt nett wenn mir das einer posten könnte.

@anku: Trotzdem vielen Dank!

[sakura]

Versuche mal:

Delphi-Quellcode:

with Memo1.Lines do
  for I := 0 to Pred(Count) do
  begin
    ShowMessage('Teil 1: ' + Names[I]);
    ShowMessage('Teil 2: ' + Values[Names[I]]);
  end;

......

[magoo2002de]

@ sakura:
Super, so funktioniert es wunderbar. Genauso wollte ich es haben. Vielen Dank.

[sakura]

Wenn man weiß was Du willst Kein Problem, ich habe doch gerne geholfen Übrigens, diese Lösung solltest Du nur für recht "kleine" Listen mit z.B. weniger als 1000 Einträgen nutzen, damit es performant bleibt. Dann aber ist die genau richtig.

Hinweis: Der Teil vor dem "=" ist case-insensitive.

......