Foros del Web - Buscar Items Repetidos En Listbox

Foros del Web (http://www.forosdelweb.com/)

- Visual Basic clásico (http://www.forosdelweb.com/f69/)

- - Buscar Items Repetidos En Listbox (http://www.forosdelweb.com/f69/buscar-items-repetidos-listbox-354497/)

Buscar Items Repetidos En Listbox

hola tengo que buscar los items repetidos en un listbox que tiene numeros.
La cosa es que quiero limitar el numero de repeticiones que me busque, y si se puede tambien hasta que item buscar.

Por ejemplo, quiero que me diga en los ultimos 30 items de la lista, si hay algun numero que figure solamente 4 veces (ni mas ni menos).
Si ese mismo numero tiene una repeticion mas en el item nº 34, entonces que me lo ignore, o sea que no me cuente 5 repeticiones, sino 4 solamente, porque en los ultimos 30 items hay 4 nada mas...

les agradeceria mucho si pueden ayudar ya que estoy hace unos dias con esto y no le encuentro la vuelta. chau

Por lo menos pon algo del codigo para empezar. O quieres que te lo hagamos todo??

ejemplo con lo items repetidos

bueno pana esto hacia lo siguiente....
buscaba que items se repetia en una lista dandole el limite que el queria
y los que encontraba en ese rango los eliminaba es para que agarres la idea de lo que puedes hacer

Código:

Private Sub Command1_Click()

Dim r As Integer

Dim s As Integer
 

Dim limite1, limite2 As Integer
 
 

limite1 = Text1.Text 'Poner aquí el elemento hasta el que hay que revisar

limite2 = Text2.Text 'el final del rango... revisa que no este fuera del intervalo
 

limite1 = limite1 - 1
 

If limite1 > 0 And limite1 < limite2 Then
 

If limite2 > limite1 And limite2 < List1.ListCount - 1 Then

For r = limite1 To limite2

For s = r + 1 To limite2

If List1.List(r) = List1.List(s) Then

On Error Resume Next

List1.RemoveItem (s)

limite2 = limite2 - 1

End If

Next 's

Next 'r

End If

End If

End Sub

bueno se que te ayudara en algo :borracho:

saludos...