• Home
 · 
• Miscellaneous
 · 
• This code like vb's own function called Split

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
• 2
• 3
• 4
• 5

(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