pos, posex, finden von Text

**theomega**

Hallo Leute
ich habe in einem String einen Text wie:

Code:

			<html>

<body bgcolor="{style[bgcolor]}">

Hallo {name}, wilkommen auf {page}

</body>

</html>

nun möchte ich im nächsten Schritt alle {xxx} durch bestimmte Werte ersetzten. Nur ich scheitere schon vorher:

markieren

Delphi-Quellcode:

			start := pos('{',s);

while (start>0) do begin;

stop := posex ('}',s,start);

vname:=copy(s,start,stop-start);

showmessage(vname);

start := pos('{',s);

end;

(i s befindet sich der HTML-Code)

eigentlich hatte ich mir das jetzt so vorgestellt, das jede der Variablen (style[bgcolor],name,page) einmal angezeigt werden. Tun sie aber nicht, es kommt bloß dauernd die erste Stelle (style[bgcolor]).
Woran liegt das?

Und noch was: nein, ein TPageProducer hilft nichts, weil es auch mit der Personal laufen soll.

Wer bessere Vorschläge für diesen Vorhaben hat, die schneller sind, bitte posten

Danke und Grüße
TO

**Hansa**

Hi,

ich reduziere mal den Code:

markieren

Code:

			start := pos('{',s);

while (start>0) do begin;

...

  start := pos('{',s);

end;

Du setzt immer den Wert auf :

markieren

Code:

pos('{',s);

Am Anfang und in der WHILE - Schleife. Das Programm kann nicht so laufen. Es sei denn, { ist in s nicht enthalten.

**theomega**

ich glaube schon das das geht:
ich speichere jedesmal in start, die position von '{' dann prüfe ich ob es 0 ist (nicht mehr gefunden) und breche dann ab!

**Hansa**

Zitat von theomega:

ch glaube schon das das geht:

nein, geht nicht, habe mirs noch mal angeschaut.

Zitat von theomega:

ich speichere jedesmal in start, die position von '{' dann prüfe ich ob es 0 ist (nicht mehr gefunden) und breche dann ab!

Das gibt eine klassische Endlosschleife. Du frägst einen Wert innerhalb der Schleife ab, der sich nie verändert. Und da gehst Du rein, sofern > 0. Raus kommst Du aber nicht mehr.

Wie oft hast Du das Programm schon abgebrochen ???

**Christian Seehase**

Moin The Omega,

ich kenn' jetzt posex nicht, vermute aber mal, dass es so etwas ähnliches ist, wie

Suchen von Strings im String (incl. Startposition)

bei uns in der CodeLibrary.

Am Besten solltest Du posex auch für Start verwenden, denn pos liefert Dir immer das erste Vorkommen, des gesuchten Strings im durchsuchten String.

Da Du ja aber {style[bgcolor]} wohl nicht ersetzen willst, sondern nur {name} usw. hängt die Schleife, wie Hansa ja schon sagte, an immer der gleichen Start Position.

**RomanK**

Hoi Dominik, ich hab deinen Code mal nen bissle Modifizert so dass er zumindest bei mir tut:

markieren

Delphi-Quellcode:

			s := memo1.Lines.Text;

start := pos('{',s);

while (start>0) do

begin 

stop := posex ('}',s,start);

vname:=copy(s,start+1,stop-start-1);

showmessage(vname); 

zs:=Start+1; // letzte fundstelle von '{' + 1, es würde auch stop gehen.

start := posex('{',s,zs);

end;

**OrallY**

Probier einfach mal die Funktion StringReplace aus. Hier ein Beispiel:

markieren

Delphi-Quellcode:

			output := StringReplace(Input, 'xxx', 'y', rfReplaceAll);

//ersetzt alle vorkommenden xxx mit y

pos, posex, finden von Text

pos, posex, finden von Text

Re: pos, posex, finden von Text

Re: pos, posex, finden von Text

Re: pos, posex, finden von Text

Re: pos, posex, finden von Text

Re: pos, posex, finden von Text

Re: pos, posex, finden von Text

Forumregeln

Hansa Registriert seit: 9. Jun 2002 Ort: Saarland 7.554 Beiträge Delphi 8 Professional	#2 Re: pos, posex, finden von Text 9. Jul 2003, 19:25 Hi, ich reduziere mal den Code: markieren Code: start := pos('{',s); while (start>0) do begin; ... start := pos('{',s); end; Du setzt immer den Wert auf : markieren Code: pos('{',s); Am Anfang und in der WHILE - Schleife. Das Programm kann nicht so laufen. Es sei denn, { ist in s nicht enthalten. Gruß Hansa
	Zitat

theomega Registriert seit: 18. Jun 2002 684 Beiträge	#3 Re: pos, posex, finden von Text 9. Jul 2003, 20:06 ich glaube schon das das geht: ich speichere jedesmal in start, die position von '{' dann prüfe ich ob es 0 ist (nicht mehr gefunden) und breche dann ab!
	Zitat

OrallY Registriert seit: 29. Apr 2003 268 Beiträge	#7 Re: pos, posex, finden von Text 10. Jul 2003, 13:24 Probier einfach mal die Funktion StringReplace aus. Hier ein Beispiel: markieren Delphi-Quellcode: output := StringReplace(Input, 'xxx', 'y', rfReplaceAll); //ersetzt alle vorkommenden xxx mit y .oO'rallY Linux is like a tipi: no gates, no windows and a gnu-eating apache inside...
	Zitat