Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
10th
Фев
Как найти все ссылки на веб странице
Posted by bullvinkle under Пост-обзор
Получение всех (почти) ссылок с сайта. Думаю дальше разберетесь.
Код:
var
s, t: string;
i, p: integer;
begin
s := Memo1.Text;
i := 1;
while PosEx('href=',s,i)0 do
begin
i := PosEx('href=',s,i)+1;
p := PosEx('"',s,i)+1;
// Копирование ссылок
t := Copy(s,p,PosEx('"',s,p)-p);
end;
end;
Тема на форуме.