[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	テキスト モードの比較を行います。

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. '一番最初の文字にヒットすると１を返します。  
4. Wscript.Echo InStrRev("Visual Basic", "V") '1  
5.       
6. 'ヒットしない場合は0を返す  
7. Wscript.Echo InStrRev("Visual Basic", "X") '0  
8.   
9. '検索開始位置を指定  
10. Wscript.Echo InStrRev("Visual Basic", "i")    '11  
11. Wscript.Echo InStrRev("Visual Basic", "i", 3) '2  
12.     
13. '文字列比較、デフォルト(バイナリモード)、テキストモードの比較  
14. '大文字/小文字  
15. Wscript.Echo InStrRev("Aa", "a", 1)                '0  
16. Wscript.Echo InStrRev("Aa", "a", 1, vbTextCompare) '1  
17.   
18. '全角/半角  
19. Wscript.Echo InStrRev("ＡA", "A", 1)                '0  
20. Wscript.Echo InStrRev("ＡA", "A", 1, vbTextCompare) '1  
21.   
22. 'ひらがな/カタカナ  
23. Wscript.Echo InStrRev("あア", "ア", 1)                '0  
24. Wscript.Echo InStrRev("あア", "ア", 1, 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] 関数 一覧