[Помогите!] Не пойму за что цыпануться

[victor20011]

Привет всем вот шас пишу парсер

но не понимаю за что зацепиться нужно парсить сами блоги
вот код которым я паршу но что то не чего не выходит

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));

[=PaLeTiZaToR=]

Не пойму , что тебе надо.
Есле парс почт "с" "по" то на
[Ссылки могут видеть только зарегистрированные пользователи. ]

P.s есле то , то могу исходник кинуть

[victor20011]

Цитата: Сообщение от =^PaLeTiZaToR^= Не пойму , что тебе надо. Есле парс почт "с" "по" то на [Ссылки могут видеть только зарегистрированные пользователи. ] P.s есле то , то могу исходник кинуть

если возможно скинь плз

нет не почты а сами блоги


<td class="first-column">1</td>
<td style="padding:0;"><div class="name-container">
<a href="" class="container" style="background-image:url([Ссылки могут видеть только зарегистрированные пользователи. ]
"></a><a href=""

где тут с "С"?

как видно по коду выше беру от <a href=" +9

[Skrillex3]

=^PaLeTiZaToR^=, кинь лучше мне исходник , лучше кинь сам текст в личку

[=PaLeTiZaToR=]

Вот сам код парса

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;

исходник
[Ссылки могут видеть только зарегистрированные пользователи. ]

[victor20011]

Цитата: Сообщение от =^PaLeTiZaToR^= Вот сам код парса 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; исходник [Ссылки могут видеть только зарегистрированные пользователи. ]

спасибо огромное шас попробую)