Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

25th
Дек

Получение всех ссылок со страницы

Posted by Chas under Delphi

Проблема в том что если парсю 10 ссылок то они все одинаковые (то есть парсится первая ссылка и не переходит к второй), мне же надо чтобы ссылки были разные. Код <h2><a href= везде одинаковый, в этом и проблема. Знакомый подсказал что надо через RegExp, но никогда ранее с этим компонентом не работал, помогите пожалуйста.

Кольша

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;

тема на форуме