Select distinct da un array

[byluciani]

un esempio veloce, veloce

<%
strNumeri = "1-4-23-42-3-1-64-3-76-343-75-12-32-3-6-42"
arrNumeri = Split(strNumeri, "-")
 
ReDim arrTemp(UBound(arrNUmeri))
 
counter = 0
 
arrTemp(0) = arrNumeri(0)
 
For I = 1 To UBound(arrNumeri)
  found = False
  For J = 0 To counter
    If arrNumeri(I) = arrTemp(J) Then
      found = True
      Exit For
    End If
  Next
  If Not found Then
    counter = counter + 1
    arrTemp(counter) = arrNumeri(I)  
  End If
Next
 
ReDim Preserve arrTemp(counter)
 
strTemp = Join(arrTemp, "-")
Response.Write "Stringa iniziale: " & strNumeri & "
"
Response.Write "Numeri presenti: " & UBound(arrNUmeri) & "
"
Response.Write "Stringa finale: " & strTemp & "
"
Response.Write "Numeri univoci: " & counter & "
"
%>