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