Einzelnen Beitrag anzeigen

Alexander

Registriert seit: 28. Aug 2002
Ort: Oldenburg
3.513 Beiträge
 
Turbo Delphi für .NET
 
#8

Re: Text aus String wegschneiden?

  Alt 12. Okt 2004, 10:01
Mit einer StringList würde ich nicht arbeiten.
Hier mal ein kleines Beispiel:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  s : String;
  index, count : Integer;
begin
  s := '<html><head><title>Current IP Check</title></head><body>Current IP Address: 217.231.61.98</body></html>';
  index := POS('Address: ', s) + length('Address: ');
  count := Length(s) - index - length('</body></html>') +1;
  s := Copy(s, index, count);
end;
Index gibt den Index an, aber der kopiert werden soll und copy wie viele Zeichen kopiert werden sollen...
Habe es nicht getestet, hoffe aber, dass es funktioniert.
Wenn sich aber die Struktur der Website ändert, passt auch der Code nicht mehr, logisch oder?
Alexander
  Mit Zitat antworten Zitat