VBA InString反转

InStrRev函数返回另一个字符串中的一个字符串的第一次出现位置。搜索从右到左。

语法 :

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

说明：

• String1, 必需的参数。要搜索的字符串。

• String2, 必需的参数。字符串对其中的String1搜索。

• Start, 一个可选的参数。指定用于搜索的起始位置。搜索开始于从右到左的第一个位置。

• Compare, 一个可选的参数。指定字符串比较中使用。它可以采取下述值：

  • 0 = vbBinaryCompare - 执行二进制比较(默认)

  • 1 = vbTextCompare - 执行文本比较

示例:

添加一个按钮并把下面的功能替换。

Private Sub Constant_demo_Click()
  var="Microsoft VBScript"
  msgbox("Line 1 : " & InStrRev(var,"s",10))
  msgbox("Line 2 : " & InStrRev(var,"s",7))
  msgbox("Line 3 : " & InStrRev(var,"f",-1,1))
  msgbox("Line 4 : " & InStrRev(var,"t",5))
  msgbox("Line 5 : " & InStrRev(var,"i",7))
  msgbox("Line 6 : " & InStrRev(var,"i",7))
  msgbox("Line 7 : " & InStrRev(var,"VB",1))
End Sub

在执行上面的脚本，它产生了以下结果：

Line 1 : 6
Line 2 : 6
Line 3 : 8
Line 4 : 0
Line 5 : 2
Line 6 : 2
Line 7 : 0