Текущий архив: 2002.10.31;
Скачать: CL | DM;

Вниз

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

← →
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;

может это немного грубовато, но все-таки...

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.10.31;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.009 c