Ver Mensaje Individual
  #12 (permalink)  
Antiguo 07/06/2005, 15:27
Avatar de AlZuwaga
AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses
Puntos: 535
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")
__________________
...___...

Última edición por AlZuwaga; 07/06/2005 a las 15:37