alles zwischen <body> und </body> kopieren

**Neuni**

Hi, ich bins mal wieder

Also ich hab nen Programm, dass den Inhalt eines HTML-Textes filtern soll, also:

Ich habe z.B. als HTML-Code:

markieren

Code:

<html><head><title>lolig</title></head><body><h1>LOL</h1></body></html>

Nun möchte ich dass alles zwischen <body> und </body> in eine Varialble kopiert wird.

Hab jetzt schon

markieren

Code:

			text := edit1.Text;

weg1:=copy(text,0,pos('<body>',text)+5);

weg2:=copy(text,pos('<body>',text)+6,length(text));

memo1.lines.add(weg1);

memo2.lines.add(weg2);

Er kopiert nun aber alles von <body> bis </html>, also dem Ende in das memo2...wie sag ich ihm dass er nur alles zwischen <body> und </body> kopieren soll?

Danke schonmal, ich weiß, dass is wieder eine von diesen Noob-Fragen

du sagst ihm ja nicht das er bis </body> übergeben soll!

**faux**

markieren

Delphi-Quellcode:

			var

  a, e: Integer;

begin

  a := Pos('<body>', Edit1.Text);

  e := Pos('</body>', Edit1.Text);

  Memo2.Text := Copy(Edit1.Text, a,e-a);

end;

in Memo2 hast du dann alles zwischen body und body drinnen (inclusive den body's)
und von Edit1 wird der Quelltext genommen...

**faux**

Jetzt fällts mir erst auf:

Zitat von Neuni:

markieren

Code:

			text := edit1.Text;

weg1:=copy(text,0,pos('<body>',text)+5);

weg2:=copy(text,pos('<body>',text)+6,length(text)); //wolltest du nicht bis </body> gehen? du hast den slash vergessen...

memo1.lines.add(weg1);

memo2.lines.add(weg2);

**Neuni**

die bodys sollen ja gerade weg

**faux**

dann machs so:

markieren

Delphi-Quellcode:

			var

  a, e: Integer;

begin

  a := Pos('<body>', Edit1.Text) + 6;

  e := Pos('</body>', Edit1.Text) - 7;

  Memo2.Text := Copy(Edit1.Text, a, e-a);

end;

**Pseudemys Nelsoni**

hi

markieren

Delphi-Quellcode:

			var 

  s: string; 

begin

  s := Edit1.Text;

  Delete(s, 1, Pos(<body>, s)+5);

  Memo2.Text := Copy(s, 1, Pos('</body>',s)-1); 

end;

**Neuni**

Dnke allen, es lauft ,super

alles zwischen <body> und </body> kopieren

alles zwischen <body> und </body> kopieren

Re: alles zwischen <body> und </body> kopieren

Re: alles zwischen <body> und </body> kopieren

Re: alles zwischen <body> und </body> kopieren

Re: alles zwischen <body> und </body> kopieren

Re: alles zwischen <body> und </body> kopieren

Re: alles zwischen <body> und </body> kopieren

Re: alles zwischen <body> und </body> kopieren

Forumregeln

a.vollmer (Gast) n/a Beiträge	#2 Re: alles zwischen <body> und </body> kopieren 8. Mai 2004, 19:07 du sagst ihm ja nicht das er bis </body> übergeben soll!
	Zitat

Neuni Registriert seit: 25. Feb 2004 815 Beiträge Delphi 7 Personal	#5 Re: alles zwischen <body> und </body> kopieren 8. Mai 2004, 19:09 die bodys sollen ja gerade weg
	Zitat

faux Registriert seit: 18. Apr 2004 Ort: Linz 2.044 Beiträge Turbo Delphi für Win32	#6 Re: alles zwischen <body> und </body> kopieren 8. Mai 2004, 19:10 dann machs so: markieren Delphi-Quellcode: var a, e: Integer; begin a := Pos('<body>', Edit1.Text) + 6; e := Pos('</body>', Edit1.Text) - 7; Memo2.Text := Copy(Edit1.Text, a, e-a); end; Faux Manuel Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß. GoTrillian
	Zitat

Pseudemys Nelsoni Registriert seit: 24. Dez 2002 Ort: Hamburg-Harburg 3.551 Beiträge	#7 Re: alles zwischen <body> und </body> kopieren 8. Mai 2004, 19:12 hi markieren Delphi-Quellcode: var s: string; begin s := Edit1.Text; Delete(s, 1, Pos(<body>, s)+5); Memo2.Text := Copy(s, 1, Pos('</body>',s)-1); end; Mario MSN: cyanide@ccode.de
	Zitat

Neuni Registriert seit: 25. Feb 2004 815 Beiträge Delphi 7 Personal	#8 Re: alles zwischen <body> und </body> kopieren 9. Mai 2004, 12:50 Dnke allen, es lauft ,super
	Zitat