[RESOLVED] Sorting two arrays simultaneously

[Code Doc]

I don't have time to put together an example but the easiest thing to do would be to create a UDT array containing Name and Score and then just sort that one array.

Excellent idea, Martin. I believe the score component of the UDT would simply have to appear first in the Type sequence.

I've usually only used separate variable arrays in my Apps because options are offered to sort the values of any one of them shown in a grid.

[MartinLiss]

Excellent idea, Martin. I believe the score component of the UDT would simply have to appear first in the Type sequence.

I've usually only used separate variable arrays in my Apps because options are offered to sort the values of any one of them shown in a grid.

No, it can be in either place. You just need to compare the score component.

[MartinLiss]

Here's an example.

Option Explicit
Private Type HiScores
    PlayerName As String
    Score As Integer
End Type
Private Sub Form_Load()
    Dim HS(4) As HiScores
    Dim TempHS As HiScores
    Dim IsSwapped As Boolean
    Dim intIndex As Integer

    HS(0).PlayerName = "Marty"
    HS(0).Score = 100
    
    HS(1).PlayerName = "Fred"
    HS(1).Score = 90
    
    HS(2).PlayerName = "Sam"
    HS(2).Score = 33
    
    HS(3).PlayerName = "Joe"
    HS(3).Score = 66
    
    IsSwapped = True
    Do Until IsSwapped = False
        IsSwapped = False
        For intIndex = 1 To UBound(HS)
            If HS(intIndex).Score >= HS(intIndex - 1).Score Then
                TempHS.PlayerName = HS(intIndex).PlayerName
                TempHS.Score = HS(intIndex).Score
                HS(intIndex).PlayerName = HS(intIndex - 1).PlayerName
                HS(intIndex).Score = HS(intIndex - 1).Score
                HS(intIndex - 1).PlayerName = TempHS.PlayerName
                HS(intIndex - 1).Score = TempHS.Score
                IsSwapped = True
                Exit For
            End If
        Next
    Loop

    For intIndex = 0 To UBound(HS)
        Debug.Print HS(intIndex).PlayerName; HS(intIndex).Score
    Next

End Sub

[MrDudemeister]

Thanks everyone for the kind answers.

I publish the solution for anyone to use

im iOuter As Long
Dim iInner As Long
Dim iLBound As Long
Dim iUBound As Long
Dim iTemp As Long
Dim iMax As Long
Dim MyArray() As String
Dim MyString As String
Dim MyArray2() As String
Dim MyString2 As String
Dim FF2 As Integer
Dim FF As Integer

Private Sub Command1_Click()
Form1.Show

Form2.Hide
End Sub

Private Sub Form_load()
FF = FreeFile()
Open ("C:\Score.txt") For Binary As FF

MyString = Space(LOF(FF))
Get FF, , MyString
Close FF

FF2 = FreeFile()
Open ("C:\Name.txt") For Binary As FF2

MyString2 = Space(LOF(FF2))
Get FF2, , MyString2
Close FF2

MyString = Left(MyString, Len(MyString) - 1)
MyString2 = Left(MyString2, Len(MyString2) - 1)

MyArray = Split(MyString, ",")
MyArray2 = Split(MyString2, ",")

    iLBound = LBound(MyArray)
    iUBound = UBound(MyArray)
    
    For iOuter = iUBound To iLBound + 1 Step -1
        
        iMax = 0
        
        For iInner = iLBound To iOuter
            If CLng(MyArray(iInner)) < CLng(MyArray(iMax)) Then iMax = iInner
        Next iInner
        
        iTemp = MyArray(iMax)
        ntemp$ = MyArray2(iMax)
        
        MyArray(iMax) = MyArray(iOuter)
        MyArray2(iMax) = MyArray2(iOuter)
        
        MyArray(iOuter) = iTemp
        MyArray2(iOuter) = ntemp$
    Next iOuter

        For i = LBound(MyArray) To UBound(MyArray)
        MyArray(i) = Format(MyArray(i), "#,##")

        List1.AddItem (MyArray(i) + "  " + MyArray2(i))
    Next
     
End Sub