variable al definir variable :S

[TCL_ZIP]

Vamos lo quiero hacer es lo siguiente

for u=1 to 15
for i=1 to 5
linea_u = split(Partits_ver.fields(i).value,"</td><td>")
next
next


y lo que quiero esque esa u de linea_u se vaya conviertendo en el valor de u es decir que sea:
linea_1
linea_2
linea_3
linea_4....

[MikiBroki]

Hola,

No sé si será una barbaridad porque nunca he hecho algo así, pero prueba:

"linea_" & CSTR(u) = split(Partits_ver.fields(i).value,"</td><td>")

[trasgukabi]

en las FAQ tienes cómo hacerlo

[TCL_ZIP]

no encuentro la respuesta a esa pregunta en el faq puedes decir k tema es exactamente?

[u_goldman]

Crear variables dinámicas, en la última página, lo posteó Muzztein...

Salu2,

[TCL_ZIP]

muchas gracias, pero me da error de sintaxis... lo he puesto de la siguiente manera:

Código:

for u=1 to 15
	execute("linea_" & u & " = split(Partits_ver.fields(" & u & "),"& separador &")")
next

[AlZuwaga]

La otra vez intenté crear arrays dinámicamente de esa manera y no pude. Variables dinámicas si, pero no arrays. No digo que no se pueda, sólo que no me salió

[u_goldman]

AZ, busca en Google!!!

[AlZuwaga]

Igual fue en un momento de... "ocio productivo". Si lo hubiese necesitado de verdad, por supuesto hubiese buscado la solución ;)

[MikiBroki]

Sí ya ya... eso decimos todos xDDD

[TCL_ZIP]

jajajja, yo ya llevo bastantes horas en lo mismo y aun no lo he sacado :S si alguien se pasa k tenga idea, please k deje algo :P

[AlZuwaga]

Bueno, acá hice una "aproximación a" crear arrays dinámicamente (y sin recurrir a google ni a nigún otro sitio )

Código:

<%
mi_arr = array("1", "2", "3", "@", "4", "5", "6", "@", "7", "8", "9")

Response.Write "<b>Array original:</b><br>"
for i = 0 to ubound(mi_arr)
response.write mi_arr(i) & "<br>"
next

mi_arr = join(mi_arr, ",")
mi_arr = split(mi_arr, ",@,")

Response.Write "<br><b>Array original spliteado por la '@':</b><br>"

for i = 0 to ubound(mi_arr)
response.write mi_arr(i) & "<br>"
next


' generamos dinamicamente los sub-arrays:
for x = 0 to ubound(mi_arr)
	execute("mi_arr_" & x & " = split(mi_arr(" & x & "), "","")")
next

Response.Write "<br><b>Primer sub-array:</b><br>"
for L = 0 to ubound(mi_arr_0)
response.write mi_arr_0(L) & "<br>"
next

Response.Write "<br><b>Segundo sub-array:</b><br>"

for M = 0 to ubound(mi_arr_1)
response.write mi_arr_1(M) & "<br>"
next

Response.Write "<br><b>Tercer sub-array:</b><br>"

for N = 0 to ubound(mi_arr_2)
response.write mi_arr_2(N) & "<br>"
next
%>

Y ahora recuerdo por qué lo había intentado la otra vez... era para ver cómo solucionar el tema que planteó no_recuerdo_quién... ese que decía que ASP era una basura porque para hacer algo que en PHP lo hace en 1 línea, debe pensar para llegar a la misma solución mediante vbscript (igual no sé si eso le serviría, porque, como dije, es sólo "una aproximación")

[u_goldman]

entonces no sirvió mi recomendación de buscar en Google

revisé rápidamente tu código, pero me surge una interrogante, tu sabes que vas a obtener 3 subarrays del array principal, por eso llamas 3 veces a la iteración correspondiente...podrías hacerlo con un counter también, pero por eso precisamente la solución que planteé en aquel post, implicaba tener los subarrays dentro de cada uno de los índices de un array...

El segundo split es una excelente solución! lo que yo había hecho era poner un delimitador mas al final de la cadena para splitearlo, pero podría haber causado inconsistencias!


Salu2,

[TCL_ZIP]

lamento mi ignoranacia, pero soy novato en el ASP, i no me enterado una **** ***** :P ^^
Me podriais explicar en mi caso como deberia hacerlo?

[AlZuwaga]

...revisé rápidamente tu código, pero me surge una interrogante, tu sabes que vas a obtener 3 subarrays del array principal, por eso llamas 3 veces a la iteración correspondiente...

Claro, fue sólo para probar sabiendo que iba a obtener 3 "sub-arrays".
Luego de mandar el mensaje, intenté hacerlo sin conocer previamente la cantidad que iba a devolver, pero lo dejé porque me estaba llendo a mi casa.

hice ésto, pero no está funcionando correctamente:

for i = 0 to ubound(mi_arr)
Response.Write "<br><b>Sub-array " & i & ":</b><br>"
' execute("ubound(mi_arr_" & i & ")")
for j = 0 to execute("ubound(mi_arr_" & i & ")")
execute("response.write mi_arr_" & i & "(" & j & ") & ""<br>""")
next
next

...luego veo de terminarlo.

Por cierto, probé el script que habías puesto en el otro post pero no me funcionó (ni lo entendí :/)

[u_goldman]

De verdad?? pero que error te dio? iteraste cada indice del arreglo y por cada indice el arreglo en si?

Deja ver si encuentro el script original y lo pongo aqui

Salu2,

Editando: Agrego el codigo original, a ver si junciona

Código:

<%
Function generaArregloPadre(arreglo, strCaracter)
	Dim indices
	Dim i
	Dim j
	Dim x
	Dim tempArr()
	indices = 0
	if isArray(arreglo) then
		redim preserve arreglo(uBound(arreglo) + 1)
		arreglo(uBound(arreglo)) = strCaracter
		for j = 0 to uBound(arreglo)
			if arreglo(j) = strCaracter then
				indices = indices + 1
			end if
		next
		'Response.Write "Numero de indices arreglo padre : " & indices & "<br>"
		Dim ds()
		redim ds(indices)
		i = 0
		x = 0
		for j = 0 to uBound(arreglo)
			if arreglo(j) <> strCaracter then
				'Response.Write("Redimensionamos arreglo temporal: tempArr("&x&")" & "<br>")
				redim preserve tempArr(x)
				'Response.Write("Asignamos valor: tempArr("&x&") = " & "arreglo("&j&")" & "<br><hr>")
				tempArr(x) = arreglo(j)
				x = x + 1
			else
				x = 0
				'Response.Write("<b>Asignamos arreglo a indice del arreglo padre: ds("&i&") = " & typename(tempArr) & "</b><br>")
				ds(i) = tempArr
				'Response.Write("redimensionamos arreglo temporal: temparr("&x&")")
				redim tempArr(x)
				i = i + 1
			end if
		next
	else
		ds = null
	end if
	generaArregloPadre = ds
End Function

Arreglo_Base = array("1","2","3","@","13","14","15","16","@","20","21")
dataset = generaArregloPadre(Arreglo_Base, "@")

for j = 0 to uBound(dataset)
	if isArray(dataset(j)) then
		Response.Write "| "	
		for i = 0 to uBound(dataset(j))
			Response.Write dataset(j)(i) & ","
		next
	end if
next
%>

[AlZuwaga]

Yep, ahora si me funcó. No sé que toqué antes que no lo hizo (y no me acuerdo el error que daba)

Y acá está la modificación para no tener que saber de antemano la cantidad de sub-arrays que devolverá:

Código:

for i = 0 to ubound(mi_arr)
	Response.Write "<br><b>Sub-array " & i & ":</b><br>"
	execute("elementos = ubound(mi_arr_" & i & ")")

	for j = 0 to elementos
		execute("response.write mi_arr_" & i & "(" & j & ") & ""<br>""")
	next
next

Igual, no sé para qué sirve ésto ni me imagino para qué demonios usarlo jajajaja

[Myakire]

¡¡¡Exactamente!!!!

¿Para qué necesitan eso?

Es lo que me he preguntado desde que ví este post

[u_goldman]

Que se sho!

[AlZuwaga]

Bueno, entonces mejor cambiemos a "ocio in-productivo" :p

[MikiBroki]

Al Zuwaga

[AlZuwaga]

Iniciado por MikiBroki

Al Zuwaga

Oh, gracias por los aplusos mi estimado ()
llegué a este tema buscando "variables dinámicas" pero olvidé filtrar en el foro PHP

ya es viernes!!!

[u_goldman]

Iniciado por Al Zuwaga

Oh, gracias por los aplusos mi estimado ()
llegué a este tema buscando "variables dinámicas" pero olvidé filtrar en el foro PHP

ya es viernes!!!

Si que es beviernes!