Проблема с парсингом ссылок, парсится одна и та же ссылка!

[FleXik]

Сообщение от Кольша

procedure TForm1.sButton1Click(Sender: TObject);  
var  
rev, url:string;  
head: array[1..100] of string;  
begin  
rev:=send('GET', Form1.sEdit1.Text,'','','','application/x-www-form-urlencoded;','','','','','',head);  
while sMemo1.Lines.Count-1 < 10 do  
begin///стер случайно попробуйте сейчас
url:=pars('<h2><a href="', '">',rev); 
if pos('send',url)=0 then///типичная проверка
sMemo1.Lines.Add(url);  
delete(rev,1,pos('<h2><a href="',rev)+length('<h2><a href="')); 
end;  
end;

Все супер, спасибо Вам огромное!

[Кольша]

Обращайтесь!

[FleXik]

Очередная проблемка

Код страницы сайта:

				<li><a class="main" title="Главная" href="/">Главная</a></li>
				<li><a class="add" title="Добавить" href="/add">Добавить<     a><li>								
				<li><a href="/all">Бездна</a></li>
				<li><a href="/best">Лучшие</a></li>				
				<li><a href="/random">Случайный</a></li>
				<li><a href="/tags">Категории</a></li>
				<li><a href="/rating">Авторы</a></li>	
				<div class="rmenu">
					<li><a class="empty"></a></li>
					<li><a href="/faq">FAQ</a></li>
					<li><a href="/templates">Шаблоны</a></li>				
					<li><a href="/wall">Стена</a></li>
       </a></li>
								</ul>
							</div>

							<div class="right">
								<ul class="socials">	
									<li><a href="http://comicsbook.ru/funny/74297?vertyat-

           nami-kak-hotyat" title="Ссылка на пост">ссылка</a></li>									
									<li><a href="#"

PHP код:

var
rev, url, temp:string;
head: array[1..100] of string;

begin
if Form1.sListBox1.ItemIndex = 2 then
try
Form1.sMemo1.Clear;
rev:=send('GET', 'http://comicsbook.ru/','','','','application/x-www-form-urlencoded;','','','','','',head);
while Form1.sMemo1.Lines.Count-0 < 20 do
begin
temp:=parser(rev,'<div class="right">', '"#"',0,0);
url:=parser(temp,'<a href="', '?',0,0);
Form1.sMemo1.Lines.Add(url);
Delete(rev,1,Pos('<a href="',rev)+length('<a href="'));
Form1.Label1.Caption:= 'Ссылок: ' + Inttostr(Form1.sMemo1.Lines.Count-0);
end
except
end;
end; 


Парсит одну и ту же ссылку... Просто тегов <li><a href=" много и перед ссылками которые мне надо, пришлось указывать код между которым и будет парсится ссылка, но парсит одну и ту же ссылку, бывает парсится вообще меню сайта, из за того что теги перед ссылками такие же как в меню... Как быть, помогите пожалуйста, спасибо.

[FleXik]

Помогите пожалуйста

[Кольша]

var 
rev, url, temp:string; 
head: array[1..100] of string; 

begin 
if Form1.sListBox1.ItemIndex = 2 then 
try 
Form1.sMemo1.Clear; 
rev:=send('GET', 'http://comicsbook.ru/','','','','application/x-www-form-urlencoded;','','','','','',head); 
while Form1.sMemo1.Lines.Count-0 < 7 do 
begin 
temp:=parser(rev,'<div class="right">', '" title="Ссылка на пост">ссылка</a>',0,0); 
url:=parser(temp,'<a href="', '?',0,0); 
Form1.sMemo1.Lines.Add(url); 
Delete(rev,1,Pos(temp,rev)+length(temp)); 
Form1.Label1.Caption:= 'Ссылок: ' + Inttostr(Form1.sMemo1.Lines.Count); 
end 
except 
end; 
end;

Как то так

[FleXik]

Сообщение от Кольша

var 
rev, url, temp:string; 
head: array[1..100] of string; 

begin 
if Form1.sListBox1.ItemIndex = 2 then 
try 
Form1.sMemo1.Clear; 
rev:=send('GET', 'http://comicsbook.ru/','','','','application/x-www-form-urlencoded;','','','','','',head); 
while Form1.sMemo1.Lines.Count-0 < 7 do 
begin 
temp:=parser(rev,'<div class="right">', '" title="Ссылка на пост">ссылка</a>',0,0); 
url:=parser(temp,'<a href="', '?',0,0); 
Form1.sMemo1.Lines.Add(url); 
Delete(rev,1,Pos(temp,rev)+length(temp)); 
Form1.Label1.Caption:= 'Ссылок: ' + Inttostr(Form1.sMemo1.Lines.Count); 
end 
except 
end; 
end;

Как то так

Извиняюсь, все работает, просто не увидел +length(temp)); а у меня стояло rev, спасибо большое снова!! но надо было парсить до сюда "#" спасибо огромное за помощь!