Probleme mit POS/Copy

[MrDevil]

Hallo habe folgenden Code

Delphi-Quellcode:

code := '<Image height="16" width="16" type="image/x-icon">http://www.diedomain.de/test.png</Image>dsdsd 345345345345 34534534534345345!!!!';
        
        I1 := Pos('x-icon', code);
        I2 := Pos('</Image>', code);
        Img := Copy(code, I1+ Length('x-icon') , I2);
ShowMessage(Img);

Die MEssage enthält dann ab I1 bis zum ende von code was ja mit !!!! endet.... Warum über geht Copy die POs von I2?!

[Luckie]

Guck dir mal in der Hilfe die Bedeutung des letzten Parameters von copy an.

[taaktaak]

Moin, Moin,
weil du von I2 mindestens I1 subtrahieren musst....
Gruß Ralph

[dominikkv]

ich gehe mal davon aus das du das zwischen den beiden substrings willst...

Delphi-Quellcode:

code := '<Image height="16" width="16" type="image/x-icon">http://www.diedomain.de/test.png</Image>dsdsd 345345345345 34534534534345345!!!!'; 
        
  I1 := Pos('x-icon">', code); 
  I2 := Pos('</Image>', code); 
  Img := Copy(code, I1  + Length(I1) , I2 - I1  - Length(I1)); 
  ShowMessage(Img);

müsste stimmen... vllt auch um eine stelle verschoben xD

[MrDevil]

Danke hmmm - da hab ich mich wohl mit COPY verhauen hätte echt gedacht das der letzte Parameter Die 2 Position angibt ;-(

[Neotracer64]

Bau dir doch ne Funktion, die das dann so macht.

[Blackheart]

Zitat von Neotracer64:

Bau dir doch ne Funktion, die das dann so macht.

Delphi-Quellcode:

function Between(Tag1, Tag2, Text: String): String;
begin
  Delete(Text,1,Pos(Tag1,Text) + Length(Tag1)-1);
  Delete(Text,Pos(Tag2,Text),Length(Text));
  Result:=Text;
end;

in etwa...