VPF::регулярные выражения - Форум программистов

buravchik

Дата 16.1.2007, 16:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 16.1.2007

Репутация: нет
Всего: нет

Добрый день. Как мне получить список директории (включая поддиректории), найти все файлы (txt), где встречаются e-mail адреса и вывести эти e-mail адреса в отдельный файл?

mihanik

Дата 16.1.2007, 16:43 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Не понял вопроса...

Эту задачу нужно разбить по крайней мере на 2-3 этапа.

этап 1. Получение списка текстовых файлов и запись этого списка в какой-нибудь файл.
этап 2. Открывать каждый текстовый файл и парсить его на предмет наличия электронного адреса.

Добавлено @ 16:44
Давай, создавай для каждого вопроса отдельный топик.
Мы поможем!!

Это сообщение отредактировал(а) mihanik - 16.1.2007, 16:44

--------------------

Программистами не рождаются, - это родовая травма...

~FoX~

Дата 16.1.2007, 16:48 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68

1. findfirs, findnext, findclose....FSO.....etc.....
2. Парсинг по критериям - наличеи собаки "@", перед собакой имя, которое может содержать разделительные знаки, после собаки имя домена, которое может содержать разделительные занки...

Тема поиска файлов, парсинга строк и выявляения в строках мэил адресов поднималась не раз....Поиск рулез

--------------------

…множественность никогда не следует полагать без необходимости…

buravchik

Дата 16.1.2007, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 16.1.2007

Репутация: нет
Всего: нет

Собственно, это я и хотел сказать. Нужно получить список электронных адресов из txt файлов данной (выбранной) директории (соответственно вместе с поддиректориями). Какие мысли будут? У кого нибудь есть примеры?

mihanik

Дата 16.1.2007, 17:13 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Уважаемый buravchik!

~FoX~ и Ваш покорный слуга дали Вам некоторые идеи.

Отделите мух и щи.
Будем решать задачи по очереди.
Создавайте топик с вопросом о том, как найти список всех файлов и отдельно от него топик с вопросом о том, как парсить текст на наличие в нём адресов почты.

У меня складывается впечатление, что Вы хотите, чтобы за Вас всё решили...

Я прав?

--------------------

Программистами не рождаются, - это родовая травма...

buravchik

Дата 16.1.2007, 17:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 16.1.2007

Репутация: нет
Всего: нет

Не совсем. Я уже получил все файлы с данным разрешением (Create Object, GetFolder). осталось только распарсить, найти адреса почты.

mihanik

Дата 16.1.2007, 22:13 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Ок!!!

Как я произвожу парсинг смотрите в теме "Проблемы с парсингом текстовой строки "

pattern для поиска e-mail адреса можно использовать такой

Цитата

"(\w+)@(\w+)\.(\w+)"

или такой

Цитата

"\w+\@[.\w]+"

Добавлено @ 22:22
Дополнительную литературу по регулярным выражениям можно посмотреть в MSDN.

Добавлено @ 22:25
Вот ЗДЕСЬ написано

Цитата

Совет 267. Используйте VB-объект RegExp для проверки синтаксиса адреса электронной почты
В современных приложениях часто бывает необходимо, чтобы пользователь вводил информацию о своей компании, включая адрес электронной почты. При этом нужно быть уверенным не только в том, что такой адрес содержит знак @ и точку, но и в том, что все остальные символы представлены буквами, числами или знаками подчеркивания. На первый взгляд такая задача может показаться не очень простой, если вы будете пользоваться только стандартными VB-функциями обработки строк. К счастью, в VB существует объект RegExp, который существенно упрощает работу.

Однако прежде чем приступить к использованию этого объекта в VB, следует загрузить библиотеку VBScript 5.0 DLL.

После установки библиотеки в диалоговом окне References в VB появится строка Microsoft VBScript Regular Expressions. Добавьте эту ссылку к проекту — и можно приступать к работе. Следующий код проверяет адрес электронной почты, который вводится в текстовом поле Text1:

Листинг 1.
Dim myReg As RegExp
Private Sub Form_Load()
    Set myReg = New RegExp
    myReg.IgnoreCase = True
    myReg.Pattern = "^[\w-\.]+@\w+\.\w+$"
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
    Cancel = Not myReg.Test(Text1)
End Sub

Приведенный в этом коде шаблон может принимать любое количество числовых и буквенных символов, символов подчеркивания, десятичной точки и тире перед знаком @, но только числа, буквы и символы подчеркивания до и после точки.

--------------------

Программистами не рождаются, - это родовая травма...

buravchik

Дата 17.1.2007, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 16.1.2007

Репутация: нет
Всего: нет

Всем спасибо за помощь! Получилось

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »