InstrRev 函式

傳回一個字串在另一個字串內從結尾開始出現的位置。

語法

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

引數：

• string1：必要。要搜尋的字串表示式。
• string2：必要。要搜尋的目標字串表示式。
• Start：選擇性。設定每個搜尋開始位置的數值表示式。如果省略，則會使用 -1，表示搜尋會從最後一個字元位置開始。如果 start 包含 Null，則會發生錯誤。
• Compare：選擇性。指出評估子字串時要使用之比較類型的數值。如果省略，則會執行二進位比較。如需相關值，請參閱「設定值」區段。
• 設定值：Compare 引數可具有下列值：

  表格 11-17 比較常數與描述

  常數	值	描述
  vbBinaryCompare	0	執行二進位比較
  vbTextCompare	1	執行文字比較

傳回值

InStrRev 函式會傳回下列值：

備註

下列範例使用 InStrRev 函式來搜尋字串：

範例 1：

Dim SearchString, SearchChar, MyPos
SearchString ="abcdABCD"   ' String to search in.
SearchChar = "a"   ' Search for "a"
MyPos = InstrRev(SearchString, SearchChar)  ' Default Comparison is binary and starting at the last position (Third and Fourth argument is omitted)
'Output: 1

範例 2：

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"   ' String to search in.
SearchChar = "P"   ' Search for "P".
MyPos = InstrRev(SearchString, SearchChar, 8)   ' Comparison is binary by default (last argument is omitted). 
'Output: 0

範例 3：

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"   ' String to search in.
SearchChar = "P"   ' Search for "P".
MyPos = InstrRev(SearchString, SearchChar, 10, 0)   ' A binary comparison starting at position 10. 
'Output: 9
MyPos = InstrRev(SearchString, SearchChar, -1, 1)   ' A textual comparison starting at the last position.
'Output: 12

範例 4：

Dim SearchString, SearchChar, MyPos
SearchString ="abcdABCD"   ' String to search in.
SearchChar = "a"   ' Search for "a"
MyPos = InstrRev(SearchString, SearchChar, -1, 0)   ' A binary comparison starting at the last position.
'Output: 1
MyPos = InstrRev(SearchString, SearchChar, -1, 1)   ' A textual comparison starting at the last position.
'Output: 5