Matrices

[Adler]

Hola

El caso es que la matríz ArrSinRepeticion contiene un valor más del que por lógica debería de tener

Código ASP:

<&#37;
Dim ArrOriginal, ArrSinRepeticion(), i, comparacion, x
ArrOriginal = Array(8,3,5,2,9,2,3,5,8)
Redim preserve ArrSinRepeticion(1)
ArrSinRepeticion(0) = ArrOriginal(0)
For i = 0 to (UBound(ArrOriginal)-1)
comparacion = 0
 
For x = 0 to (UBound(ArrSinRepeticion)-1)
comparacion = StrComp(ArrSinRepeticion(x), ArrOriginal(i), 1)
IF (comparacion = 0) then ' está repetido
Exit For 'x
END IF
Next 'x
IF (comparacion <> 0) then
'Response.Write UBound(ArrSinRepeticion)+1 &"<br />"
Redim preserve ArrSinRepeticion(UBound(ArrSinRepeticion)+1)
ArrSinRepeticion(UBound(ArrSinRepeticion)-1) = ArrOriginal(i)
Response.Write "(" & UBound(ArrSinRepeticion)-1 & ") => " & ArrOriginal(i) &" "
END IF
Next 'i
 
Response.Write "<br /><br /><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, ", ")
Response.Write "<br /><br />"
Response.Write ArrSinRepeticion(5)
%>
 

Tengo este arreglo Array(8,3,5,2,9,2,3,5,8) y lo que quiero hacer, es eliminar los valores repetidos. Es decir el arreglo ya limpio quedaría Array(8,3,5,2,9). Esto lo viene a demostrar esta prueba de escritorio Response.Write "(" & UBound(ArrSinRepeticion)-1 & ") => " & ArrOriginal(i) &" " que imprime esto (1) => 3 (2) => 5 (3) => 2 (4) => 9 . Pués al parecer no es así, ya que cuando hago el Join, esto es lo que imprime 8, 3, 5, 2, 9, con esa coma al final. Lo que me hace pensar que el subindice llega hasta 5. Esto lo demuestra Response.Write ArrSinRepeticion(5) que en lugar de dar error, puesto que estaría fuera del intervalo, imprime un valor vacío

¿Alguna idea?

Gracias

[posman]

La funcion ubound regresa el indice mayor del arreglo, no regresa el numero de elementos (como sucede en C, java, javascript, etc.)

por ejemplo

Código:

dim x(5)
response.write ubound(x)

te deberia imprimir 5. Esto significa que puedes acceder a los elementos con indice desde 0 hasta 5. O sea que el arreglo tiene 6 elementos

[Adler]

Hola

Iniciado por posman

La funcion ubound regresa el indice mayor del arreglo, no regresa el numero de elementos (como sucede en C, java, javascript, etc.)

por ejemplo

Código:

dim x(5)
response.write ubound(x)

te deberia imprimir 5. Esto significa que puedes acceder a los elementos con indice desde 0 hasta 5. O sea que el arreglo tiene 6 elementos

Eso está superado ya hace algunos años

El problema estás en que en el vector ArrSinRepeticion se añade un valor vacío y no logro saber por qué

Gracias por tu interés

[posman]

Código asp:

ArrOriginal = Array(8,3,5,2,9,2,3,5,8)
Redim preserve ArrSinRepeticion(1)
ArrSinRepeticion(0) = ArrOriginal(0)
 

Aqui ArrSinRepeticion lo estas declarando de 2 elementos y unicamente estas asignando un valor al primer elemento. Desde aqui ya tienes vacio el ultimo elemento del arreglo

Código asp:

For i = 0 to (UBound(ArrOriginal)-1)
comparacion = 0
 
For x = 0 to (UBound(ArrSinRepeticion)-1)
 

ArrOriginal tiene 9 elementos y unicamente estas recorriendo 8. Ubound(ArrOriginal) es igual a 8 y tu estas recorriendo desde 0 hasta 7. Lo mismo sucede para el ciclo que recorre ArrSinRepeticion. Aunque creo que aqui no habria tanto problema porque desde el inicio, la ultima posicion del arreglo esta vacia (pero sigue estando ahi)

Ahora, para esta parte

Código asp:

Redim preserve ArrSinRepeticion(UBound(ArrSinRepeticion)+1)
ArrSinRepeticion(UBound(ArrSinRepeticion)-1) = ArrOriginal(i)
 

Para la primera vez en que los elementos son distintos estas haciendo esto :

Código asp:

Redim preserve ArrSinRepeticion(2)
ArrSinRepeticion(1) = ArrOriginal(i)
 

Ahora el arreglo es de 3 elementos (posiciones desde 0 hasta 2), las posiciones con indice 0 y 1 tienen valor pero la posicion 2 esta vacia.

[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