Carmen
01 de Diciembre del 2003

A ver si alguién 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, tendría 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 agradecería
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 solución 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 sobraría 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