[VBScript] InStrRev関数

>Blog Top Page >[VBScript] Top Page >[VBScript] 関数 一覧

■構文
InstrRev(stringcheck, stringmatch[, start[, compare]])

■説明
文字列の後方から検索し最初に一致した文字位置(先頭基準)を返す
第一引数：検索対象の文字列を指定。
第二引数：検索対象文字列内から探し出す文字列を指定。
第三引数：(省略可能)検索の開始位置を示す値を指定。省略時、-1が使用され、最後の文字から検索します
第四引数：(省略可能)文字列比較の比較モードを指定。省略時、Option Compareステートメントの設定にしたがいます。

定数	値	説明
vbUseCompareOption	-1	Option Compare ステートメントの設定を使用して比較を行います。
vbBinaryCompare	0	バイナリ モードの比較を行います。
vbTextCompare	1	テキスト モードの比較を行います。

■サンプルコード

Option Explicit

'一番最初の文字にヒットすると１を返します。
Wscript.Echo InStrRev("Visual Basic", "V") '1
    
'ヒットしない場合は0を返す
Wscript.Echo InStrRev("Visual Basic", "X") '0

'検索開始位置を指定
Wscript.Echo InStrRev("Visual Basic", "i")    '11
Wscript.Echo InStrRev("Visual Basic", "i", 3) '2
  
'文字列比較、デフォルト(バイナリモード)、テキストモードの比較
'大文字/小文字
Wscript.Echo InStrRev("Aa", "a", 1)                '0
Wscript.Echo InStrRev("Aa", "a", 1, vbTextCompare) '1

'全角/半角
Wscript.Echo InStrRev("ＡA", "A", 1)                '0
Wscript.Echo InStrRev("ＡA", "A", 1, vbTextCompare) '1

'ひらがな/カタカナ
Wscript.Echo InStrRev("あア", "ア", 1)                '0
Wscript.Echo InStrRev("あア", "ア", 1, vbTextCompare) '1

>Blog Top Page >[VBScript] Top Page >[VBScript] 関数 一覧