Гость
Войти | Профиль | Очистить
Действия ...
Форумы / 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):
Польз. соглашение
созд. / загр.: 166ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2155633]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 67ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 37ms
get tp. blocked users:
 2ms
others: 11ms
total:  166ms
x
x
Закрыть


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