Функція InStrRev [VBA]

Повертає позицію рядка в іншому рядку, починаючи від правого краю.

This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.

Функція InStrRev повертає позицію, в якій було виявлено збіг, починаючи з правого краю. Якщо рядка не було виявлено, то функція повертає 0.

Синтаксис:


InStrRev (StringCheck As String, StringMatch As String [,Start As Long] [, Compare As Integer])

Повертає значення:

Long

Параметри:

StringCheck: The string expression that you want to search.

StringMatch: The string expression that you want to search for.

Початок. Не обов'язкове число, яке вказує початкову позицію від лівого краю в рядку, з якої треба почати пошук зазначеного підрядка. Якщо цей параметр опущено, то пошук починається з останнього символу рядка. Максимально допустиме значення - 65535.

Порівняння: Не обов'язковий числовий вираз, який визначає тип порівняння. можливі такі значення:

1: типове значення 1 означає, що при порівнянні не враховуватиметься регістр.

0: Значення 0 визначає двійкове порівняння з урахуванням регістру.

To avoid a run-time error, do not set the Compare parameter if the first return parameter is omitted.

Коди помилок:

5 Неправильний виклик процедури

Приклад:


Sub ExamplePosition
Dim sInput As String
Dim iPos As Integer
 sInput = "The book is on the table"
 iPos = InStrRev(sInput,"the",10,1) ' Returns 1, search is case-insensitive
 Print iPos 
 iPos = InStrRev(sInput,"the",10,0) ' Returns 0, search is case-sensitive
 Print iPos
End Sub

InStr