[VB6] Ripetizioni

[papacico]

Avrei il seguente problema:
Dopo aver caricato 10 numeri in una Listbox nel modo seguente:

2
3
4
5
2
3
1
7
4
2

Vorrei, mediante un command button, visualizzare in una seconda listbox, tutti i numeri che si ripetono 2 volte ed in una terza quelli che si ripetono 1 volta.
Grazie in anticipo.

[oregon]

E non hai nessuna idea su come poter fare?

[papacico]

per il momento no.

[papacico]

Nessuna idea?

[LMondi]

Ciao,
leggi questa discussione - tratta dell'uso delle array per individuare doppi componenti - potrebbe esserti utile.

[papacico]

Già l'avevo letta quella discussione, però non so proprio come fare!

[Stoicenko]

potresti ciclare sull'array, utilizzare un array di contatori lungo quanto il range degli elementi, quando trovi un elemento aumenti il contatore nella posizione giusta..
Al termine cicli l'array dei contatori e se trovi 2 vai ad aggiungere alla lista dei doppioni il valore in quella posizione dell'array iniziale, mentre se trovi 1 lo aggiungi nella lista dei singoli..

[papacico]

Potresti gentilmente farmi un esempio utilizzando il codice?

[Stoicenko]

uso codice non proprio vb puro perchè è un po' che non lo uso.. cmq il procedimento è lo stesso:

dim arrayIniziale as int[] //mi pare si scriva così e lo inizializzi con la dimensione che ti serve
dim arrayContatore as int[x] //dove x è il massimo valore del primo array es: 50 (numero max 50)

for(int i=0, i<arrayIniziale.lenght, i++)
    arrayContatore[arrayIniziale[i]] = arrayContatore[arrayIniziale[i]] +1

//ora ti trovi un array con ad esempio in posizione 30 un numero che rappresenta quante volte hai trovato 30.. ora vai a mettere nelle liste

for(int i=0, i<arrayIniziale.lenght, i++)
    if(arrayIniziale[i]==2) //è un doppione
        ..inserisci nella lista dei doppioni..
    else if(arrayIniziale[i]>2)
        ..gestisci come vuoi..
    else //è singolo o è 0
        ..gestisci come vuoi

[papacico]

Grazie per la tua disponibilità, a presto.