VPF::Excel выбрать из текста email - Форум программистов

Prontit

Дата 2.4.2013, 09:42 (ссылка)

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

Загрузка ...

Шустрый

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

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

Добрый день!

Такое дело, есть таблица в Екселе, там колонка "Контакты". Там в произвольной форме написаны контакты клиента, что-то вроде "50-800-65, [email protected]", email может быть в любой части текста. Задача такая, по регульному выражению и/или по формуле вытащить емэйлы в отдельную колонку.

Есть ли какие-то формулы, или только VBA?

Заранее благодарю!

Akina

Дата 2.4.2013, 10:09 (ссылка)

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

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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

Разбить по разделителям, просеять по наличию одного символа "@" за пределами литералов в кавычках. А дальше - проверять глазом. Потому как много народу поломало зубы на создании таких регулярок, и окончательного решения со 100% результатом, похоже, пока нет.

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

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Prontit

Дата 2.4.2013, 11:39 (ссылка)

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

Загрузка ...

Шустрый

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

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

открыть VS или тот же Delphi, подгрузить Excel файл, циклом пройтись по столбцу и выцепить email регуляркой. Неужели по другому никак, и нет в Excel'e похожих функций...

Это сообщение отредактировал(а) Prontit - 2.4.2013, 11:39

Akina

Дата 2.4.2013, 13:58 (ссылка)

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

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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

Prontit, ты RFC по мылам читал? там такое, что ни одна регулярка не поймает всё. Да, 95% поймает, а то и 99%... но не 100%.

Добавлено через 26 секунд
В Экселе готовых функций - нет.

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

Данкинг

Дата 2.4.2013, 14:05 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

А почему нельзя через VBA выбрать слова, содержащие @ ?

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

There's nothing left but silent epitaphs.

Prontit

Дата 2.4.2013, 14:09 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(Данкинг @ 2.4.2013, 14:05)

А почему нельзя через VBA выбрать слова, содержащие @ ?

можно) совсем не знаком с VBA, подскажите?

Hugo121

Дата 2.4.2013, 18:03 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

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

UDF - код в модуль, выбрать в мастере в определённых пользователем.

Код


Function email(S As String)
    Dim v
    Dim EML_PTRN$
    EML_PTRN = "[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}"

    With CreateObject("vbscript.regexp")
        .Pattern = EML_PTRN
        .Global = True
        .IgnoreCase = True
        Set v = .Execute(S)
    End With
    email = v(0).Value
End Function

Poseidon

Дата 5.4.2013, 16:55 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Цитата(Akina @ 2.4.2013, 13:58

)

Prontit, ты RFC по мылам читал? там такое, что ни одна регулярка не поймает всё. Да, 95% поймает, а то и 99%... но не 100%.

Приведи пример реального мыла, которое не поймается регуляркой

Код


[_a-zA-Z\d\-\.]+@([_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+)

Это сообщение отредактировал(а) Poseidon - 5.4.2013, 16:55

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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