ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция в Excel с помощью регулярных выражений
2 сообщений из 2, страница 1 из 1
Функция в Excel с помощью регулярных выражений
    #39164838
Ser123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser123
Гость
Добрый день!

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

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

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

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


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

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

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


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