VBA Instr函数
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