Matrices

[Adler]

Hola

Sí, el error está en usar UBound. Lo suyo es usar un contador

Código ASP:

Dim contador, ArrOriginal, ArrSinRepeticion(), i, comparacion, x
contador = 1
ArrOriginal = Array(8,3,5,2,9,2,3,5,8)
Redim ArrSinRepeticion(1)
ArrSinRepeticion(0) = ArrOriginal(0)
 
For i = 0 to (UBound(ArrOriginal))
 
comparacion = 0
        
    For x = 0 to (UBound(ArrSinRepeticion))
    comparacion = StrComp(ArrSinRepeticion(x), ArrOriginal(i), 1)
 
        IF (comparacion = 0) then ' está repetido
        Exit For 'x
        END IF
 
    Next 'x
 
 
    IF (comparacion <> 0) then
    Redim preserve ArrSinRepeticion(contador)
    ArrSinRepeticion(contador) = ArrOriginal(i)
    contador = contador+1
        END IF
 
Next 'i
    
Response.Write "<b>Arreglo Original</b><br />"
Response.Write Join(ArrOriginal, ", ")
 
Response.Write "<br /><br /><b>Arreglo Original sin valores duplicados</b><br />"
Response.Write Join(ArrSinRepeticion, ", ")
 

Gracias por tu tiempo