Нужно спарсить слово "ПлОхО=И=ОдИнОкО". Как это сделать ?
<img src="115" h="14" w="14" /> <a title="" lst="Перелететь:Инфо планеты" lst_action="-JOIN
ПлОхО=И=ОдИнОкО:GET #huyo2#usercur=7424930&a=channels_w
hois&chanid=536444&">ПлОхО=И=ОдИнОк О</a> [50]<br />
Решение:
procedure TForm1.Button1Click(Sender: TObject);
var
text_pars,out_s:string;
begin
text_pars:='<img src="115" h="14" w="14" /> <a title=""
lst="Перелететь:Инфо планеты" lst_action="-JOIN ПлОхО=И=ОдИнОкО:GET
#huyo2#usercur=7424930&a=channels_w
hois&chanid=536444&">ПлОхО=И=ОдИнОк</a> [50] <br />';
delete(text_pars,1,pos('&">',text_pars)+length('&">')-1);
out_s:=copy(text_pars,1,pos('</a>',text_pars)-1);
Caption:=out_s;
end;
|