Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция в Excel с помощью регулярных выражений / 2 сообщений из 2, страница 1 из 1
06.02.2016, 19:52
    #39164838
Ser123
Ser123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция в Excel с помощью регулярных выражений
Добрый день!

Хочу сделать функцию в Excel, с помощью регулярного выражения, но не знаю как к ней подойти, вернее, не знаю как задать на поиск некий диапазон данных.

Пример: я хочу сделать функцию вида = FINDTXT( strSourse, rangeFindtxt), где

strSourse - текстовая строка в ячейке, в которой будет производится поиск
rangeFindtxt - диапозон ячеек со словами, которые необходимо найти

Это будет выглядеть так: = FINDTXT( A1, B1:B3)


№B1яблоки2груши3цветы

Я не знаю как в Pattern регулярки передать на поиск любого значения массива.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.02.2016, 20:33
    #39164849
Ser123
Ser123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция в Excel с помощью регулярных выражений
Эх, вроде сам справился, может не совсем красиво, но вот:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Public Function FINDTXT(data, text_find) As String

'text_find

Dim myRegExp As New RegExp


For Each Formula In text_find

With myRegExp
.MultiLine = False
.Global = False
.IgnoreCase = True
.Pattern = Formula.Value
End With

If myRegExp.Test(data) Then
Set colMatches = myRegExp.Execute(data)
FINDTXT = colMatches(0)
Exit Function
  Else
FINDTXT = "НЕТУ"
End If

Next


End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция в Excel с помощью регулярных выражений / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]