Проблема с Регулярными выражениями [D5, Win95/98]
Vasechkin © (2002-10-21 18:34:00)
Народ кто-нить напишет бедолаге кусок кода, делающий
следующее:
а)Вытягивает из указанных файлов в ListBox2
.html .txt и т.д. e-mail адреса и выводить их в ListBox1.
б)Здесь немного сложнее. Ищет в указаной папке и подпапках
файлы с указанными расширениями и добавляет их в ListBox2,
а затем вытягивает из них мыла.
в)проверяет нет ли одинаковых мыл в списке ListBox1
Ну вот вроде бы и все... Помогите мне!
Ricks (2002-10-21 18:56:00) [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;
может это немного грубовато, но все-таки...
ЗЫ:как правильно писать "ищещ" или "искаешь", запутался :-)))
Наверх 
ЧАТ |
Орешник |
|
