Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Как правильно спарсить нужные данные???   Найти похожие ветки 

 
Kukulkan   (2010-05-11 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;



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


 
Владимир Павлович   (2010-05-12 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 ©   (2010-05-13 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);



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.151 c
2-1267110427
dkhristich
2010-02-25 18:07
2010.08.27
Как корректно прекратить поток?


15-1263833680
Pikvar
2010-01-18 19:54
2010.08.27
Delphi - с чего начинать изучение?


15-1267133405
Юрий
2010-02-26 00:30
2010.08.27
С днем рождения ! 26 февраля 2010 пятница


15-1273696195
Юрий
2010-05-13 00:29
2010.08.27
С днем рождения ! 13 мая 2010 четверг


2-1274871683
AbdreyZAA
2010-05-26 15:01
2010.08.27
Как узнать заряд каждой батареии?