VBA InString反轉
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