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:

Delphi-Quellcode:

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

Delphi-Quellcode:

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 :cry: [/Edit1]

[Schubi]

*argh*
AUA! :oops:

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

also

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

DANKE! :mrgreen: :gruebel:

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

[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 :mrgreen: :wall:

[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:

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