Проверка текста по маске

В языке Visual Basic существует один крайне полезный оператор, называемый Like. Он умеет проверять подобие (похожесть) двух текстовых строк. К сожалению, в стандартном наборе функций этот оператор не нашел своего места, но очень легко создать пользовательскую функцию, которая будет это делать.

Откройте меню Сервис - Макрос - Редактор Visual Basic, вставьте новый модуль (меню Insert - Module) и скопируйте туда текст этой функции:

Function MaskCompare(txt As String, mask As String, CaseSensitive As Boolean)
If Not CaseSensitive Then
txt = UCase(txt)
mask = UCase(mask)
End If

If txt Like mask Then
MaskCompare = True
Else
MaskCompare = False
End If
End Function

Закройте редактор Visual Basic и вернитесь в Excel.

Теперь в Мастере функций в категории Определенные пользователем можно найти нашу функцию MaskCompare и воспользоваться ей. Синтаксис функции следующий:

=MaskCompare(txt; mask; CaseSensitive)

где

txt - любой текст или ячейка с текстом, которую мы проверяем на соответствие маске

mask - набор символов, которые ищутся в проверяемом тексте. Набор может содержать спецсимволы подстановки:

·	* - любое количество любых символов

·	? - один любой символ

·	# - любая цифра (0 - 9)

·	[список_символов] - любой символ из списка

·	[!список_символов] - все символы, кроме содержащихся в списке

Case_Sensitive - необходимо ли учитывать регистр при проверке:

·	1 - регистр символов учитывается

·	0 - регистр символов не учитывается

Примеры использования функции

Использование спецсимволов в маске открывает перед пользователем широчайшие возможности. Вот несколько примеров масок:

·	### - все числа от 0 до 999

·	????? - все слова из 5 букв

·	м*н - все слова, начинающиеся на "м" и заканчивающиеся на "н"

·	[аостр] - все слова, содержащие хотя бы одну из букв а,о,с,т,р

·	[!abcdefghijklmnopqrstuvwxyz] - все слова НЕ содержащие английских букв

к библиотеке 3GL к оглавлению к экономической информатике 4GL - визуальным средам

Знаете ли Вы, что, как и всякая идолопоклонническая религия, релятивизм представляет собой инструмент идеологического подчинения одних людей другим с помощью абсолютно бессовестной манипуляции их психикой для достижения интересов определенных групп людей, стоящих у руля этой воровской машины? Подробнее читайте в FAQ по эфирной физике.

НОВОСТИ ФОРУМА

Рыцари теории эфира