how to track the first digit appear the most in listbox?

[Satangel]

how to track the first digit (item)which appear the most and the least in listbox?

i was wondering are they any function to track the first digit appear the most in the listbox data.

Eg. like if my listbox have some item like this:

"Listbox"

===========
= 1234 =
= 4567 =
= 8890 =
= 5656 =
= 7890 =
= 4264 =
= 1889 =
= 9009 =
= 3434 =
===========


When i press cmdCheckTop, the result will be
1
bcos the first digit appear the most is 1.
it contains two time appear("1234" and "1889")

How to do it?
anybody knows?

[gulliver]

Hi,

You could try this:

Dim ariDigits(0 To 9) As Integer
Dim i, iHold As Integer

For iHold = 0 To 9
For i = 0 To lstNumbers.ListCount - 1
If Mid$(lstNumbers.List(i),1,1) = iHold Then
'increases number of this digit found
ariDigits(iHold) = ariDigits(iHold) + 1
Next i
Next iHold

The array ariDigits will then hold the largest number in the element that has the subscript corresponding to the most common leading digit.

Gulliver.

[Nucleus]

To get you started, but you must ammend to make it work if two numbers have the same max count.

Private Sub Command1_Click()
Dim i&
Dim ar(1 To 10) As Byte
Dim pos As Byte, max As Byte, maxc As Byte
For i = 0 To List1.ListCount - 1
    pos = Left(List1.List(i), 1)
    ar(pos) = ar(pos) + 1
Next
For i = 1 To 10
    If ar(i) > maxc Then max = i: maxc = ar(i)
Next
MsgBox max
End Sub

Private Sub Form_Load()
Me.List1.AddItem 1234
Me.List1.AddItem 4567
Me.List1.AddItem 8890
Me.List1.AddItem 5656
Me.List1.AddItem 7890
Me.List1.AddItem 4264
Me.List1.AddItem 1889
Me.List1.AddItem 9009
Me.List1.AddItem 3434
End Sub