recorrer un array

[aleman]

Tengo un valor que rescato con split dentro de un array ahora necesito recorrer el array e ir procesando desde el principio hasta el fin del mismo como hago , para hacer ese for desde el principio hasta el fin del array me sirver lbound, y Ubond, alguien me da una mano gracias.

[jjlallana]

¿un array estatico o un array dinamico?

[bakanzipp]

es asip?

for i=0 to ubound(Arreglo)

x = Arreglo(i)

next

;)

[aleman]

No un array estatico sabria como hacerlo la pregunta es dinamico , o sea nunca se la cantidad de valores que va a tener, gracias.

[jjlallana]

Te mando un ejemplo que suma dos matrices dinamicas de la misma dimensión y que me funcionó en su día:

Function SumaMatrices(M1,M2)
if Ubound(M1)<> Ubound(M2) or UBound(M1,2)<> UBound(M2,2) Then
Alert "Ambas matrices deben tener las mismas dimensiones"
Exit Function
End if
Dim cols, filas
cols= Ubound(M1,1) : filas= Ubound(M1,2)
Dim i, j
Dim result()
ReDim Result( cols, filas)
For i=0 To cols
For j=0 To filas
Result(i, j)= M1(i, j) + M2(i, j)
Next
Next
Suma matrices = Result
End function

Espero que te sirva

[bakanzipp]

pero el ubound no te cuenta la cantidad de elementos ke tiene el arreglo?

[jjlallana]

baKanzipp, para que te funcione tu codigo x debe ser un array y tal como lo has puesto no lo es por lo que x ira tomado distintos valores en cada ciclo for pero al final solo tendrás un valor.

Saludos

[sjam7]

Bueno, aprovechando este mensaje, ya que le respondan al interesado a mi me interesaria saber como manejar arrays en sessiones, quiero hacer un carrito de comprar metiendo los datos en un array bidimencional en la que cada registro del mismo sea cantidad y clave del producto:

variable(2,PJ13) x ejemplo

y ese valor pasarlo a una variable de sesion cada que se modifica o agrega un producto nuevo, ademas maximo serian 10 productos pr carrito.

y pues mi pregunta seria como hacer el envio entre paginas de variables arrays y como manejarlas

JAM <font size="1">desde la tierra del tequila, mariachi y mujeres guapas[/CODE]
<a href="mailto:[email protected]">[email protected]</a><br>
<embed width="400" height="60" src="http://www.550m.com/usuarios/guiaguanatos/salud.swf">

[bakanzipp]

jeje...
habra faltado esto?

Arreglo=split(cadena)


crei ke esta definicion estaba por sentado
sorry
:P

[aleman]

Gracias a ambos , ya me ha funcionado.

[BatusaiX]

yo tengo el mismo problema con el siguiente codigo :


&lt;% Dim Idiomas
Idiomas = Request(&quot;Language&quot;)
Dim Idiomas2
Idiomas2 = Split(Idiomas, &quot; , &quot;)

Dim Lazo
For Lazo = Lbound(Idiomas2) to Ubound(Idiomas2)
Select Case Trim(Idiomas2(Lazo))
Case &quot;Ingles&quot;:
Response.Write(&quot;Hello, World&quot;)
Case &quot;Frances&quot;:
Response.Write(&quot;Bonjour, Monde&quot;)
Case &quot;Español&quot;:
Response.Write(&quot;Hola, Mundo&quot;)
Case &quot;German&quot;:
Response.Write(&quot;Hallo, Welt&quot;)
Case &quot;Italiano&quot;:
Response.Write(&quot;Ciao, Mondo&quot;)
End Select
Next

%&gt;