Split函数
描述
返回一个下标从零开始的一维数组,它包含指定数目的子字符串
语法
Split(expression[, delimiter[, limit[, compare]]])
Dim mutname As String
Dim mut
Dim count As Integer
mut = Split(mutname, ",")
count = (UBound(mut) - LBound(mut) + 1)
使用Split切分后,用(UBound(mut) - LBound(mut) + 1)获取该数组的个数