Помоги с парсингом

[Coobik]

С интересной вещью как парсинг дружу мало, можно даже сказать не дружу.
Так вот, есть html код:

<span class="text_green">0 руб.</span>

Нужно спарсить цифру в label программы, помогите с кодом.

Надеюсь на вашу помощь.
Спасибо.

[Terikon]

Держи

procedure TForm1.Button1Click(Sender: TObject);
var
s,rub:string;
begin
s:='<span class="text_green">0 руб.</span>';
   rub:=copy(s,pos('<span class="text_green">',s)+24,length(s)-pos('<span class="text_green">',s)+24);
   rub:=copy(rub,2,pos('</span>',rub));
   rub:=copy(rub,1,length(rub)-6);
Label1.Caption:=rub;
end;
end.

[Coobik]

Terikon, спасибо, то что нужно