[VBScript] InStr関数

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

■構文
InStr([start, ]string1, string2[, compare])

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

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

■サンプルコード

view plainprint?

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

Option Explicit

'一番最初の文字にヒットすると１を返します。
Wscript.Echo InStr("Visual Basic", "V") '1

'一番最後の文字にヒットする場合　Len(文字列)と同じ値になります
Wscript.Echo InStr("Visual Basic", "c") '12
Wscript.Echo Len("Visual Basic")        '12
    
'ヒットしない場合は0を返す
Wscript.Echo InStr("Visual Basic", "X")    '0

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

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

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

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