This code like vb's own function called Split
This code like vb's own function called Split
Rate This code like vb's own function called Split
(1(1 Vote))
Dim myArray(), ConcdStr As String
Dim IntCounter, TextLen, ArrCounter As Integer
TextLen = Len(Expression)
For IntCounter = 1 To TextLen
If Mid(Expression, IntCounter, 1) = Delimiter Then
myArray(ArrCounter) = ConcdStr
ConcdStr = ""
IntCounter = IntCounter + 1
ArrCounter = ArrCounter + 1
End If
ConcdStr = ConcdStr & Mid(Expression, IntCounter, 1)
If Len(ConcdStr) <> 0 Then
ReDim Preserve myArray(ArrCounter)
myArray(ArrCounter) = ConcdStr
End If
Next
MySplit = myArray
End Function
This code like vb's own function called Split Comments
No comments yet — be the first to post one!
Post a Comment