如何把一字符串分开，给段源码！！！

Question

dim a as stringa="232342,2342094,asdllf,q3oja,g,qwoejoaasdjl,asdljopw"dim b()b=split(a,",")
'以逗号为分割点，将字符串分成数组

Answer 1

请问怎么知道split返回的子串有多少个吗？

Answer 2

dim s as string
s="12343.2323121.321312"
x=split(s,".")
deubg.print x(0) '得到 12343
……

Answer 3

ret=ubound(x)
ret就是返回多少个字串

Answer 4

Visual Basic 语言参考   Split 函数请参见
Join 函数
返回一个从零开始的一维数组，其中包含指定数量的子字符串。Function Split(
   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 
可选。数值，指示计算子字符串时使用的比较模式。具体的值请参阅“设置”。 
设置
Compare 参数可以具有下列值：常数 说明 
Binary 执行二进制比较 
Text 执行文本比较 示例
下面的示例说明 Split 函数：Dim myString As String = "Look at these!"
' Returns ["Look", "at", "these!"]
Dim myArray() As String = Split(myString)