Frage : (Andere) Daten von der HTML-Tabelle extrahieren

Hallo zeigen all

can jemand mir, dass wie man das Info der Tabelle (Daten) in ein TStringGrid direkt von der folgenden Position bitte extrahiert?
i nur Notwendigkeit, was wir sehen:
http://www.emsc-csem.org/E arthquake/index.php? filter=no&view=1&min_lat=10&min_long=-30&max_long=65


i versuchte auch, die Daten von diesem CSV
http://www.emsc-csem.org/E arthquake/index.php? filter=yes&start_date=2010-07-01&end_date=2010-07-19&min_mag=1&min_intens=0&max_intens=8&export=csv

the CSV ist das Resultat dieser Seite:
http://www.emsc-csem.org/E arthquake/index.php? filter=yes

but das CSV selbst ist so unordentlich, sah das sogar, das Excel es nicht lesen könnte richtig…

i, andere Pfosten über die Extrahierung der Tabellen von HTML zu einem Delphi-Programm hier in EE, aber sie arbeiteten nicht für mich, oder möglicherweise tat ich etwas falsches…

btw, weiß ich nicht, wenn es alles bedeutet, aber das TWebBrowser erhalte gehaftet, als ich versuchte, diese Seiten in ihm zu laden…

i gerade Notwendigkeit etwas, das mir die Daten vom Internet in das StringGrid mit einem Klicken (und kein AUFHEBEN oder .NET, wenn möglich bitte)

i Gebrauch Delp kommt 6 HNO wenn es helps

MANY thanks

Antwort : (Andere) Daten von der HTML-Tabelle extrahieren

Das CSV ist fein, ausgenommen es nicht Komma-getrennt, es ist das getrennte Semikolon.
Sobald Sie die CSV Akte haben, können Sie das TStringGrid wie folgt bevölkern.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
var
  SL: TStringList;
  s: Schnur;
  I: ganze Zahl;
  iStart: ganze Zahl;
  iEnd: ganze Zahl;
  Spalte: ganze Zahl;
anfangen
  SL: = TStringList.Create;
  Versuch
    sl.LoadFromFile („C:\export _EMSC.csv ");
    StringGrid1.RowCount: = SL. Zählimpuls;
    StringGrid1.FixedCols: = 0;
    StringGrid1.ColCount: = 9;
    für i: = 0 zu Pred (SL. Zählimpuls) tun
    anfangen
      s: = SL [i] + „; “;
      Spalte: = 0;
      iStart: = 1;
      iEnd: = 1;
      während (iEnd  <>
           
Weitere Lösungen  
 
programming4us programming4us