Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.02.2011, 16:04   #1
codermoder
Пользователь
 
Регистрация: 22.06.2010
Сообщений: 48
Печаль Как найти все ссылки на странице, начинающееся с...

Получаю в memo1.text с помощью idhttp.get страницу.
Как вывести все ссылки в memo2.text на определенный сайт (к примеру какой-то файлообменник)?
codermoder вне форума Ответить с цитированием
Старый 10.02.2011, 18:15   #2
VadikV
Форумчанин
 
Аватар для VadikV
 
Регистрация: 08.01.2011
Сообщений: 226
По умолчанию

легче всего регулярным выражением отпарсить.
либо pos("href=",....) и выдергиваешь ссылку. и так по всем.
icq 223-630-454
e-mail vysotskiy@list.ru
сайт http://www.big-library.net/
VadikV вне форума Ответить с цитированием
Старый 10.02.2011, 19:33   #3
kangreon
Форумчанин
 
Аватар для kangreon
 
Регистрация: 03.04.2009
Сообщений: 305
По умолчанию

Получение всех (почти) ссылок с сайта. Думаю дальше разберетесь.
Код:
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;
kangreon вне форума Ответить с цитированием
Старый 10.02.2011, 21:21   #4
codermoder
Пользователь
 
Регистрация: 22.06.2010
Сообщений: 48
По умолчанию

Цитата:
Сообщение от kangreon Посмотреть сообщение
Получение всех (почти) ссылок с сайта. Думаю дальше разберетесь.
Код:
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;
а как его подредактировать, что искал только с определенного сайта?
codermoder вне форума Ответить с цитированием
Старый 10.02.2011, 21:40   #5
exn
Пользователь
 
Регистрация: 06.02.2011
Сообщений: 51
По умолчанию

руками и клавиатурой)
exn вне форума Ответить с цитированием
Старый 11.02.2011, 10:21   #6
Mifody
Форумчанин
 
Регистрация: 12.02.2009
Сообщений: 215
По умолчанию

Цитата:
руками и клавиатурой)
Про голову, однако, не забываем :D
Помог с вопросом - тыркаем в весы, Вам не сложно, а мне приятно
Mifody вне форума Ответить с цитированием
Старый 11.02.2011, 10:24   #7
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,543
По умолчанию

Цитата:
Сообщение от exn Посмотреть сообщение
руками и клавиатурой)
+1
Другого способа ещё, пока, не изобрели .
Можно мышкой, но сложнее (виртуальная клава).
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder
Smitt&Wesson вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как найти все функции С++ в файе? 2Slide Общие вопросы Delphi 0 19.10.2010 21:34
как забить число начинающееся с нуля? R11 Помощь студентам 2 15.06.2010 15:13
Как найти все компьютеры в сети евгений_8686 Общие вопросы C/C++ 1 26.03.2010 17:59
Как в memo найти все e-mail'ы Черничный Общие вопросы Delphi 16 16.10.2008 09:13
Как можно отбразить все ссылки сайт в проге eldar Работа с сетью в Delphi 2 28.09.2008 12:19