InStrRev 函数 [VBA]

返回字符串在另一个字符串中的位置,从字符串的右侧开始。

警告图标

该功能或常量可通过以下语句启用: Option VBASupport 1,该语句需要放置在模块的每个可执行程序代码的前面。


InStrRev函数从右侧返回找到匹配的位置。 如果未找到该字符串,则该函数返回0。

语法:

InStrRev (Text1 As String, Text2 As String [,Start As Long] [, Compare As Integer])

返回值:

Long

参数:

Text1: 要在其中进行搜索的字符串表达式。

Text2: 要搜索的字符串表达式。

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

Compare: 可选的数值表达式,用于定义比较的类型。 该参数的值可以是

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) ' 返回 1, 搜索时区分大小写

 Print iPos 

 iPos = InStrRev(sInput,"the",10,0) ' 返回 0, 搜索时区分大小写

 Print iPos

End Sub