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 (文本1 As String, 文本2 As String [,起始 As Long] [, 比较 As Integer])

返回值:

Long

参数:

「文本1」:要在其中进行搜索的字符串表达式。

「文本2」:要搜索的字符串表达式。

「开始」:可选的数字表达式，用于标记字符串中「从左侧开始」的位置，从该位置开始搜索指定的子字符串。如果省略此参数，搜索将从字符串的最后一个字符开始。允许的最大值为 65535。

「比较」:可选的数字表达式，用于定义比较的类型。该参数的值可以是

1: 默认值 1 指定不区分大小写的文本比较。

0: 值 0 指定区分大小写的二进制比较。

为了避免运行时错误，如果省略了第一个返回参数，请不要设置 Compare 参数。

错误代码:

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