Pos liefert letztes statt erstes Vorkommen! HILFE!

[Schubi]

Hi!
Ich werds kurz erklären...
Hab nen String wo mehrmals '<quote>' und '</quote>' vorkommt.
Dann mach ich das:

Delphi-Quellcode:

Pos1 := Pos('<quote>',S);
Pos2 := Pos('</quote>',S);
S := Copy(S,Pos1,Pos2);
Text := StringReplace(Text,S,'',[rfIgnoreCase]);

Leider gibt das 2. Pos das letzte Vorkommen von '</quote>' zurück, und nicht das erste, S enthält also dann den kompletten Text vom 1. '<quote>' bis zum allerletzten '</quote>'

Was mach ich falsch?
Habt ihr evtl ne bessere Idee?

[alcaeus]

Du hast den Copybefehl falsch verwendet. Du musst zuerst den String, dann die Startposition und die Anzahl zu kopierender Zeichen angeben, nicht die Endposition.
Korrekt müsste es also lauten:
S:= Copy(s,Pos1+7,Pos2-(Pos1+7)); [edit]Fehler bei der Länge korrigiert[/edit]

[SirThornberry]

du hast nen kleinen Denkfehler. Der Fehler liegt hier
S := Copy(S,Pos1,Pos2); Der dritte parameter gibt die länge an und nicht das ende
Wenn dein Text beispielsweise so aussieht

Code:

Irgendwas davor <quote>Kleiner Test, Bla irgendwas</quote>Irgendwas danach

Dann dann bewirtk dein copy das nicht nur so viel zeischen kopiert werden wie zwischen <quote> und </quote> sondern es werden auch noch die zeichen vor dem ersten quote dazu gezählt..
dein zweiter parameter müsste "Pos2 - Pos1" oder so heißen...

[Edit1]Ich werd alt, war schon wieder zu langsam [/Edit1]

[Schubi]

*argh*
AUA!

10 Zeilen weiter oben steht er sogar richtig im Quellcode. Das sind so die Fehler die man net findet, weil sie zu trivial sind...

also

S := Copy(S,Pos1,Pos1-Pos2);

DANKE!

Umso lustiger, dass Copy gerade so viel bis zum allerletzten </quote> zurück gegeben hat. so ein zufall

[alcaeus]

Sorry, aber wieder falsch...
Nicht:
S:=Copy(S,Pos1,Pos1-Pos2);
sondern
S:=Copy(S,Pos1,Pos2-Pos1);

[Schubi]

Ja, klar. Danke. Is schon klar, war doch hier nur so auf die Schnelle reingeschrieben. Ganz so blöd bin ich dann doch nicht

[roderich]

Zitat:

S:=Copy(S,Pos1,Pos2-Pos1);

das kopiert ein Zeichen zuwenig. richtig ist

S:=Copy(S,Pos1,Pos2-Pos1 + 1);

Roderich

[Schubi]

Zitat von roderich:

Zitat:

S:=Copy(S,Pos1,Pos2-Pos1);

das kopiert ein Zeichen zuwenig. richtig ist

S:=Copy(S,Pos1,Pos2-Pos1 + 1);

Roderich

Ich zähl eh noch was dazu, um das quote selber gleich mit zu erwischen