Split函数

描述

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

Function StrSplit( SourceStr As String, StrArray() As String,delimeter As String) As Long
   Local nCount As Long
   If SourceStr = "" Then
        Function=-1
        Exit Function
   End If
   ReDim StrArray( ParseCount(SourceStr, delimeter)-1 ) As String
   Parse SourceStr, StrArray(),  delimeter
   nCount =UBound(StrArray())+1
   Function = nCount
End Function