Retroceder   Foros del Web > Temas generales de computación > Programación > Visual Basic

Respuesta
 
Herramientas Desplegado
Antiguo 01-dic-2005, 11:28   #1 (permalink)
Quemero ha deshabilitado el karma
 
Fecha de Ingreso: agosto-2005
Mensajes: 19
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
Quemero está desconectado   Responder Citando
Antiguo 01-dic-2005, 12:44   #2 (permalink)
hernanmdq está en el buen camino
 
Avatar de hernanmdq
 
Fecha de Ingreso: julio-2005
Ubicación: Argentina - Entre Rios
Mensajes: 166
Enviar un mensaje por MSN a hernanmdq
Por lo menos pon algo del codigo para empezar. O quieres que te lo hagamos todo??
__________________
| Codigo Geek | Blog de Cine |
hernanmdq está desconectado   Responder Citando
Antiguo 01-dic-2005, 13:53   #3 (permalink)
lop7 ha deshabilitado el karma
 
Avatar de lop7
 
Fecha de Ingreso: junio-2005
Ubicación: portuguesa (Venezuela)
Mensajes: 185
Alegría 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

saludos...
__________________
A quien dices un secreto le entregas tu libertad :si:
lop7 está desconectado   Responder Citando
Respuesta

Calificación: Calificación de Tema: 1 votos, 2,00 de promedio.


Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Caritas están Activado
[IMG] está Activado
Código HTML está Desactivado


La Zona horaria es GMT -6. Ahora son las 15:04.


Message Board Statistics

LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93