|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: An alle Programmierhengste: XML lesen
5. Apr 2011, 18:01
So geht's:
Delphi-Quellcode:
var
start,
ende : integer;
ll:tstringlist;
begin
ll:=tstringlist.Create;
ll.LoadFromFile('C:\temp\test.htm');
start:=pos('<body>',ll.Text);
if start>0 then begin
ende:=pos('</body>',ll.Text);
form1.Memo1.Text:=copy(ll.Text,start+6,ende-(start+6));
end;
ll.free;
end;
(ich weiß dafür gibt's keinen Schönheitspreis)
Gruß
K-H
Edith:
die Test.htm hab ich mal angehängt.
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
Geändert von p80286 ( 5. Apr 2011 um 18:03 Uhr)
|