Грабер сайта

Доброго всем времени суток. Такая проблемка . надо в инете собрать информацию по некоторым организациям. подскажите как написать паука для грабинга старниц либо порекомендуйте готовые решения. как станицу рабобрать на части я знаю а вот как сайты грабить не доводилось.

 

Code:

function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;

Применение:
page:='123Это строка456';
showmessage(pars('123',page,'456'));

Результат: Это строка

 

я подозреваю, что ТС хочет написать прогу, которая сама будет искать следующую страницу, переходить на нее, а потом уже ее разбирать.
Уточните ТС.

 

MIL HTML Parser

 

язык делфи. мне надо сграбить порядка 100 страничек. они идут одна за другой. буду пробовать.

 

Впринципе это оказалось не так сложно сграбил за несколько минут нужные данные. Как доведу его до ума выложу сюда