Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c