Парсер

[Xlook]

Привет ребятки у меня проблема, начал изучать парсеры, попытался сделать сам в итоге вот что вышло:

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;

procedure TForm1.Button1Click(Sender: TObject);
var
  data:string;
begin
  data:=IdHTTP1.Get('http://news.yandex.ru/quotes/1.html'');

 Memo1.Text:=Pars('<span class="b-quote__sgn"></span>">', data, '< /td>'');
Memo1.Text:=UTF8Decode(Memo1.Text);
end;

Проблема заключается в том как получить не 1 значения а несколько т.е пропарсить весь сайт
ссылка: http://news.yandex.ru/quotes/1.html

[kangreon]

Есть функция - PosEx (Модуль StrUtils). В более новых версиях - Pos с соответствующей перегрузкой. Описание
Эта функция позволяет искать текст начиная с определенной позиции (3 параметр функции).

Пример использования:

FromText := '<span class="b-quote__sgn"></span>">';
i := 1;
while Pos(FromText, Source, i) <> 0 do
begin
  i := Pos(FromText, Source, i) + Length(FromText);
  j := Pos('</td', Source, i);
  if (i = 0) or (j = 0) then Break;

  CopyText := Copy(Source, i, j - i);
  ...
end;

[cotseec]

воспользуйтесь DOM
для начала Что можно «вытащить» из DOM’а?