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