Valores Unicos de un Arreglo

[Adler]

Hola

Quizás sea esto lo que buscas

Código asp:

Dim valores(6)
Dim retvalores()
 
valores(0) = "11"
valores(1) = "11"
valores(2) = "33"
valores(3) = "33"
valores(4) = "44"
valores(5) = "55"
valores(6) = "55"
 
Redim preserve retvalores(1)
 
retvalores(0) = valores(0)
 
For i = 0 to (UBound(valores)-1)
 
        Dim resultado
        resultado = 0
        
        For j = 0 to (UBound(retvalores)-1)
        resultado = StrComp(valores(i),retvalores(j),1)
 
        If (resultado = 0) then 
        Exit For
        End If
 
        Next
 
          If (resultado <> 0)then
            Redim preserve retvalores(UBound(retvalores) + 1)
            retvalores(UBound(retvalores)-1) = valores(i)
             End If
 
 
Next
    
Response.write "Vector original:<br />"
 
For n = LBound(valores) to UBound(valores)
Response.write valores(n)
Next
 
Response.write "<br /><br />Vector sin valores duplicados:<br />"
 
For x = 0 to UBound(retvalores)
Response.write retvalores(x)
Next
 

Suerte