Ausfüllen von Lücken in einem langen Text?

**shmia**

Geh' nochmal in Dich und versuche eine Beschreibung zu liefern was der Benutzer am Bildschirm sieht und was das Programm tun soll.

Du hast geschrieben "vorgeschrieben (Lücken-)Text"; willst du also so eine Art Textgenerator programmieren?

Wenn das die Textvorlage ist:

markieren

Code:

			Hallo $user$,

heute ist der $Datum$ und wir haben $Temp$ Aussentemperatur.

Gruß $Absender$

Dann könnte man z.B. alle Variablen zwischen den $-Zeichen durch jeweils ein Editfeld ersetzen.
Wie wäre das?

**Haris2201**

Zitat von shmia:

Geh' nochmal in Dich und versuche eine Beschreibung zu liefern was der Benutzer am
Dann könnte man z.B. alle Variablen zwischen den $-Zeichen durch jeweils ein Editfeld ersetzen.
Wie wäre das?

Garnicht mal so schlecht...
Wie würde dass denn dann aussehen?

Aber ich denke eher an so was wie oben beschrieben.
Gibt es nicht so was wie var i : string; und dann i.line1:='...', i.line2:='...', ... usw?

Um genau zu sein will ich ungefär so was machen:
<html>
<head>
<title>Edit1.Text</title>
</head>
</html>

Jedoch ist es wichtig, zu wissen, dass in diesem Code mehrere ' drin vorkommen, also wenn mann dann so was machen will:

var i : string;
i:='<title>'+Edit1+'</title>';

geht das nicht, weil z.B. der Code sowas hat:

<title='das ist nur ein example, das gibts in echt nicht'>

dan beendet Delphi den inhalt ab dem ersten ' bei dem HTML-Quellcode.

Ich weiss, dass ich mich nicht richtig ausdrücken kann, sry.

**mkinzler**

Ich würde "Textmarken" im Text setzen, und diese dann durch die Werte ersetzen lassen.

markieren

Code:

			...

Name: $Name$

...

**Haris2201**

Zitat von mkinzler:

Ich würde "Textmarken" im Text setzen, und diese dann durch die Werte ersetzen lassen.

markieren

Code:

			...

Name: $Name$

...

Ja, dass ist glaube ich gut.
Aber:
Wo soll ich den Text dann hinschreiben?

Dazu muss ich sagen, dass ich erst seit 1 Monat mit Delphi arbeite.

Könntest du mal ein Beispiel posten?

**stahli**

Schau Dir mal in der Hilfe "StringReplace" an, das sollte Dir weiter helfen...

**Haris2201**

Sry,
bei mir kommt von windows ein error.
Kannst du mir das mal erklaeren?
Ich versteh das nicht.

**Bummi**

Code schicken, Fehlermeldung schicken ...

**himitsu**

markieren

Delphi-Quellcode:

			MeinText := 'Hallo $User$,' + sLineBreak

  + 'heute ist der $Datum$ und wir haben $Temp$° Aussentemperatur.' + sLineBreak

  + 'Gruß $Absender$';

S := MeinText;

S := StringReplace(S, '$User$', Edit1.Text, []);

...

S := StringReplace(S, '$Temp$', IntToStr(DieTemperatur), []);

...

Und um die Verwirrung komplett zu machen, werfe ich mal einen Befehl in die Runde:
Delphi-Referenz durchsuchen

Format

markieren

Delphi-Quellcode:

			MeinText := 'Hallo %s,' + sLineBreak

  + 'heute ist der %s und wir haben %d° Aussentemperatur.' + sLineBreak

  + 'Gruß %s';

S := Format(MeinText, [Edit1.Text, DateToStr(Now), DieTemperatur, Edit2.Text]);

Oder wie wäre es mit einem TValueListEditor, statt der vielen Edits?

markieren

Delphi-Quellcode:

			s := DerText;

for i := 0 to ValueListEditor1.RowCount - 1 do

  s := StringReplace(s, '$' + ValueListEditor1.Cells[0, i] + '$',

    ValueListEditor1.Cells[1, i], [rfReplaceAll, rfIgnoreCase]);

Memo1.Text := s;

**Haris2201**

Bei mir werden die variablen im Text nicht geändert...

Zitat:

var
s : string;
const conf='...&test&..'
+'...&lol&..'
.
.
.
s := conf;
S := StringReplace(S, '$test$', Edit2.Text, []);
S := StringReplace(S, '$lol$', Edit1.Text, []);

Zum Überprüfen habe ich einen Button namens Debug erstellt.
Der geht so
begin
showmessage(const);
end;

Jedoch kommt da nur mein Text mit ...&lol... und so, ohne die eingaben aus edit1.text.
Wieso ist das so??

**DeddyH**

&test& ist ja auch etwas anderes als $test$.

Ausfüllen von Lücken in einem langen Text?

AW: Formular

AW: Formular

AW: Formular

AW: Formular

AW: Formular

AW: Formular

AW: Formular

AW: Formular

AW: Ausfüllen von Lücken in einem langen Text?

AW: Ausfüllen von Lücken in einem langen Text?

Forumregeln

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.869 Beiträge Delphi 11 Alexandria	#3 AW: Formular 2. Dez 2010, 19:11 Ich würde "Textmarken" im Text setzen, und diese dann durch die Werte ersetzen lassen. markieren Code: ... Name: $Name$ ... Markus Kinzler
	Zitat

Haris2201 Registriert seit: 30. Sep 2010 31 Beiträge Delphi 7 Enterprise	#4 AW: Formular 2. Dez 2010, 19:15 Zitat von mkinzler: Ich würde "Textmarken" im Text setzen, und diese dann durch die Werte ersetzen lassen. markieren Code: ... Name: $Name$ ... Ja, dass ist glaube ich gut. Aber: Wo soll ich den Text dann hinschreiben? Dazu muss ich sagen, dass ich erst seit 1 Monat mit Delphi arbeite. Könntest du mal ein Beispiel posten?
	Zitat

stahli Registriert seit: 26. Nov 2003 Ort: Halle/Saale 4.352 Beiträge Delphi 11 Alexandria	#5 AW: Formular 2. Dez 2010, 19:27 Schau Dir mal in der Hilfe "StringReplace" an, das sollte Dir weiter helfen... Stahli http://www.StahliSoft.de --- "Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
	Zitat

Haris2201 Registriert seit: 30. Sep 2010 31 Beiträge Delphi 7 Enterprise	#6 AW: Formular 2. Dez 2010, 20:22 Sry, bei mir kommt von windows ein error. Kannst du mir das mal erklaeren? Ich versteh das nicht.
	Zitat

Bummi Registriert seit: 15. Jun 2010 Ort: Augsburg Bayern Süddeutschland 3.470 Beiträge Delphi XE3 Enterprise	#7 AW: Formular 2. Dez 2010, 20:26 Code schicken, Fehlermeldung schicken ... Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren DRY DRY KISS H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.656 Beiträge Delphi 12 Athens	#10 AW: Ausfüllen von Lücken in einem langen Text? 3. Dez 2010, 15:37 &test& ist ja auch etwas anderes als $test$. Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat