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 Delphi-Referenz durchsuchen

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...

markieren

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.

markieren

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...

Probleme mit POS/Copy

Probleme mit POS/Copy

Re: Probleme mit POS/Copy

Re: Probleme mit POS/Copy

Re: Probleme mit POS/Copy

Re: Probleme mit POS/Copy

Re: Probleme mit POS/Copy

Re: Probleme mit POS/Copy

Forumregeln

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#2 Re: Probleme mit POS/Copy 17. Dez 2007, 22:03 Guck dir mal in der Hilfe die Bedeutung des letzten Parameters von copy an. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

taaktaak Registriert seit: 25. Okt 2007 Ort: Radbruch 1.990 Beiträge Delphi 7 Professional	#3 Re: Probleme mit POS/Copy 17. Dez 2007, 22:07 Moin, Moin, weil du von I2 mindestens I1 subtrahieren musst.... Gruß Ralph Ralph
	Zitat

MrDevil Registriert seit: 27. Dez 2006 Ort: Melle 62 Beiträge Delphi 5 Standard	#5 Re: Probleme mit POS/Copy 17. Dez 2007, 22:28 Danke hmmm - da hab ich mich wohl mit COPY verhauen hätte echt gedacht das der letzte Parameter Die 2 Position angibt ;-( Gruss Jens
	Zitat

Neotracer64 Registriert seit: 27. Okt 2004 292 Beiträge Delphi 7 Professional	#6 Re: Probleme mit POS/Copy 17. Dez 2007, 22:29 Bau dir doch ne Funktion, die das dann so macht.
	Zitat

Blackheart Registriert seit: 4. Mai 2005 846 Beiträge Delphi 7 Enterprise	#7 Re: Probleme mit POS/Copy 17. Dez 2007, 23:02 Zitat von Neotracer64: Bau dir doch ne Funktion, die das dann so macht. markieren 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... Blackheart
	Zitat