42.Тип данных строка. Функции InStr, IntStrRev

Функция InStr. Возвращает значение типа Variant (Long), указывающее позицию первого вхождения одной строки внутри другой строки.

InStr([start, ]string1, string2[, compare])

start - Необязательный. Числовое выражение, задающее позицию, с которой начинается каждый поиск. Если этот аргумент опущен, поиск начинается с первого символа строки. Если start имеет значение Null, возникает ошибка. Указание аргумента start является обязательным, если указан аргумент compare.

string1 - Обязательный. Строковое выражение, в котором выполняется поиск.

string2 - Обязательный. Искомое строковое выражение.

compare - Необязательный. Указывает способ сравнения строк. Аргумент compare может быть опущен или иметь значение 0, 1 или 2. Чтобы выполнить двоичное сравнение, следует указать 0 (это значение используется по умолчанию). Чтобы выполнить посимвольное сравнение без учета регистра, следует указать 1. Только в Microsoft Access допускается использование значения 2 для выполнения сравнения на основании сведений, содержащихся в базе данных. Если аргумент compare имеет значение Null, возникает ошибка. Если аргумент compare опущен, способ сравнения строк определяется значением параметра инструкции Option Compare.

Пример:

Если string1 является пустой строкой, то значение функции InStr = 0

Если string1 имеет значение Null, то значение функции InStr = Пустое значение

Если string2 является пустой строкой, то значение функции InStr = start

Если string2 имеет значение Null, то значение функции InStr = Пустое значение

Если string2 не найдена, то значение функции InStr = 0

Если string2 найдена в string1, то значение функции InStr = Позиция обнаруженной подстроки

Если start > string2, то значение функции InStr = 0

Пример:

Если string1 = "Иванов Иван Иванович", а string2 = "Иван", то:

InStr(1, string1, string2) = 1

InStr(2, string1, string2) = 8

InStr(9, string1, string2) = 13

InStr(14, string1, string2) = 0

Возвращает позицию первого вхождения одной строки в другую, начиная с правого конца строки.

Public Function InStrRev(

ByVal StringCheck As String,

ByVal StringMatch As String,

Optional ByVal Start As Integer = -1,

Optional ByVal Compare As CompareMethod = CompareMethod.Binary

) As Integer

Параметры

StringCheck Обязательный. Строковое выражение, в котором ведется поиск.

StringMatch Обязательный. Строковое выражение, которое требуется найти.

Start Дополнительный. Числовое выражение, устанавливающее начальную позицию (от единицы) для каждой операции поиска, начиная с левого края строки. Если параметр Start пропущен, то используется значение "–1", означающее начало поиска с последней позиции символа. После этого строка просматривается справа налево.

Compare Дополнительный. Числовое значение, которое указывает вид сравнения, выполняемого при оценке подстрок. Если этот аргумент опущен, то выполняется двоичное сравнение. Возможные значения см. в разделе "Параметры".

Примеры:

Dim TestString As String = "the quick brown fox jumps over the lazy dog"

Dim TestNumber As Integer

' Returns 32.

TestNumber = InStrRev(TestString, "the")

' Returns 1.

TestNumber = InStrRev(TestString, "the", 16)