Comparing Lists *** Resolved ***

[jacobite]

Lo,

I have two lists, one containing numbers selected by a user between 1 and 49 and the other containing numbers that have been randomly generated that occur over 50 times. I need to somehow comparing them to find a match e.g

User List
45
43
12

Comp List
12
41
27
29
5

There was 1 match: you have won 1 prize.

How would i go about comparing this and displaying the score? Label? Another List? Can anyone help? If so reply or email me at [email protected]

[MartinLiss]

lstUser.AddItem 45
    lstUser.AddItem 43
    lstUser.AddItem 12
    
    lstComp.AddItem 12
    lstComp.AddItem 41
    lstComp.AddItem 27
    lstComp.AddItem 29
    lstComp.AddItem 5
    
    Dim lngRetVal As Long
    Dim intWins As Integer
    Dim intIndex As Integer
    Dim strPrize As String
 
    For intIndex = 0 To lstUser.ListCount - 1
        lngRetVal = SendMessageString(lstComp.hwnd, _
                                      LB_FINDSTRING, -1&, _
                                      lstUser.List(intIndex))
        ' lngRetVal is the ListIndex
        If lngRetVal > -1& Then
            intWins = intWins + 1
        End If
    Next
    
    If intWins = 1 Then
        strPrize = " prize."
    Else
        strPrize = " prizes."
    End If
    
    MsgBox "There was " & intWins & " match: you have won " & intWins & strPrize

[jacobite]

Heres the program if anyone can slot the above code into it and upload it I would be very greatful as I do not know where to put it.

[MartinLiss]

Here you go. I put "Marty" above all the code I added.

[jacobite]

Cheers Marty

[kleinma]

Originally posted by jacobite
Cheers Marty

you should leave the subject as it was and just add resolved to it.. that way if someone has a similar problem them might come across your post and know from the subject that it is something to look at