Valores Unicos de un Arreglo

[El_pera]

Hola a Todos...

Quisiera pedirle su ayuda para poder obtener solo los valores diferentes que estén almacenados en un arreglo en ASP, algo así como array_unique, del PHP.


Muchas Gracias.

[AlZuwaga]

Caray... justo hoy estaba necesitando lo mismo en PHP y no va que encuentro tu mensaje aqui en el foro ASP. Gracias, usaré array_unique() para mi proyecto

Con respecto a ASP, no hay nada que lo haga (al menos con VBScript... no sé con JScript pero lo dudo). Una posible solución es ordenar tu array usando uno de los métodos que existe para ello (más info buscando en este foro o en google), iterarlo y ver si el elemento actual es distinto al anterior (o al próximo, según lo plantées) e ir formando un nuevo array... o usar recordsets desconectados tal vez

[El_pera]

Gracias por el dato men.

Me alegro que mi pregunta te haya ayudado...


Saludos...

[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