PHP DM Gate v0.9 » Как правильно спарсить нужные данные??? <span class="vd">[D7, WinXP]</span>

Kukulkan (11.05.10 22:46) [0]

Подскажите пожалуйста как вот например с этой строки

<tr><td style="background:url('/.s/t/873/1.gif') left bottom no-repeat #FFFFFF;text-align:left;padding:10px 10px 7px 0;color:#7C81C3;text-transform:uppercase;font-size:9pt;" align="center">Список пользователей</td></tr>

Спарсить "Список пользователей"???

Пробывал так

var
s:TStringStream;e:string;i:integer;
begin

s:=TStringStream.Create('');
IdHTTP1.ProxyParams.ProxyPort:=8080;
IdHTTP1.Get('http://www.baza-lider.at.ua/',s);
e:=s.DataString;
i:=pos('<tr><td style=\"background:url(''/.s/t/873/1.gif'') left bottom no-repeat #FFFFFF;text-align:left;padding:10px 10px 7px 0;color:#7C81C3;text-transform:uppercase;font-size:9pt;\" align=\"center\">Список пользователей</td>',e);
delete(e,1,i);
i:=pos('>',e);
delete(e,1,i);
i:=pos('</tr>',e);
delete(e,i,length(e)-i);
caption:=e;
memo1.Text := e;
s.Free;

но неполучаеться!!!

<Цитата>
Владимир Павлович (12.05.10 22:42) [1]

const valid_str1='<td style=\"background:url(''/.s/t/873/1.gif'') left bottom no-repeat #FFFFFF;text-align:left;padding:10px 10px 7px 0;color:#7C81C3;text-transform:uppercase;font-size:9pt;\" align=\"center\">';
valid_str2='</td>';
var
s:TStringStream;e:string;i:integer;
begin
s:=TStringStream.Create('');
IdHTTP1.ProxyParams.ProxyPort:=8080;
IdHTTP1.Get('http://www.baza-lider.at.ua/',s);
e:=s.DataString;
s.Free;
i:=pos(valid_str1,e);
if i>0 then
e:=copy(e,i+1+length(valid_str1),length(e)) else showmessage('error1');
i:=pos(valid_str2,e);
if i>0 then
e:=copy(e,1,i-1) else showmessage('error2');
caption:=e;//чей капшен??
memo1.Text := e;

<Цитата>
12 © (13.05.10 08:44) [2]

for i := 1 to length(e) do
if
(ord(e[i]) > 200) or (ord(e[i]) = 32)
then
result := result + e[i];

memo1.Text := Trim(result);

<Цитата>