Estrarre i valori non ripetuti da un vettore

[pietro09]

Originariamente inviato da riccardone
dai meandri della rete... vedi un po se ti e' utile

Function GetArray(ByVal array() As Integer) As Integer() 
Dim x, y, n, sa() As Integer 
y = -1 
n = 0 
array.Sort(array) 
For Each x In array 
If x <> y Then 
ReDim Preserve sa(n) 
sa(n) = x 
y = x 
n += 1 
End If 
Next 
Return sa 
End Function

mi serve per un vettore bidimensionale, n righe, m colonne :master:

Mi vergogno (non ditelo a nessuno ) ma l'ho fatto in javascript. In vb.net mi sono impantanato