|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Поиск по txt файлу
Есть txt файл, в нем нужно найти все e-mail'ы тоесть фильтр поиска примерно такой '%'+'@'+'%'+'.ru'.
Каждый раз когда он находит email он его должен заносить в ListBox... Помогите организовать это плз |
#2
|
||||
|
||||
делай так же как здесь: http://www.delphisources.ru/forum/sh...ad.php?t=23914
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
Вроде все нормально копируется
Код:
procedure TForm1.Button1Click(Sender: TObject); var mail: string; begin Edit1.Text:='<a href="mailto:stolyarov63@gmail.com">stolyarov63@gmail.com</a>'; mail:= Copy(Edit1.Text, pos('>',Edit1.Text)+1,Length(Edit1.Text)); mail:= Copy(mail, 1,pos('<',mail)-1); label1.Caption:= mail; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
||||
|
||||
А у вас что, только одна строка во всем документе содержит ">". Сильно сомневаюсь.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#6
|
||||
|
||||
Цитата:
З.Ы. Исправил. Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 10.04.2013 в 17:17. |
#7
|
||||
|
||||
Чавой-то не открывается ссылочка.
А вооще смотрим первый пост: Цитата:
<a href="mailto:stolyarov63@gmail.com">stolyarov63@gm ail.com</a><a href="mailto:stolyarov64@gmail.com">stolyarov64@gm ail.com</a> Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 10.04.2013 в 17:20. |
#8
|
||||
|
||||
Цитата:
Цитата:
З.Ы. Забыл в коде последнюю строчку исправить Код:
... ListBox1.Items.Add(mail); ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 10.04.2013 в 17:45. |
#9
|
|||
|
|||
Там предопологалось, что в txt файле исходный код страницы, а среди этого кода есть имейлы какраз)
Все легко решилось, я немного доработал код который мне подкинул MADMAN http://regexpstudio.com/RU/TRegExpr/TRegExpr.html Сделал кнопку чтобы из текстовика все в мемо подгружалось, потом там уже была кнопка которая выбирает из того, что находтся в мемо имейлы, но они получались по 2 раза естественно, и я поять доработал код чтобы повторяющиеся строки удалялись и это все добро сохранялось в текставик) Потом написал ещё 1 прогу, котрая в несколько потоков исползьует SMTP и Messages, каждый поток берет свой диапазон в этом списке и с интервалом в 40 секунд отправляет по письму, пока весь список не кончится. Но это не корыстный спам) А это для рекламы нужно) 1 раз тупо разослать, без переодичностей. |
#10
|
||||
|
||||
Используй регэкспы (с).
З.Ы. Пора эту фразу в подпись воткнуть. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 11.04.2013 в 10:39. |
#11
|
||||
|
||||
Цитата:
«СПАМ» - массовая рассылка различных видов рекламы, сообщений иного рода пользователям Сети, не выразившим согласия их получать. В первую очередь это относится к электронной почте и сообщениям службы ICQ. Поэтому были выработаны правила сетевого взаимодействия, направленные на ограждение пользователя от ненужной информации (СПАМа). У нас это считается административным правонарушением, а вот в том-же Китае за такое "просто" можно получить вполне реальный срок. Они там ребята сурьезные. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#12
|
||||
|
||||
А еще СПАМ - это тушенка
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |