VB中的split 函数，分割后有多少个字符

VB使用Split函数实现分割多个以相同标识符组成的字字符串。

• Split函数

  描述，返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

  

  
  

  

Function testSplit()
Dim a As String
a = "1,2,3,4,dsd-ad5,6,45,656465,564,45"
Dim b() As String
b() = Split(a, ",")
Debug.Print b(4)
End Function
解释如下：
Split函数
返回一个从零开始的一维数组，其中包含指定数量的子字符串。

FunctionSplit(
ByVal Expression As String,
Optional ByVal Delimiter As String = " ",
Optional ByVal Limit As Integer = -1,
Optional ByVal Compare As CompareMethod = CompareMethod.Binary
) As String()
参数
Expression
必选项。字符串表达式，包含子字符串和分隔符。如果 Expression 是零长度的字符串 ("")，Split 函数将返回长度为一的数组，其中包含一个空字符串。
Delimiter
可选项。单个字符，用于标识子字符串的界限。如果省略了 Delimiter，则假定空白字符 ("") 为分隔符。如果 Delimiter 为零长度字符串，则返回包含整个 Expression 字符串的单元素数组。
Limit
可选项。要返回的子字符串数；默认值为 -1，表示返回所有子字符串。
Compare
可选项。数值，指示计算子字符串时使用的比较模式。具体的值请参见“设置”。

计算 UBound(b) - LBound(b) + 1 就知道b数组有几个值了。
注意，实际计算结果为10，因为a字符串最后有一个空格，所以分割后最后会多一个空值。

ubound(b)

可以输出一下b数组的大小就行了，b.length或者b.count吧