• Home
 · 
• String Manipulation
 · 
• This code will take a delimited string and pass back a sub array of elements.

This code will take a delimited string and pass back a sub array of elements.

This code will take a delimited string and pass back a sub array of elements.

Rate This code will take a delimited string and pass back a sub array of elements.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim strArr() As String
    Dim strOutputString As String
    Dim intStart As Integer
    Dim intEnd As Integer
    Dim I As Integer

    On Error GoTo ErrorHandler

    If p_strInput = "" Then Exit Function

    strArr = Split(p_strInput, p_strDelim, , vbBinaryCompare)


    If p_intStartElement <> 0 Then intStart = p_intStartElement - 1

    If p_intLength = 0 Then
        intEnd = MyUbound(strArr)
    Else
        intEnd = intStart + p_intLength - 1
    End If

    'Re-assemble the array
    For I = intStart To intEnd
        strOutputString = strOutputString & strArr(I) & p_strDelim

    Next

    If Right$(strOutputString, Len(p_strDelim)) = p_strDelim Then
        strOutputString = Left$(strOutputString, Len(strOutputString) - Len(p_strDelim))
    End If

    ReturnSubArray = strOutputString

    Exit Function
ErrorHandler:
    ReturnSubArray = p_strInput
End Function

Function MyUbound(p_strArr() as string) as Long

On Error Goto ErrorHandler

MyUbound = Ubound(p_strArr)

Exit Function
ErrorHandler:
MyUbound = -1
end function