Fråga : (Another) extraktdata från HTML bordlägger

Hi all

can någon visar mig att hur till extraktet tabellens info (data) in i en TStringGrid direkt från det nedanföra läget behar? behov för
i endast vad vi ser: för href=" http://www.emsc-csem.org/Earthquake/index.php?filter=no&view=1&min_lat=10&min_long=-30&max_long=65 " för
http://www.emsc-csem.org/E arthquake/index.php? filter=no&view=1&min_lat=10&min_long=-30&max_long=65


i som försöks också till extraktet datan från denna rel= " nofollow " " för _blank " för target= för 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 är resultatet av denna sida: för href=" http://www.emsc-csem.org/Earthquake/index.php?filter=yes " för
http://www.emsc-csem.org/E arthquake/index.php? filter=yes

but CSVEN sig själv är så smutsig, det även Excel kunde inte läsa den riktigt…

i sågar annan postar om utdragning bordlägger från HTML till ett delphi program här i EE, men de fungerade inte för mig, eller kanske jag gjorde något fel…

btw, jag vet inte, om den hjälpmedel något, men TWebBrowseren fick fastnade, då jag försökte att ladda dessa sidor i den… behov för

i precis något som ska får mig datan från internet in i StringGriden med ett bruk Delp för

i för klicka (och ingen ADO eller .NET, om möjligheten behar) 6 Ent om det helps

MANY thanks " klar "

Svar : (Another) extraktdata från HTML bordlägger

CSVEN är boten, undantar den komma-avskiljs inte, det är det avskilda semikolonet.
När du har CSVEN att spara, du kan befolka TStringGriden som följer.
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: stränga;
  i: heltal;
  iStart: heltal;
  iEnd: heltal;
  kolonn: heltal;
börja
  sl: = TStringList.Create;
  försök
    sl.LoadFromFile (”C:\export _EMSC.csv”);
    StringGrid1.RowCount: = sl. Räkning;
    StringGrid1.FixedCols: = 0;
    StringGrid1.ColCount: = 9;
    för I: = 0 till Pred (sl. Räkningen) gör
    börja
      s: = sl [I] + ”; ”;
      kolonn: = 0;
      iStart: = 1;
      iEnd: = 1;
      stunder (iEnd  <>
Andra lösningar  
 
programming4us programming4us