[LLWoody]

Does anyone have a function coded to sort a multidimensional array? I found one by Eric Repec-InetSolution but it didnt work. I dont want to recreate the wheel. thanks all!

[digioz]

Have you tried this one yet?

http://www.freevbcode.com/ShowCode.Asp?ID=2530


Pete

[LLWoody]

Thanks! i'll try that.

[LLWoody]

well it worked with a few tweaks. here's my updated version if anyone else needs it:

Public Sub SortArray(ByRef DArray(), Element As Integer)
    Dim gap As Integer, doneflag As Integer, SwapArray()
    Dim Index As Integer
    Dim acol As Integer
    Dim cnt As Integer
        
    ReDim SwapArray(2, UBound(DArray, 1), UBound(DArray, 2))
    'Gap is half the records
    gap = Int(UBound(DArray, 2) / 2)
    gap = gap + IIf(UBound(DArray, 2) Mod 2, 1, 0)
    Do While gap >= 1
        Do
            doneflag = 1
            'For Index = 0 To (UBound(DArray, 2) - (gap + 1))
            For Index = 0 To (UBound(DArray, 2) - (gap))
                'Compare 1st 1/2 to 2nd 1/2
                If DArray(Element, Index) > DArray(Element, (Index + gap)) Then
                    For acol = 0 To (UBound(SwapArray, 2))
                        'Swap Values if 1st > 2nd
                        SwapArray(0, acol, Index) = DArray(acol, Index)
                        SwapArray(1, acol, Index) = DArray(acol, Index + gap)
                    Next
                    For acol = 0 To (UBound(SwapArray, 2))
                        'Swap Values if 1st > 2nd
                        DArray(acol, Index) = SwapArray(1, acol, Index)
                        DArray(acol, Index + gap) = SwapArray(0, acol, Index)
                    Next
                    cnt = cnt + 1
                    doneflag = 0
                End If
            Next
        Loop Until doneflag = 1
        gap = Int(gap / 2)
    Loop
End Sub 

[digioz]

Great. Thanks for posting your updated code.


Pete

[travimca]

Originally Posted by digioz

Great. Thanks for posting your updated code.


Pete

Hi,
I having 2 dimension array. My data is looks like this

20.44002824, Sampletext
19.39352222, aaa
19.67565656, bbb

I want to sort the column 1, i need a output like this

20.44002824, Sampletext
19.67565656, bbb
19.39352222, aaa

Can you please help me. I dont know how to do this.

[thydzik]

Great post digioz. My only change would be to change the Integer types to Long, as this is actually faster.

travimca,

run it as:
SortArray yourarray, 1
(assuming you index starts at 0)