Проблема с Регулярными выражениями

← →
Vasechkin © (2002-10-21 18:34) [0]

Народ кто-нить напишет бедолаге кусок кода, делающий следующее:
а)Вытягивает из указанных файлов в ListBox2
.html .txt и т.д. e-mail адреса и выводить их в ListBox1.
б)Здесь немного сложнее. Ищет в указаной папке и подпапках
файлы с указанными расширениями и добавляет их в ListBox2,
а затем вытягивает из них мыла.
в)проверяет нет ли одинаковых мыл в списке ListBox1
Ну вот вроде бы и все... Помогите мне!

← →
Ricks © (2002-10-21 18:56) [1]

Начет а). Ищещ в тексте "mailto:" а потом читаешь, mail komu. Кусок кода типа
var F : File of Byte; Buf : array[0..6] of Char; //mail to begin while not EOF(F) do BlockRead(F, Buf, 7); if Buf = "mailto:" then... end;
может это немного грубовато, но все-таки...

ЗЫ:как правильно писать "ищещ" или "искаешь", запутался :-)))

Проблема с Регулярными выражениями Найти похожие ветки