[RESOLVED] Is this the best way for display split array?

[standardusr]

Dear all expert programmers,
Please see my code below and suggest me, is this the best way for display split array?

Option Explicit
Private strTestarray(19) As String '<-- ubound of array can be 32767
Private Sub Command1_Click()
    Dim i As Integer
    Dim iPart As Integer
    Const intMaxpart = 2 '<-- this value can change to other
    For i = 0 To 19
        strTestarray(i) = Right("0000" & i, 5)
    Next
    iPart = (UBound(strTestarray) + 1) \ intMaxpart
    For i = 1 To iPart
        Call DisplaySplitarray(i, intMaxpart)
    Next
End Sub
Private Sub DisplaySplitarray(ByVal lngPart As Long, ByVal imax As Integer)
    Dim iLoop As Integer
    Dim strNewdata() As String
    Dim jindex As Long
    ReDim strNewdata(imax - 1)
    For iLoop = (lngPart - 1) * imax To (lngPart * imax) - 1
        strNewdata(jindex) = strTestarray(iLoop)
        jindex = jindex + 1
    Next
    MsgBox lngPart & vbCrLf & Join(strNewdata, vbCrLf) & vbCrLf & "==================" & vbCrLf
End Sub

Thank you for all posts.

[Pradeep1210]

I think what you are doing is ok, since there is no inbuilt way in VB6 to get part of an array into another. There could be better/easier/faster ways using API's, so you can investigate about that.

You should specify the type when you ReDim your array, otherwise it will become a variant array (not required in VB.NET). So by specifying the type you should save some cpu cycles, converting from variant and vice-versa.

[Merri]

Here is a small twist:

Option Explicit

Private Sub Form_Load()
    Dim s() As String
    Dim i As Long, j As Long
    
    Const PARTS = 2
    ReDim s(19)
    For i = 0 To 19
        s(i) = Right("0000" & i, 5)
    Next
    MsgBox Join(s, vbNewLine)
    For i = 0 To UBound(s) Step PARTS
        j = i + PARTS - 1
        If j > UBound(s) Then j = UBound(s)
        s(i \ PARTS) = s(i)
        For j = i + 1 To j
            s(i \ PARTS) = s(i \ PARTS) & (vbNewLine & s(j))
        Next j
    Next i
    ReDim Preserve s(i \ PARTS - 1)
    MsgBox Join(s, vbNewLine & "---" & vbNewLine)
End Sub

It works with the same array in this case, but what I can see you're very much like wanting to have a join before join.

A more efficient way of doing this would involve hacking the safe array header of the string array for little while, faking it to seem to have far less items and then do a Join for the parts of the array. Join is a pretty good function, performance wise (native Split isn't). But coding it wouldn't be worth it unless there is a need for speed.

[standardusr]

Here is a small twist:

Option Explicit

Private Sub Form_Load()
    Dim s() As String
    Dim i As Long, j As Long
    
    Const PARTS = 2
    ReDim s(19)
    For i = 0 To 19
        s(i) = Right("0000" & i, 5)
    Next
    MsgBox Join(s, vbNewLine)
    For i = 0 To UBound(s) Step PARTS
        j = i + PARTS - 1
        If j > UBound(s) Then j = UBound(s)
        s(i \ PARTS) = s(i)
        For j = i + 1 To j
            s(i \ PARTS) = s(i \ PARTS) & (vbNewLine & s(j))
        Next j
    Next i
    ReDim Preserve s(i \ PARTS - 1)
    MsgBox Join(s, vbNewLine & "---" & vbNewLine)
End Sub

It works with the same array in this case, but what I can see you're very much like wanting to have a join before join.

A more efficient way of doing this would involve hacking the safe array header of the string array for little while, faking it to seem to have far less items and then do a Join for the parts of the array. Join is a pretty good function, performance wise (native Split isn't). But coding it wouldn't be worth it unless there is a need for speed.

Wow, Thank you very much for your code. I like your code too.