[cyborgg4655]

Есть txt файл, в нем нужно найти все e-mail'ы тоесть фильтр поиска примерно такой '%'+'@'+'%'+'.ru'.
Каждый раз когда он находит email он его должен заносить в ListBox...
Помогите организовать это плз

[NumLock]

делай так же как здесь: http://www.delphisources.ru/forum/sh...ad.php?t=23914

[cyborgg4655]

Сообщение от NumLock

делай так же как здесь: http://www.delphisources.ru/forum/sh...ad.php?t=23914

я там ниче не сделал) решил что проще брать исходный колд, записывать в txt и делать выборку, но хз как эту выборку реализовать(

[Alegun]

Вроде все нормально копируется

Код:

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;

[Страдалецъ]

А у вас что, только одна строка во всем документе содержит ">". Сильно сомневаюсь.

[Alegun]

Сообщение от Страдалецъ

А у вас что, только одна строка во всем документе содержит ">". Сильно сомневаюсь.

ТС тут примерчик притаранил, выходит именно так.

З.Ы. Исправил.

[Страдалецъ]

Чавой-то не открывается ссылочка.
А вооще смотрим первый пост:

Есть txt файл, в нем нужно найти все e-mail'ы

Я понимаю это так, что предполагается явно больше 1 адреса на документ. Хорошо, если один адрес в одной строке и тогда согласен, приведенный вариант кода прокатит, ну а если будет несколько адресов одной строкой?
<a href="mailto:stolyarov63@gmail.com">stolyarov63@gm ail.com</a><a href="mailto:stolyarov64@gmail.com">stolyarov64@gm ail.com</a>

[Alegun]

Сообщение от Страдалецъ

...Я понимаю это так, что предполагается явно больше 1 адреса на документ...

Да нет, всё проще. Предпологается текстовый файл со строками такого типа

<a href="mailto:stolyarov63@gmail.com">stolyarov63@gm ail.com</a>
<a href="mailto:stolyarov64@gmail.com">stolyarov64@gm ail.com</a>
<a href="mailto:stolyarov65@gmail.com">stolyarov65@gm ail.com</a>
<a href="mailto:stolyarov67@gmail.com">stolyarov67@gm ail.com</a>
<a href="mailto:stolyarov68@gmail.com">stolyarov68@gm ail.com</a>
<a href="mailto:stolyarov6N@gmail.com">stolyarov6N@gm ail.com</a>

и других вариантов нет.

З.Ы. Забыл в коде последнюю строчку исправить

Код:

...
ListBox1.Items.Add(mail);
...

[cyborgg4655]

Там предопологалось, что в txt файле исходный код страницы, а среди этого кода есть имейлы какраз)

Все легко решилось, я немного доработал код который мне подкинул MADMAN http://regexpstudio.com/RU/TRegExpr/TRegExpr.html

Сделал кнопку чтобы из текстовика все в мемо подгружалось, потом там уже была кнопка которая выбирает из того, что находтся в мемо имейлы, но они получались по 2 раза естественно, и я поять доработал код чтобы повторяющиеся строки удалялись и это все добро сохранялось в текставик) Потом написал ещё 1 прогу, котрая в несколько потоков исползьует SMTP и Messages, каждый поток берет свой диапазон в этом списке и с интервалом в 40 секунд отправляет по письму, пока весь список не кончится. Но это не корыстный спам) А это для рекламы нужно) 1 раз тупо разослать, без переодичностей.

[M.A.D.M.A.N.]

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

З.Ы. Пора эту фразу в подпись воткнуть.

[Страдалецъ]

Но это не корыстный спам) А это для рекламы нужно) 1 раз тупо разослать, без переодичностей.

Да что вы говорите? Это и есть спам в чистом виде.
«СПАМ» - массовая рассылка различных видов рекламы, сообщений иного рода пользователям Сети, не выразившим согласия их получать. В первую очередь это относится к электронной почте и сообщениям службы ICQ. Поэтому были выработаны правила сетевого взаимодействия, направленные на ограждение пользователя от ненужной информации (СПАМа).
У нас это считается административным правонарушением, а вот в том-же Китае за такое "просто" можно получить вполне реальный срок. Они там ребята сурьезные.

[M.A.D.M.A.N.]

А еще СПАМ - это тушенка