Выборка слов по окончанию либо удаление всего, что не шаблон / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выборка слов по окончанию либо удаление всего, что не шаблон

5 сообщений из 5, страница 1 из 1

Выборка слов по окончанию либо удаление всего, что не шаблон

#38251113

Kreol

Участник

Сообщения: 547

Рейтинг: 0 / 0

Доброй ночи всем.
Ребята подскажите как написать регулярное выражение или формулу для поиска слов с окончаниями ern, hen, ten, men просто en и тд
Нужно из статьи вытащить немецкие глаголы, вручную уже запарился.

Например текст такой:
, फलति °ते (metrisch) Früchte bringen , - tragen , reifen , Folgen haben , in Erfüllung gehen - sich ergeben , resultiren (Comm. zu Nyāyam. 10,1,17) - der Frucht - , des Lohnes theilhaftig werden - Etwas (Acc.) zur Reife bringen , so v.a. erfüllen (Wünsche) , spenden - ausnahmsweise auch mit Instr. der Frucht. फलित1) Adj.a) Früchte tragend , mit Früchten versehen - Früchte gebracht - , Erfolg gehabt habend - in Erfüllung gegangen - vollständig zur Entwickelung gekommen (Kād. 59,19) - als Folge sich ergebend.b) *f. आ menstruirend.2) n. impers. mit Instr. des Subjects.- प्रति Frucht tragen , Lohn bringen Ind. St. 14,389.- वि Früchte ansetzen , zur Reife gelangen.

итог:
bringen reifen , Folgen haben ну и тд.
Пунктуация не имеет значения
Любые варианты приветствуются.
Нужно очень срочно.
Спасибо откликнувшимся.

...

Рейтинг:

0 / 0

08.05.2013, 01:38

| Ответить | Цитировать | Написать

Выборка слов по окончанию либо удаление всего, что не шаблон

#38251169

Kreol

Участник

Сообщения: 547

Рейтинг: 0 / 0

Написал так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Public Function Matchh(astring As Range, Num As Integer) As String
Dim re_http As Object
Set re_http = CreateObject("vbscript.regexp")
re_http.Pattern = "\s?[a-z]+(hen|ern|ten|men)"
Set matches_http = re_http.Execute(astring)
If (matches_http.Count = 0) Then
Matchh = ""
Else
Matchh = matches_http(Num)
End If
End Function

Но оно находит лишь 1-е значение, как вытянуть другие?

...

Рейтинг:

0 / 0

08.05.2013, 07:33

| Ответить | Цитировать | Написать

Выборка слов по окончанию либо удаление всего, что не шаблон

#38251238

Maxim12345678

Гость

Сам я не силен в VBA, но появился такой вариант А что, если засунуть текст в ячейку и организовать поиск по последним трем буквам, а потом копировать слово до и после пробела :) Как-то так :)

...

Рейтинг:

0 / 0

08.05.2013, 09:34

| Ответить | Цитировать | Написать

Выборка слов по окончанию либо удаление всего, что не шаблон

#38251252

пробуй камнем

Гость

Kreol,Но оно находит лишь 1-е значение, как вытянуть другие?

Код: vbnet

re_http.Global = True

...

Рейтинг:

0 / 0

08.05.2013, 09:43

| Ответить | Цитировать | Написать

Выборка слов по окончанию либо удаление всего, что не шаблон

#38251268

Kreol

Участник

Сообщения: 547

Рейтинг: 0 / 0

Благодаря супер мега форуму http://planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=48110&MID=399250#postform
а в особенности ber$erk, ответ закопан там.
Спасибо за помощь, насчет камнем, надо будет попробовать.

...

Рейтинг:

0 / 0

08.05.2013, 09:54

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=38251113&tid=2174827]:	0ms
get settings:	11ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	30ms
get topic data:	10ms
get forum data:	2ms
get page messages:	54ms
get tp. blocked users:	2ms
others:	342ms

total:	471ms