Getting the three most common numbers from a file?!

[Javindo]

Hey,

I have been a long time reader of this forum but only today have I finally had to resort to singing up and asking for help! I always see people giving very useful advice here so I am confident that you might be able to help.

Essentially, whenever my users who are logged in via a global module level variable enter a new form, their activity is "logged" in a textfile with their UserID as the name.txt and every time they visit a page it adds a new line to their log file with a number corresponding to the form they visited. For example, if they select "add a user" it will add the line "1" to their log file. Note: At the moment there is only 1 2 and 3 not 0.

I have got this far and I have got as far as creating an array which has:

Array(0) = NumberOfTimes 0 appears in the log file
Array(1) = NumberOfTimes 1 appears in the log file
etc etc

Therefore the output for this is
Msgbox(Array(0)) shows "0"
MsgBox(Array(1)) shows "4" for example and lets just say
MsgBox(Array(2)) shows "9" and
MsgBox(Array(3)) shows "1"

Therefore, finally (!) my problem is now finding which 3 are the top. I have tried various methods of sorting them but I just get "9, 4, 1, 0" rather than "2, 1, 3, 0"

If you understand I would greatly appreciate the help as I have been tearing my hair out for the past 2 days trying to do this! (By the way the end product for this is to show three links on the "welcome form" of the users 3 most visited forms)

Here is a pastebin of all the rubbish I have currently tried that hasn't worked! http://pastebin.com/f4030d95e

Again, thank you in advance for ANY help!

[Javindo]

For future I have worked this out, in case anyone wants it.

Test(0) = 4
Test(1) = 3
Test(2) = 123
Test(3) = 99
Dim TopThree(2) As Integer
Dim NewHigh As Integer
Dim Highest As Integer
Dim Count As Integer = 0
Dim Found As New ArrayList
For i = 0 To 3
Found.Add(Test(i))
Next i
' MsgBox(Found.Count)
'Dim TopThree(2) As Integer
For Index = 0 To UBound(Test)
If Test(Index) > Highest Then
Highest = Test(Index)
NewHigh = Index
End If
Next Index
'Found(Highest) = ""
Found.RemoveAt(NewHigh)
Found.Insert(NewHigh, 0)
'MsgBox(NewHigh)
TopThree(0) = NewHigh
'MsgBox(Found.Count)
Dim Highesta As Integer
For Indexa = 0 To 3
If Found(Indexa) > Highesta Then
Highesta = Found(Indexa)
NewHigh = Indexa
End If
Next Indexa
Found.RemoveAt(NewHigh)
Found.Insert(NewHigh, 0)
' MsgBox(NewHigh)
TopThree(1) = NewHigh
'MsgBox(Found.Count)
Dim Highestaa As Integer
For Indexaa = 0 To 3
If Found(Indexaa) > Highestaa Then
Highestaa = Found(Indexaa)
NewHigh = Indexaa
End If
Next Indexaa
Found.RemoveAt(NewHigh)
Found.Insert(NewHigh, 0)
' MsgBox(NewHigh)
TopThree(2) = NewHigh
ListBox1.Items.Add(TopThree(0))
ListBox1.Items.Add(TopThree(1))
ListBox1.Items.Add(TopThree(2))