Einzelnen Beitrag anzeigen

mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Auslesen einer csv.html

  Alt 5. Jan 2015, 21:28
Ich hätte hier keine HTML-Datei erwartet.
Wir müssen erst mal die Tags loswerden.

Delphi-Quellcode:
var
  p, p2: PAnsiChar;
  s, csv: string;
  sl: TStrings;
begin
  s := idHTTP1.Get( 'http://192.168.2.10/csv.html');
  p := Pos( '<body>', s)+7;
  p2 := PosEx( '</body>', s, p);
  csv := Copy( s, p, p2-p);
  sl := TStringList.Create;
  sl.StrictDelimiter := True;
  sl.CommText := csv;
  ..
  Caption := sl[2];
  ..
  sl.Free;
  ...
Markus Kinzler
  Mit Zitat antworten Zitat