VBA - Instr 函数
InStr 函数返回一个字符串在另一个字符串中第一次出现的位置。 搜索从左到右进行。
语法
InStr([start,]string1,string2[,compare])
参数说明
Start − 可选参数。 指定搜索的起始位置。 搜索从左到右的第一个位置开始。
String1 − 必需的参数。 要搜索的字符串。
String2 − 必需的参数。 搜索 String1 的字符串。
Compare − 可选参数。 指定要使用的字符串比较。 它可以采用以下提到的值。
0 = vbBinaryCompare - 执行二进制比较(默认)
1 = vbTextCompare - 执行文本比较
示例
添加一个按钮并添加以下功能。
Private Sub Constant_demo_Click() Dim Var As Variant Var = "Microsoft VBScript" MsgBox ("Line 1 : " & InStr(1, Var, "s")) MsgBox ("Line 2 : " & InStr(7, Var, "s")) MsgBox ("Line 3 : " & InStr(1, Var, "f", 1)) MsgBox ("Line 4 : " & InStr(1, Var, "t", 0)) MsgBox ("Line 5 : " & InStr(1, Var, "i")) MsgBox ("Line 6 : " & InStr(7, Var, "i")) MsgBox ("Line 7 : " & InStr(Var, "VB")) End Sub
当您执行上述函数时,它会产生以下输出。
Line 1 : 6 Line 2 : 0 Line 3 : 8 Line 4 : 9 Line 5 : 2 Line 6 : 16 Line 7 : 11