Delphi-PRAXiS - Delphi alles zwischen <body> und </body> kopieren

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi alles zwischen <body> und </body> kopieren (https://www.delphipraxis.net/21819-alles-zwischen-body-und-body-kopieren.html)

Neuni

8. Mai 2004 17:52

alles zwischen <body> und </body> kopieren

Hi, ich bins mal wieder :D

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

Ich habe z.B. als HTML-Code:

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

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

a.vollmer

8. Mai 2004 18:07

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

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

faux	8. Mai 2004 18:07

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

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	8. Mai 2004 18:08

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

Jetzt fällts mir erst auf:

Zitat:

Zitat von Neuni

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

8. Mai 2004 18:09

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

die bodys sollen ja gerade weg

faux	8. Mai 2004 18:10

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

dann machs so:

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

8. Mai 2004 18:12

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

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

9. Mai 2004 11:50

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

Dnke allen, es lauft ,super :mrgreen: :thuimb:

Alle Zeitangaben in WEZ +1. Es ist jetzt 09:43 Uhr.