Сравнение с использованием Like и Is

07-10-Сравнение строк с шаблонами.docm - пример к п. 7.12.

Оператор Like используется для сравнения строк с шаблонами. Шаблон - это особым образом записанная последовательность символов. При построении шаблонов используются специальные символы, приведенные в табл. 7.5.

После построения шаблона его заключают в кавычки.

Давайте рассмотрим пример, реализующий следующие проверки.

• Узнать, есть ли в строке прописные и заглавные буквы латинского алфавита.
• Проверить, состоит ли введенное слово из четырех символов (цифр или букв)
• Проверить, состоит ли введенная последовательность из двух любых символов (цифр или букв) и двух цифр
• Проверить, нет ли во введенной строке русских букв " а " и " о "
• Если введенная строка начинается двумя буквами " d " и заканчивается тремя буквами " f ", сообщить об этом

В листинге 7.19. вы можете найти решение этой задачи

Dim str_Inp As String

str_Inp = InputBox("Введите строку")

'Есть ли латинские буквы в строке

If str_Inp Like "*[a-z]*" Or _

str_Inp Like "*[A-Z]*" _

Then MsgBox ("В строке есть латинские буквы")

'Состоит ли введенное слово из 4-х символов

If str_Inp Like "????" Then _

MsgBox ("Введенное слово состоит из 4-х символов")

'Состоит ли введенная последовательность

'из 2-х любых символов и 2-х цифр

If str_Inp Like "??##" Then _

MsgBox ("Введены два любых символа и две цифры")

'Проверка на отсутствие букв

'"а", "о"

If str_Inp Like "[!а]" And _

str_Inp Like "[!о]" Then

MsgBox ("В строке нет букв " + Chr(34) + _

"а" + Chr(34) + " и " + Chr(34) + "о" + Chr(34))

End If

'Проверка на наличие в начале

'введенной строки двух букв "d", а в конце

'трех "f"

If str_Inp Like "dd*fff" _

Then MsgBox ("Строка имеет вид: dd*fff")