Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 10.04.2013, 12:57
cyborgg4655 cyborgg4655 вне форума
Начинающий
 
Регистрация: 16.03.2013
Сообщения: 151
Версия Delphi: Delphi 2010
Репутация: 10
Вопрос Цикл поиска e-mail'ов в Webbrowser'e

Задача такая, организовать цикл поиска на определенной странице. Скаинирование всех записей и отбирать из них e-mail'ы. Условие отбора примерно такое '%'+'@'+'%', тоесть все что содержит знак - @, мы записываем в листбокс или ещё куда либо(это не важно).
Структура в которой прячутся e-mailы:
Код HTML:
<a href="mailto:stolyarov63@gmail.com">stolyarov63@gmail.com</a>
Буду очень признателен за помощь!
Ответить с цитированием
  #2  
Старый 10.04.2013, 15:21
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

я бы вытащил из DOM все тэги <a>, у них атрибут href и если он начинается на mailto сохранил где нужно.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 10.04.2013, 15:37
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Используй регэкспы (с).

З.Ы. NumLock, зря ты ссылку на эту тему кинул, я бы прошел мимо
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #4  
Старый 10.04.2013, 15:38
cyborgg4655 cyborgg4655 вне форума
Начинающий
 
Регистрация: 16.03.2013
Сообщения: 151
Версия Delphi: Delphi 2010
Репутация: 10
По умолчанию

Цитата:
Сообщение от NumLock
я бы вытащил из DOM все тэги <a>, у них атрибут href и если он начинается на mailto сохранил где нужно.
теоретически я понял, а практически как это будет выглядеть?

Цитата:
Сообщение от M.A.D.M.A.N.
Используй регэкспы (с).

З.Ы. NumLock, зря ты ссылку на эту тему кинул, я бы прошел мимо
А можно примерчик если не сложно?

Последний раз редактировалось M.A.D.M.A.N., 10.04.2013 в 15:41.
Ответить с цитированием
  #5  
Старый 10.04.2013, 15:40
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Ща, если найду регулярку, кину пример.

Вот:
[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию

Последний раз редактировалось M.A.D.M.A.N., 10.04.2013 в 15:43.
Ответить с цитированием
  #6  
Старый 10.04.2013, 15:46
cyborgg4655 cyborgg4655 вне форума
Начинающий
 
Регистрация: 16.03.2013
Сообщения: 151
Версия Delphi: Delphi 2010
Репутация: 10
По умолчанию

Цитата:
Сообщение от M.A.D.M.A.N.
Ща, если найду регулярку, кину пример.

Вот:
[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+

Это то я понял, я имел ввиду кудп мне это вставить, чтобы это все дело отфильтровалось
Ответить с цитированием
  #7  
Старый 10.04.2013, 17:57
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Google: Delphi+RegExp

http://regexpstudio.com/RU/TRegExpr/TRegExpr.html

Там демки есть, думаю разберешься.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
Этот пользователь сказал Спасибо M.A.D.M.A.N. за это полезное сообщение:
cyborgg4655 (10.04.2013)
  #8  
Старый 10.04.2013, 18:21
cyborgg4655 cyborgg4655 вне форума
Начинающий
 
Регистрация: 16.03.2013
Сообщения: 151
Версия Delphi: Delphi 2010
Репутация: 10
По умолчанию

Цитата:
Сообщение от M.A.D.M.A.N.
Google: Delphi+RegExp

http://regexpstudio.com/RU/TRegExpr/TRegExpr.html

Там демки есть, думаю разберешься.

Огромнейшее спасибо, как раз то, что нужно!!
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:06.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter