comparar elementos matriz de datos

Carmen
01 de Diciembre del 2003
A ver si alguin puede ayudarme;

Tengo este vector bidimensional y lo que quiero es que me vaya imprimiendo solo aquellos valores que no sean igual al elemento anterior;
Con los FOR recorro el vector y con el IF le digo que si el elemento2 es igual al elemento 1 que me lo imprima y sino que imprima cadena vacia;
El problema es que cuando llega al ultimo subindice el if me falla porque no encuentra el elemento ltimo+1, no se como resolver esto, tendra que meter otro if para que en caso que llegue al ultimo subindice i valga 0, pero no se como hacerlo,
Si alguien puede echarme una mano se lo agradecera
Gracias!!

<%For i=0 To Ubound(arrTI,2)
for j=0 to ubound(arrTI,1)

if (arrTI(j,i+1))<>(arrTI(j,i)) then
response.write(arrTI(j,i))%><br>
<%else
response.write("")
end if
next
next
%>

Mario Parada
01 de Diciembre del 2003
Hola Carmen:




Mario Parada
01 de Diciembre del 2003
Hola Carmen:
Como la matriz la recorres en sus filas
For i=0 To Ubound(arrTI,2)

Eso dice que la esta recorriendo hasta el final, lo que te recomiendo es que la recorras hasta el final -1.
es decir:

For i=0 To (Ubound(arrTI,2)-1)

As:
if (arrTI(j,i+1))<>(arrTI(j,i)) then

Nunca preguntara por un eleento que no existe.

PD: no lo he probado, pues tengo el servidor abajo pero creo que deberia funcionar.

Ojala te funcione, saludos.







Carmen
01 de Diciembre del 2003
Gracias Mario!!
Lo que propones es una solucin pero de esa forma no puedo comparar con el ltimo valor,

morway
01 de Diciembre del 2003
Lo cierto es que no me manejo muy bien con VBScript, pero creo que te sobrara con con almacenar el valor de el elmento anterior en una variable auxiliar y comparar esta con el nuevo elemento.
Aqu tienes la muestra:

For i=0 To Ubound(arrTI,2)
For j=0 to ubound(arrTI,1)
if arrTI(j,i) <> aux then
response.write(arrTI(j,i))
else
response.write("")
end if
aux=arrTI(j,i)
next
next