Вопрос : (Другие) извлеките данные от таблицы HTML

Hi all

can кто-то показывает мне как извлечь info таблицы (данные) в TStringGrid сразу от положения ниже угодите? потребность
i только мы видим: rel= " nofollow " " _blank " " target= " http://www.emsc-csem.org/Earthquake/index.php?filter=no&view=1&min_lat=10&min_long=-30&max_long=65 href=
arthquake/index.php http://www.emsc-csem.org/E? filter=no&view=1&min_lat=10&min_long=-30&max_long=65


i также судимое для того чтобы извлечь данные от этого rel= " nofollow " " _blank " " target= " http://www.emsc-csem.org/Earthquake/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 href= CSV
arthquake/index.php http://www.emsc-csem.org/E? 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 будет результат этой страницы: rel= " nofollow " " _blank " " target= " http://www.emsc-csem.org/Earthquake/index.php?filter=yes href=
arthquake/index.php http://www.emsc-csem.org/E? filter=yes

but CSV само настолько грязно, то даже, котор Эксел не smogло прочитать его правильн…

i увидело другие столбы о извлекать таблицы от HTML к программе delphi здесь в EE, но они не работал для меня, или возможно я сделал что-то неправильное…

btw, я не знаю если он намеревается что-нибыдь, то только TWebBrowser получил вставленным когда I судимое нагрузить эти страницы в ем… потребность

i как раз что-то которое получит мне данные от интернета в StringGrid с пользой Delp

i щелчка (и отсутствие СУЕТЫ или .NET если по возможности пожалуйста), то 6 Ent если оно helps

MANY thanks class=

Ответ : (Другие) извлеките данные от таблицы HTML

CSV отлично, кроме того что оно запят-не отделено, оно будет отделенным semicolon.
Как только вы имеете архив CSV, вы можете заселить TStringGrid следующим образом.
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: шнур;
  iий: интежер;
  iStart: интежер;
  iEnd: интежер;
  col: интежер;
начните
  sl: = TStringList.Create;
  попытка
    sl.LoadFromFile («C:\export _EMSC.csv ");
    StringGrid1.RowCount: = sl. Отсчет;
    StringGrid1.FixedCols: = 0;
    StringGrid1.ColCount: = 9;
    для I: = 0 к Pred (sl. Отсчет) делает
    начните
      s: = sl [I] + «; »;
      col: = 0;
      iStart: = 1;
      iEnd: = 1;
      пока (iEnd  <>
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us