Split

Split Function返回一个数组，该数组包含基于分隔符拆分的特定数量的值。

语法 (Syntax)

Split(expression[,delimiter[,count[,compare]]]) 

参数描述 (Parameter Description)

• Expression - 必需参数。 字符串表达式，可以包含带分隔符的字符串。

• Delimiter - 可选参数。 该参数，用于根据分隔符转换为数组。

• Count - 可选参数。 要返回的子字符串数，如果指定为-1，则返回所有子字符串。

• Compare - 可选参数。 此参数指定要使用的比较方法。

  • 0 = vbBinaryCompare - 执行二进制比较

  • 1 = vbTextCompare - 执行文本比较

例子 (Example)

添加按钮并添加以下功能。

Private Sub Constant_demo_Click()
   ' Splitting based on delimiter comma '$'
   Dim a as Variant
   Dim b as Variant
   a = Split("Red $ Blue $ Yellow","$")
   b = ubound(a)
   For i = 0 to b
      msgbox("The value of array in " & i & " is :"  & a(i))
   Next
End Sub

执行上述功能时，会产生以下输出。

The value of array in 0 is :Red 
The value of array in 1 is : Blue 
The value of array in 2 is : Yellow