in text datei bestimmte dinge ersetzen....

[Freecer]

HellO!

Wie ihr seht bin ich recht neue und ich hoffe ich hab es ins richtige forum gepostet!!

Habe nichts in der art gefunden das mir helfen konnte daher poste ich mal hier,

Also ich habe folgendes Problem, Ich möchte eine "layout" datei haben die sagen wir

den inhalt hat:

"Hallo %1 !"

Nun da is mein problem wie ersetze ich das "%1" durch den namen den ich in mein edit feld eingegeben habe und speichere das ersetzte in einer neuen datei???

Were für eine hilfe sehr dankbar!!! DANKE!

mfg.

[MrKnogge]

Delphi-Quellcode:

BeispielString := 'Hallo ' + Edit1.Text;

anschliesend, würde ich es mit writeln inne Textdatei schreiben.

gruss :hello:

[eXOs]

Hallo,

soll das "Hallo %1" ausgegeben werden nachdem du einen Button gedrückt hast? Wo soll das "Hallo %1" ausgegeben werden? in einem Lable? Wenn ja, dann einfach Button doppelklicken und folgenden Quelltext: (wir nehmen mal an: Edit1, und Lable1)

Lable1.Caption:= 'Hallo ' + Edit1.Text + ' ! ';

Denke das müsste es sein!

[Freecer]

Super danke für die schnellen antworten, Aber ich hab das nicht ganz so toll erklärt glaub ich ...

Ich will eine text datei die eben den text drinen hat und dort wo immer verschiedene sachen sind also name adresse und co stehen strings mit %name, %adresse, ....

und ich will jetzt 2 edit felder haben einen button, ich fülle feld a mit dem namen und edit b mit der adresse aus dann drücke ich den button und will das er die datei unter text2.txt speichert.....

[MrKnogge]

Zitat:

Zitat von eXOs

Hallo,

soll das "Hallo %1" ausgegeben werden nachdem du einen Button gedrückt hast? Wo soll das "Hallo %1" ausgegeben werden?

Er wills in ne Datei schreiben.

[eXOs]

:oops: Hätte mal genau lesen sollen.

Wenn ich das jetzt richtig verstanden habe, ist der text fertig und an den Stellen wo der name und so hin soll, willst du jetzt über deine Edit-Felder den Text ändern von %name auf z.B. Hans?

[Freecer]

Zitat:

Zitat von eXOs

:oops: Hätte mal genau lesen sollen.

Wenn ich das jetzt richtig verstanden habe, ist der text fertig und an den Stellen wo der name und so hin soll, willst du jetzt über deine Edit-Felder den Text ändern von %name auf z.B. Hans?

Ja genau....

Habe seit tagen das web nach ner lösung abgeklappert aber nichts gefunden :(

[eXOs]

Sorry, kann ich net viel zu sagen.

Theoretisch ne Suchfunktion für den Text aber wie? weis ich au net!

[Sharky]

Hai Freecer,

ersteinmal herzlichen Willkomen im Delphi-Forum. So, jetzt zu deinem Problem.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 myStringlist: TStringList;
 ndx: Integer;
 tmp_string  : String;
begin
 myStringlist := TStringList.Create;
 try
  myStringlist.LoadFromFile('c:\layout.txt');
  for ndx := 0 to myStringlist.Count-1 do
   begin
    tmp_string := myStringlist.Strings[ndx];
    tmp_string := StringReplace(tmp_string,'%1',Edit1.Text, []);
    myStringlist.Strings[ndx] := tmp_string;
   end;
  myStringlist.SaveToFile('c:\ausgabe.txt');
 finally
  myStringlist.Free;
 end;
end;

Sollte eigentlich gehen. Bei Fragen -> Frage.

[himitsu]

Schau mal in die OH unter FmtStr und Format-Strings.

Delphi-Quellcode:

Var S, Name: String

FmtStr(S, 'Hallo %s !', Name);

Label1.Caption := S;

[Freecer]

Zitat:

Zitat von Sharky

Hai Freecer,

ersteinmal herzlichen Willkomen im Delphi-Forum. So, jetzt zu deinem Problem.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 myStringlist: TStringList;
 ndx: Integer;
 tmp_string  : String;
begin
 myStringlist := TStringList.Create;
 try
  myStringlist.LoadFromFile('c:\layout.txt');
  for ndx := 0 to myStringlist.Count-1 do
   begin
    tmp_string := myStringlist.Strings[ndx];
    tmp_string := StringReplace(tmp_string,'%1',Edit1.Text, []);
    myStringlist.Strings[ndx] := tmp_string;
   end;
  myStringlist.SaveToFile('c:\ausgabe.txt');
 finally
  myStringlist.Free;
 end;
end;

Sollte eigentlich gehen. Bei Fragen -> Frage.

Genau das!

--> werde es mal versuchen vielen dank! :DDD

mfg.

[Freecer]

OK geht alles SUPER!

Nur ich hab jetzt auch noch n memo feld und das muckt nun herrum....

Delphi-Quellcode:

    tmp_string := StringReplace(tmp_string,'%rev',Memo1.Lines, []);

was stimmt da nicht?

BZW. wieso geht das nicht hat da jemand ne antwort parat?? Hab schon herrum getestet aber es will einfach nicht....

[Treffnix]

Memo1.Lines ist kein String sondern ein TStrings-Objekt

Versuchs mit Memo1.Lines.Text für den gesamten Text oder mit Memo1.Lines[integer] für eine bestimmte Zeile

[Sharky]

Hai Freecer,

was genau soll denn aus dem Memofeld genommen werden? Eine Zeile, der gesamte Text, nur der markierte Text?

[Freecer]

Der ganze text, SUPER BIG THX! Es funktioniert einwandfrei dieses board gefällt mir! :D

--> Bin ab jetzt stamm besucher bei euch :)

Find ich echt klass!

THX nochmal! :hello:

[Daniel B]

Zitat:

Zitat von Sharky

ersteinmal herzlichen Willkomen im Delphi-Forum.

*pfui* Ordentlich auf die Flosse hau und für 6 Stunden mit der anderen Flosse an Schiffsrad bind! :tongue:

[Sharky]

Zitat:

Zitat von Daniel B

Zitat:

Zitat von Sharky

ersteinmal herzlichen Willkomen im Delphi-Forum.

*pfui* Ordentlich auf die Flosse hau und für 6 Stunden mit der anderen Flosse an Schiffsrad bind! :tongue:

:oops: :oops:

Ich werde 20 Delphi-Praxis Gebete sprechen und spende freiwillig 100 Bit in die Kasse.

[Treffnix]

Zitat:

Ich werde 20 Delphi-Praxis Gebete sprechen und spende freiwillig 100 Bit in die Kasse.

100 Bit? Bin dabei! :cheers: