Поиск текста в строке

Изменение регистра символов в строке

Для изменения регистра символов в строке предусмотрены две специальные функции: UCase () и LCase (). Функция UCase () возвращает переданную ей в качестве аргумента строку, все символы которой преобразованы в верхний регистр. Функция LCase () выполняет обратную задачу, конвертирует символы исходной строки в нижний регистр.

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

Синтаксис этих команд следующий:

Строка2 = UCase (Строка1);

Строка3 = LCase (Строка1).

Где Строка1 может быть набрана как прописными так и строчными буквами, Строка2 – результат работы функции UСase – строка, содержащая только прописные буквы, а Строка3 – результат работы функции LСase – строка, содержащая только строчные буквы.

Например:

UCase ("Visual Basic") возвращает " Visual Basic ";

LCase ("Visual Basic") возвращает " visual basic "

При работе со строками зачастую нужно выяснить, не встречается ли заданное слово, фраза или любая другая последовательность символов в некоторой строке, и если — да. то в каком именно месте. В Visual Basic предусмотрены средства поиска одной строки в другой. С их помощью можно создавать программы для поиска нужных слов в тексте, а также для их последующей замены другими словами. Например, может понадобиться в тексте какого-нибудь документа заменить слово текст словом строка.

С помощью функции InStr () можно выполнять поиск в строке как отдельного символа, так и целой группы символов. У описываемой функции есть два обязательных и два необязательных параметра. К обязательным параметрам относятся строка, в которой выполняется поиск, и строка. содержащая искомые символы. Если заданная последовательность символов найдена, функция InStr () возвращает номер первого совпадающего символа в исходной строке, начиная с единицы. Если последовательность символов не найдена, функция InStr () возвращает нулевое значение. В простейшем случае, синтаксис функции InStr () выглядит следующим образом:

НомерПервогоСимвола = InStr (ИсходнаяСтрока, ИскомаяСтрока)

Например, в результате выполнения строки кода

Print InStr('Я встречу вас во вторник", "вас")

будет напечатано число 11, поскольку слово вас расположено в исходной строке с 11 позиции от начала.

С помощью первого (необязательного) параметра функции InStr () можно указать начальную позицию в исходной строке, с которой нужно начинать поиск. Данный параметр должен быть положительным целым числом. Если начальная позиция больше длины строки, функция InStr () возвращает нулевое значение. В данном случае, синтаксис функции InStr () выглядит следующим образом:

НомерПервогоСимвола = InStr (НачальнаяПозиция, ИсходнаяСтрока, ИскомаяСтрока)

Например, в результате выполнения строки кода

Print Instr(7,"KTO не работает, тот ест", "е")

будет напечатано число 14, несмотря на то, что первая буква е встречается в данной фразе на 6-й позиции. Причина состоит в том. что мы заказали поиск символа е в строке, начиная с 7-й позиции.

Еще один необязательный параметр определяет, будет ли выполняться поиск без учета или с учетом регистра букв. В последнем случае одноименные строчные и прописные буквы будут восприниматься как совершенно разные символы. Если установить значение данного параметра равным 0 (принято по умолчанию), будет выполнен поиск с учетом регистра букв. Чтобы выполнить поиск без учета регистра букв, присвойте данному параметру значение 1. Синтаксис функции InStr (), для выполнения поиска без учета регистра букв выглядит следующим образом:

НомерПервогоСимвола = InStr(На чальнаяПозиция, ИсходнаяСтрока, ИскомаяСтрока, 1)

С помощью последнего необязательного параметра можно найти все вхождения заданной цепочки символов в исходной строке.

Для выполнения поиска в обратном направлении в Visual Basic предусмотрена еще одна функция, которая называется InStrRev(). Принцип ее работы совпадает с функцией InStr (), только синтаксис немного отличается:

InStrRev (Исходная_Строка, Искомая_Строка [, Начальная_Позиция ])

Основное отличие состоит в том, что параметр Начальная_Позиция, указывающий начальную позицию в исходной строке, с которой будет начат поиск, располагается после самих строк, а не перед ними, как у функции InStr().

Пример: Вывести номера позиций на которых встречается буква «к».

Private Sub Command1_Click()

Text1.Text = "Обычное праздничное блюдо на пикнике - шашлык. Однако можно придумать и что-нибудь оригинальное (запечённую в углях рыбу или мясо, жаренную на вертеле индейку)."

S = Text1

N = InStr(S, "к")

N2 = InStr(N + 1, S, "к")

N3 = InStr(N2 + 1, S, "к")

N4 = InStr(N3 + 1, S, "к")

Text2.Text = N & ", " & N2 & ", " & N3 & ", " & N4

End Sub

Дата добавления: 2014-01-06