VBA InStrRev()函式

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