Ayuda con Do while y crear variable

[Laika]

Hola tengo dentro de un while esto:

(aux es una variable cuyo valor cambia y viene dado antes de este while. Por ejemplo 9)

contador=1

Do while contador < aux

Response.write ("<br>C" & contador & "=" & contador/5)

contador= contador + 1

Loop

Bien, me escribe una linea por cada valor de C, es decir:

C1=0,2
C2=0,4
'
'
C8=1,6

Lo que quiero es que se me grabe por cada C una variable, es decir que me cree la variable C1,C2,C3.....C8 (en este caso ya que en otros solo puede haber 3Cs o 15 Cs, dependiendo del valro de aux) y que esa variable que se llame asi guarde además el valor de su C

[u_goldman]

Y un arreglo no estaria mejor?

[Laika]

como dices?

[u_goldman]

Hay varias formas de lograrlo, puedes utilizar una matriz que almacene

Código:

"C1"  |   "0,2"
"C2"  |   "0,4"

and so on...

Todo lo que tendrias que hacer es declararlo

matriz(filas, columnas)

Despues dentro de tu ciclo nada mas vas llenando la matriz

Código:

matriz(i,0) = "C"&contador
matriz(i,1) = cstr(contador/5)

Y asunto arreglado...Hay otros objetos que te pueden ayudar como un diccionario de datos que almacena un par valor. Podrias utilizar un arreglo bidimensional(un arreglo dentro de cada uno de los indices de tu arreglo)

Saludos

[Laika]

Hola,

No consigo que me funcione.

¿Cómo declaro la matriz?
¿Qué valor toma la variable i?

¿Porque tengo que usar Cstr si opero con números?

Gracias por tus respuestas, haber si consigo que me funcione bien

[Laika]

cuando declaro la variable matriz pongo lo siguiente:

dim matriz(aux,2)

al hacer esto me da un error que dice que donde pone "aux" se esperaba una constante entera
Si cambio aux por un número (por ej. el 9) todo me funciona bien.

Necesito establecer el nº de filas por medio de una variable que contenga un valor numérico ya que no siempre la matriz tendría las mismas filas.

¿Cómo puedo declarar la matriz o array de esa manera?

[u_goldman]

mmmhhh, primera complicacion, lo que sucede con las matrices es que solamente puedes redimensionar el elemento externo, o sea las columnas, las filas no pueden ser redimensionadas, y como el error te lo da cuando le envias una variable pues espera una constante... quizas te convendra hacerlo con el objeto diccionario.

Ya nos diras mas cosas.

Saludos

[sqa212]

no te funcionaria esto:

dim matriz()
Redim matriz(aux,2)

[u_goldman]

Si funcionará pero nada más la primera vez, si por cualquier cosa, necesita redmensionar de nuevo, no se podrá, por eso no se lo recomendé, le agregas una rigidez innecesaria, pero si le sirve

Saludos

[sqa212]

¿Asi si podria usarlo mas de una vez no?
Redim Preserve matriz(aux,2)

[u_goldman]

Pruebalo cambiando el valor de aux y me dices si puedes usarlo o no.

[sqa212]

Yo lo haria de esta forma:

<%Sub ContenidoMatrizHorizontal(ByVal arrvar)
Dim counter1
Dim counter2
Response.Write("<table border=""1"" bordercolor=""green"">" & vbCrLf)
For counter1 = 0 to UBound(arrvar, 1)
Response.Write(" <tr>" & vbCrLf)
For counter2 = 0 to UBound(arrvar, 2)
Response.Write("<td>" & arrvar(counter1,counter2) & "</td>" & vbCrLf)
Next
Response.Write(" </tr>" & vbCrLf)
Next
Response.Write("</table>" & vbCrLf)
End Sub
%>


<%
aux=20
contador=1
j=0
dim matriz()
Do while contador < aux
if contador=1 Then
Redim matriz(aux,2)
end if

if contador<>1 Then
Redim Preserve matriz(aux,2)
end if

'Response.write ("<br>C" & contador & "=" & contador/5)
matriz(j,0) = "C"&contador
matriz(j,1) = cstr(contador/5)
contador= contador + 1
j=j+1
Loop

CALL ContenidoMatrizHorizontal (matriz)
'Response.End()

Response.write "<hr>"

nuevoaux=5
contador=1
p=0
Redim matriz(nuevoaux,2)
Do while contador < nuevoaux
p=contador-1
Redim Preserve matriz(nuevoaux,2)
'Response.write ("<br>C" & contador & "=" & contador/5)
matriz(p,0) = "C"&contador
matriz(p,1) = cstr(contador/5)
contador= contador + 1
p=p+1
Loop
CALL ContenidoMatrizHorizontal (matriz)
%>

[Laika]

Con el Redim, he probado y me funciona muy bien cambiando el valor de aux.

No conocia esa propiedad

Muchas Gracias

[u_goldman]

Hay muchísimas maneras de resolver las cosas, unas mas eficientes, otras menos, unas más estables, otras no tanto, unas que te tienes que romper la cabeza, otras que si utilizas el objeto que mejor te ayude, lo puedes hacer más ordenadamente:

Código:

<%
Dim ObjDic
Dim aux
Dim i
Dim contador

Set ObjDic = Server.CreateObject("Scripting.Dictionary")
aux = 20
contador = 1

for i = contador to aux
	ObjDic.Add "C"&i, cstr(i/5)
next

%>

Despues solo cuentas tus items en el diccionario y los imprimes...Cuál es el interés en empeñarse en hacerlo de una manera sólo porque sí?

P.D. Niños, no imiten eso.

[Laika]

Gran aporte u_goldman

Esta muy bien el objeto diccionario. Lo tendré en cuenta también ya que lo veo muy útil.

Gracias