Select distinct da un array

[maxolino]

Ciao,
ho un array con vari cambi...

O meglio.. ho una variabile di questo tipo

1-4-23-42-3-1-64-3-76-343-75-12-32-3-6-42

De contare quanti numeri (o testo che sia) diversi vi sono all'interno...

Avevo pensato di memorizzare in un array e con un ciclio fare un check di ogni campo su una variabile a cui aggiungo i valori man mano....

Ci sono altre soluzioni?

Grazie mille!!!!

[br1]

Confesso di averci capito poco... ma i termini non mi appaiono chiari.

ho un array con vari cambi... :master:

O meglio.. ho una variabile di questo tipo

1-4-23-42-3-1-64-3-76-343-75-12-32-3-6-42

De contare quanti numeri (o testo che sia) diversi vi sono all'interno... Immagino ...separate dal trattino

Avevo pensato di memorizzare in un array e con un ciclio fare un check di ogni campo su una variabile a cui aggiungo i valori man mano.... sara' l'ora... VVoVe:

per concludere.... come si lega al problema il titolo della discussione?

Se ci spieghi a cosa serve forse...

ciao

[maxolino]

Scusa la non chiarezza

Ho un array così:

pippo(0) = 3
pippo(1) = 44
pippo(2) = 2
pippo(3) = 5
pippo(4) = 3


Da qui devo contare quanti sono i valori diversi... in questo caso sarebbero 4, perchè il 3 è ripetuto due volte....

Come posso fare?

Grazie

[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 & "
"
%>