Estrarre i valori non ripetuti da un vettore

[pietro09]

Ho un vettore di n righe ed m colonne di tipo stringa.
Devo estrarre un vettore con solo i valori di tutte le colonne non ripetuti. Mi date una mano?

[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

[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