опять парсинг

[Pein95]

нужно отпарсить страницы такого типа: http://demotivators.ru/?page=2
вот часть хтмл кода:

<td>
<div id="p978196" class="posterimage">

<a href="/posters/595637/vse-prosto.htm"><img src="/media/posters/3348/54595637_vse-prosto.thumbnail.jpg" alt="ВСЕ ПРОСТО"/></a>

</div>
<div class="postfooter">

    <a href="/posters/595637/vse-prosto.htm#comments">Комментарии: 405</a>


</div>
</td>

<td>
<div id="p978071" class="posterimage">

<a href="/posters/578839/durya-bashka.htm"><img src="/media/posters/3223/64578839_durya-bashka.thumbnail.jpg" alt="Дурья башка"/></a>

</div>

нужно отпарсить такие ссылки:
/posters/578839/durya-bashka.htm

вот мой код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,n,bg,en:integer;
res,s,text,rest:string;
begin
text:=memo1.Lines.Text;



while memo2.Lines.Count-1<12 do
begin
  bg:=pos('href="/posters/',text);

  en:=pos('.htm"><img',text);
  res:=copy(text,bg+6,en-bg-2);
  memo2.Lines.Add(res);
  delete(text,1,en+10);
end;




end;

но он не работает... в чем проблема?

[Pein95]

народ плз) помогите)

[Delphi_ProGer]

http://programmersforum.ru/showpost....90&postcount=3

а потом сюда:
http://programmersforum.ru/showpost....91&postcount=6

[Step_UA]

Если не ошибаюсь, то после удаления из text найденной ссылки и поиске начала следующей по строке 'href="/posters/' - наткнешься на начало ссылки для коментов, ее нужно также удалить

delete(text,1,pos('href="/posters/',text)+15);

[Pein95]

Теперь парсит, но не все ссылки.. не пойму в чем проблема.. Вот скинул сам проект и html файл который нужно парсить. Тут находит только 7 ссылок из 12(

[Step_UA]

проверил на вашем примере, сформированно 12 ссылок:

while memo2.Lines.Count<12 do
begin
  bg:=pos('href="/posters/',text);
  en:=pos('.htm"><img',text);
  res:=copy(text,bg+6,en-bg-2);
  memo2.Lines.Add(res);
  delete(text,1,en+10);
  delete(text,1,pos('href="/posters/',text)+15);
end;

[Pein95]

нет, все работает ет я ошибся) одну строчку закоментил)
все осталось скачать) спс за помощь)