но не понимаю за что зацепиться нужно парсить сами блоги
вот код которым я паршу но что то не чего не выходит
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
p,a,b,i:integer;
ssilka,text : string;
info: array [0..9] of string;
begin
for p:=0 to 9 do
begin
ssilka:=' '+inttostr(p);
info[p]:=idhttp1.Get(ssilka);
memo1.Lines.Text:=info[p];
a:=pos('<a href="',info[p])+9;
b:=pos('" class="container"',info[p])-1;
memo1.Lines.Add(copy(info[p], a, b-a+1));
Последний раз редактировалось victor20011; 21.05.2012 в 20:11.
var
s:string;
begin
inherited;
reg:=TRegExpr.create;
for I := strtoint(form1.Edit1.text) to strtoint(form1.edit2.text) do
begin
form1.label4.caption:='Страница '+Inttostr(i)+' из '+form1.edit2.text ;
Str:=form1.idhttp1.Get('http://blogs.yandex.ru/top/yaru/?page='+inttostr(i));
Reg.expression:='"></a><a href="http://(.*?)/';
if reg.exec(str) then
repeat
s:=Copy(reg.match[1],0,Length(reg.match[1])-6);
s:=s+'@yandex.ru';
form1.memo1.lines.Add(s);
until not Reg.ExecNext;
end;
end;
исходник
[Ссылки могут видеть только зарегистрированные пользователи. ]
var
s:string;
begin
inherited;
reg:=TRegExpr.create;
for I := strtoint(form1.Edit1.text) to strtoint(form1.edit2.text) do
begin
form1.label4.caption:='Страница '+Inttostr(i)+' из '+form1.edit2.text ;
Str:=form1.idhttp1.Get('http://blogs.yandex.ru/top/yaru/?page='+inttostr(i));
Reg.expression:='"></a><a href="http://(.*?)/';
if reg.exec(str) then
repeat
s:=Copy(reg.match[1],0,Length(reg.match[1])-6);
s:=s+'@yandex.ru';
form1.memo1.lines.Add(s);
until not Reg.ExecNext;
end;
end;
исходник
[Ссылки могут видеть только зарегистрированные пользователи. ]