Delphi-PRAXiS

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
 
hi

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 13:58 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz