Compare two listbox 1

[unixisgood]

Hi All,
I want to compare contents of two listbox and find same data between list1 and list2 and then move only same data to list3.
Is this possible?

 

[Andrzejek]

Not enough info of what you want to do.

But you can start with:

Dim intL1 As Integer
Dim intL2 As Integer

For intL1 = 0 To List1.ListCount - 1
    For intL2 = 0 To List2.ListCount - 1
        ... your code here
    Next intL2
Next intL1

Have fun.

---- Andy

 

[HarleyQuinn]

Or if you're willing to use a listview as the second control to cut out one loop:

Dim i As Integer
Dim lstItm As ListItem

For i = 0 To List1.ListCount - 1
    Set lstItm = ListView2.FindItem(List1.List(i), lvwText, , lvwWholeWord)

        If Not lstItm Is Nothing Then
            List3.AddItem lstItm.Text
        End If
    
Next i

Hope this helps

HarleyQuinn
---------------------------------
Get the most out of Tek-Tips, read FAQ222-2244 before posting.

 

[unixisgood]

Hi Andrzejek ,
Thanks for answer.
I ll try to explain it more.

I have 3 listbox on my form. i need to compare list1 and list2 to find same values in them and add the same values to list3 as like below example.


List1 List2 List3
1 8 1
2 7 4
3 2
4 1
5 4


Kind Regards

 

[Error7]

Dim L1 As Integer, L2 As Integer

For L1 = List1.ListCount - 1 To 0 Step -1
For L2 = List2.ListCount - 1 To 0 Step -1
If List1.List(L1) = List2.List(L2) Then
List3.AddItem List1.List(L1)
List1.RemoveItem L1
List2.RemoveItem L2
Exit For
End If
Next L2
Next L1

[gray]Experience is something you don't get until just after you need it.[/gray]

 

[unixisgood]

Hi HarleyQuinn ,
Thanks for help but it gives error like `type mismatch`

 

[unixisgood]

Hi Error7
It works great,

thanks

 

[HarleyQuinn]

Just out of interest, where in the code did you get the type mismatch?

HarleyQuinn
---------------------------------
Get the most out of Tek-Tips, read FAQ222-2244 before posting.

 

[unixisgood]

Hi HarleyQuinn
I get this error on `Set lstItm = ListView2.FindItem(List1.List(i), lvwText, , lvwWholeWord)`

I am not so good on VB so maybe i am causing to get this error.

 

[HarleyQuinn]

I can get the same error if i use i as a string variable or use the literal "i" in the index parameter but apart from that I can't duplicate the error.

Anyway, if you've got it working with the listboxes (as per your original requirement) then there's probably no need for you to pursue the ListView option

Cheers

HarleyQuinn
---------------------------------
Get the most out of Tek-Tips, read FAQ222-2244 before posting.

 

[Andrzejek]

It is a type, I hope, because:

List1     List2    List3
1         8        1
[blue]2[/blue]         7        4
3         [blue]2[/blue]        [blue]2 ???[/blue] 
4         1
5         4

Unless there is more to your logic......

Have fun.

---- Andy

 

[strongm]

You can achieve the reduced loop count shown by HarleyQuinn for for Listboxes if you are prepared to use an API call >here's an example that stricks as close as possible to HarleyQUinn's structure, and also includes Error7's added functionality that removes matched itms from Listboxes 1 and 2):

[blue]Option Explicit

Private Const LB_FINDSTRINGEXACT = &H1A2
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
    Dim lp As Long
    Dim lstItm As Long
    
    ' Single loop version
    For lp = List1.ListCount - 1 To 0 Step -1
        lstItm = SendMessage(List2.hwnd, LB_FINDSTRINGEXACT, 0&, ByVal List1.List(lp))
        If lstItm <> -1 Then
            List3.AddItem List1.List(lp)
            ' Include the next two lines if you want the same effect as Error7s version
            ' List1.RemoveItem (lp)
            ' List2.RemoveItem (lstItm)
        End If
    Next
End Sub[/blue]

 

[Error7]

strongm strikes again!

[gray]Experience is something you don't get until just after you need it.[/gray]

 

[HarleyQuinn]

Nice strongm

HarleyQuinn
---------------------------------
Get the most out of Tek-Tips, read FAQ222-2244 before posting.