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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.11.2013, 08:02   #1
misha74
Новичок
Джуниор
 
Регистрация: 17.12.2012
Сообщений: 1
По умолчанию Помогите с парсингом

Есть такой кусок страницы, цель: вытащить из него все названия доменов, т.е. 01101.ru, 12zx.ru и т.д. Сам что то не могу сообразить.
Код HTML:
<p><p><strong>Найдено: 70</strong><p><table border="0" cellspacing="0" cellpadding="10"><tr><td valign="top"><a href="mywhois.php?domain=01101" class=state2>01101.ru</a><br><a href="mywhois.php?domain=12zx" class=state-1>12zx.ru</a><br><a href="mywhois.php?domain=1akter" class=state2>1akter.ru</a><br><a href="mywhois.php?domain=1detektiv" class=state-1>1detektiv.ru</a><br><a href="mywhois.php?domain=1kinoakter" class=state-1>1kinoakter.ru</a><br><a href="mywhois.php?domain=1mlif" class=state-1>1mlif.ru</a><br><a href="mywhois.php?domain=1vkino" class=state2>1vkino.ru</a><br><a href="mywhois.php?domain=2flm" class=state-1>2flm.ru</a><br><a href="mywhois.php?domain=aaa5" class=state2>aaa5.ru</a><br><a href="mywhois.php?domain=aazi" class=state2>aazi.ru</a><br><a href="mywhois.php?domain=aqaa" class=state2>aqaa.ru</a><br><a href="mywhois.php?domain=aqqq" class=state2>aqqq.ru</a><br><a href="mywhois.php?domain=avatarmoviezone" class=state-1>avatarmoviezone.ru</a><br><a href="mywhois.php?domain=avatarthemovie" class=state-1>avatarthemovie.ru</a><br><a href="mywhois.php?domain=bestartists" class=state-1>bestartists.ru</a><br><a href="mywhois.php?domain=bfff" class=state2>bfff.ru</a><br><a href="mywhois.php?domain=bjee" class=state-1>bjee.ru</a><br><a href="mywhois.php?domain=cboo" class=state-1>cboo.ru</a><br><a href="mywhois.php?domain=chxx" class=state2>chxx.ru</a><br><a href="mywhois.php?domain=cinematograf24" class=state2>cinematograf24.ru</a><br></td><td valign="top"><a href="mywhois.php?domain=coolavi" class=state-1>coolavi.ru</a><br><a href="mywhois.php?domain=dboo" class=state2>dboo.ru</a><br><a href="mywhois.php?domain=djdb" class=state2>djdb.ru</a><br><a href="mywhois.php?domain=djdd" class=state2>djdd.ru</a><br><a href="mywhois.php?domain=djdk" class=state2>djdk.ru</a><br><a href="mywhois.php?domain=djjj" class=state2>djjj.ru</a><br><a href="mywhois.php?domain=doktorenish" class=state2>doktorenish.ru</a><br><a href="mywhois.php?domain=dv77" class=state-1>dv77.ru</a><br><a href="mywhois.php?domain=dwmz" class=state-1>dwmz.ru</a><br><a href="mywhois.php?domain=ekaif" class=state2>ekaif.ru</a><br><a href="mywhois.php?domain=f2f3" class=state2>f2f3.ru</a><br><a href="mywhois.php?domain=film0" class=state-1>film0.ru</a><br><a href="mywhois.php?domain=filmaz" class=state2>filmaz.ru</a><br><a href="mywhois.php?domain=filmqwe" class=state-1>filmqwe.ru</a><br><a href="mywhois.php?domain=fkkk" class=state2>fkkk.ru</a><br><a href="mywhois.php?domain=gipertrofia" class=state2>gipertrofia.ru</a><br><a href="mywhois.php?domain=hllo" class=state-1>hllo.ru</a><br><a href="mywhois.php?domain=holmsfilm" class=state-1>holmsfilm.ru</a><br><a href="mywhois.php?domain=inkvizitsia" class=state2>inkvizitsia.ru</a><br><a href="mywhois.php?domain=isaakazimov" class=state2>isaakazimov.ru</a><br></td><td valign="top"><a href="mywhois.php?domain=jz1" class=state2>jz1.ru</a><br><a href="mywhois.php?domain=kinoproisk" class=state2>kinoproisk.ru</a><br><a href="mywhois.php?domain=le6" class=state2>le6.ru</a><br><a href="mywhois.php?domain=le9" class=state2>le9.ru</a><br><a href="mywhois.php?domain=len-film" class=state-1>len-film.ru</a><br><a href="mywhois.php?domain=lostvegas" class=state-1>lostvegas.ru</a><br><a href="mywhois.php?domain=mordabook" class=state2>mordabook.ru</a><br><a href="mywhois.php?domain=n9t" class=state2>n9t.ru</a><br><a href="mywhois.php?domain=nadkaifom" class=state2>nadkaifom.ru</a><br><a href="mywhois.php?domain=nauchfan" class=state2>nauchfan.ru</a><br><a href="mywhois.php?domain=ni4" class=state2>ni4.ru</a><br><a href="mywhois.php?domain=nuihnah" class=state2>nuihnah.ru</a><br><a href="mywhois.php?domain=otrizhka" class=state2>otrizhka.ru</a><br><a href="mywhois.php?domain=parnasfilm" class=state-1>parnasfilm.ru</a><br><a href="mywhois.php?domain=pausebreak" class=state2>pausebreak.ru</a><br><a href="mywhois.php?domain=qw12" class=state2>qw12.ru</a><br><a href="mywhois.php?domain=qw21" class=state-1>qw21.ru</a><br><a href="mywhois.php?domain=qwe1" class=state-1>qwe1.ru</a><br><a href="mywhois.php?domain=qwe12" class=state-1>qwe12.ru</a><br><a href="mywhois.php?domain=qwefilm" class=state-1>qwefilm.ru</a><br></td><td valign="top"><a href="mywhois.php?domain=rakord" class=state2>rakord.ru</a><br><a href="mywhois.php?domain=shot10" class=state2>shot10.ru</a><br><a href="mywhois.php?domain=skitaltsu" class=state2>skitaltsu.ru</a><br><a href="mywhois.php?domain=smehfilm" class=state2>smehfilm.ru</a><br><a href="mywhois.php?domain=sspielberg" class=state-1>sspielberg.ru</a><br><a href="mywhois.php?domain=stopsnyato" class=state2>stopsnyato.ru</a><br><a href="mywhois.php?domain=trackz" class=state2>trackz.ru</a><br><a href="mywhois.php?domain=tunesi" class=state-1>tunesi.ru</a><br><a href="mywhois.php?domain=vdrame" class=state2>vdrame.ru</a>
misha74 вне форума Ответить с цитированием
Старый 16.11.2013, 12:22   #2
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,216
По умолчанию

Ищем строку 'domain=', далее вырезаем все до двойной кавычки, в получившейся строке добавляем '.ru', продолжаем, пока не закончится исходная строка. Самый быстрый способ - конечный автомат.
Arigato вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с парсингом html maxspace C# (си шарп) 4 05.11.2013 20:08
проблема с парсингом Pein95 Общие вопросы Delphi 3 23.11.2011 06:08
проблема с парсингом Pein95 Общие вопросы Delphi 5 14.07.2011 20:11
Помоги с парсингом Coobik Работа с сетью в Delphi 2 21.08.2010 08:54