Vba-instrrev-function
提供:Dev Guides
VBA -InString Reverse
InStrRev関数は、ある文字列が別の文字列内で最初に現れることを返します。 検索は右から左に行われます。
構文
InStrRev(string1,string2[,start,[compare]])
パラメータ説明
- String1 -必須パラメーター。 検索する文字列。
- String2 -必須パラメーター。 String1が検索される対象の文字列。
- 開始-オプションのパラメーター。 検索の開始位置を指定します。 検索は、右から左への最初の位置から始まります。
- 比較-オプションのパラメーター。 使用する文字列比較を指定します。 次の値を取ることができます。
- 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