Dovresti controllare elemento per elemento ed eventualmente scarti i duplicati. COn gli altri riempi il secondo array

Potresti fare una cosa così:

Duplicati 'array con i duplicati

SenzaDuplicati 'array senza i duplicati

'prima di tutto riempi la prima posizione di SenzaDuplicati con la prima posizione di Duplicati

SenzaDuplicati(1)=Duplicati(1)

for i=LBound(Duplicati)+1 to UBound(Duplicati)

DuplicatiNonTrovato=True

'Cerco all'interno di SenzaDuplicati per vedere se c'è già il valore contenuto in Duplicati(i)

for j=LBound(SenzaDuplicati) to UBound(SenzaDuplicati)

'Se ne trovo anche uno imposto DuplicatiNonTrovato su False

if Duplicati(i)=SenzaDuplicati(j) then DuplicatiNonTrovato=False

Next j

'Se non ne ho trovati, DuplicatiNonTrovato è True

if DuplicatiNonTrovato then

'incremento di uno l'indice di SenzaDuplicati per andare a scrivere in una posizione vuota

IndiceSenzaDuplicati=IndiceSenzaDuplicati+1

SenzaDuplicati(IndiceSenzaDuplicati)=Duplicati(i)

end if


Next i

Cia
Hyppos



Modificato - hyppos - 06 Lug 2001 11:37:37

Modificato - hyppos - 06 Lug 2001 11:38:23