Dimensionar arrgeglos dinamicamente

[alexa10]

Buenos días amigos, esa es mi pregunta: ¿Puedo dimensionar un arreglo dinamicamente?, si se puede ¿como lo hago?

De antemano muchas gracias.

[Myakire]

Con Redim

Saludos

[tammander]

Acuerdate de que puedes redimensionar de dos formas:

Dim ar(33)

- redimensionando todo el arreglo:

redim ar(44,2)

aqui redimensionamos limpiando el arreglo y dejando vacio

- redimensionando y preservando su contenido

redim preserve ar(33,2)

Solo deja redimensionar la última dimension (valga la redundancia :P ) Es decir la mas a la derecha. Si tienes ar(33,1) y quieres redimensionar el arreglo solo puedes hacerlo con la segunda dimension:

redim preserve ar(33,3) --> Bien

redim preserve ar(44,1) --> Mal (error)
redim preserve ar(44,5) --> Mal (error)



Un saludo

[alexa10]

Muchas gracias chicos...

Otra pregunta, si cuando dimensiono el arreglo de esta forma:

Código PHP:

  Dim arreglo()   
Redim arreglo(algun valor)  
   

y no tengo conocimiento previo de cuantas posiciones va a tener dicho arreglo, hay alguna forma de hacer ese redimensionamiento de forma dinámica?

De antemano muchas gracias

[CésarBalaguer]

si hay forma de redimencionarlo en forma dinàmica, por ejemplo en un loop donde llenas el arreglo con los registros de una tabla vas haciendo un redim preserve arreglo(contador) y en cada vuelta vas incrementando tu contador de uno en uno...

[Shiryu_Libra]

Iniciado por alexa10

...¿como lo hago?...

Iniciado por tammander

Acuerdate de que puedes redimensionar de dos formas:
- redimensionando y preservando su contenido
redim preserve ar(33,2)
redim preserve ar(33,3) --> Bien
Un saludo

Iniciado por CésarBalaguer

si hay forma de redimencionarlo en forma dinàmica, por ejemplo ...

un ejemplo para reforzar lo que te han comentado, supongamos una consulta...

Código PHP:

  'inicializamos el arreglo en nada
DIM sem()

'generamos una consulta, para sacar un total de registros
RS.Open sql, cxn
if Err=0 then
    tantos=0
    while RS.EOF=false
        tantos=tantos+1
        RS.movenext
    wend
end if
RS.close

'redimensionamos el arreglo, restandole 1, por que sino se saldria del
'intervalo del arreglo, recordemos que se toma como valor inicial 0(creo)
REDIM sem(tantos-1)

'una segunda consulta para obtener algun nombre de la tabla
RS.open sql, cxn
if Err=0 then
    inicia=0
    while RS.EOF=false
        sem(inicia)=RS("nombre").value
        RS.movenext
        inicia=inicia+1
    wend
end if

'limpiamos y cerramos las consultas
RS.close
cxn.close
set RS=nothing
set cxn=nothing

'ahora que ya tenemos el arreglo con datos, que hacemos con el ???
'si fueran valores numericos sumarlos, caso contrario, poder mandar llamar
'funciones        ... otro ejemplo

for ver=0 to uBound(sem)
    if  (sem(ver)<>"B") then
        call funcion(1,tabla,sem(ver))
    end if
next

'TAMBIEN DEBEMOS RECORDAR QUE SON VARIABLES QUE USA EL SERVIDOR
'ASI QUE TENEMOS QUE ELIMINARLAS SI NO LAS OCUPAMOS MAS
REDIM sem(0)'Matriculas
REDIM grp(0)'Indexs
sem(0)=null'Matriculas
grp(0)=nullIndexs  
   

suerte

[CésarBalaguer]

RS.Open sql, cxn
if Err=0 then
tantos=0
while RS.EOF=false
tantos=tantos+1
RS.movenext
wend
end if
RS.close

en lugar de hacer 2 querys uno para dimensionar el arreglo y otra para llenar los el arreglo con los datos de la tabla, mas recomendable serìa hacer los dos en un solo query, asì te evitas tantas lecturas similares a la base de datos y por ende se hace mas ràpido.

sql = "select COLUMNA from TABLA where CONDICION"
RS.Open sql, cxn
if not RS.EOF then

tantos=0
while RS.EOF=false

REDIM PRESERVE ARREGLO(tantos)
ARREGLO(tantos) = RS(0)
tantos = tantos + 1
RS.movenext

wend

end if
RS.close

[u_goldman]

Pero en lugar de hacer todo esto puedes mejor utilizar el método getRows para almacenar tus valores directamente en un arreglo.

Saludos

[Shiryu_Libra]

O_G(), aprocechando el tema y no abrir otro mas

independientemente de la consulta que haga a la base de datos, al tomar los valores con el GETROW, se hace un arreglo multidimensional?
esto significa que; si....

la consulta regresa 6 registros coincidientes con el criterio,
se generaria un arreglo de 6 y en cada casilla tendria que hacerle un SPLIT, para mostrar lo que hay en la casilla 1??

es asi??

[u_goldman]

No tienes que hacer ningún split, efectivamente el método getrows regresará un arreglo multidimensional al que puedes iterar para obtener su contenido:

Código:

strSQL = "SELECT campo1, campo2, campo3 FROM tabla WHERE condiciones"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, ObjConn, 3, 3

if not rs.EOF then
   ds = rs.GetRows()
   rs.Close
else
  ds = null
end if

Set rs = Nothing
Set ObjConn = Nohting

if not isNull(ds) then
  'itera filas
  for i = 0 to uBound(ds, 2)
    'imprime columnas
    Response.Write(ds(0,i) & "<br />")  'campo 1
    Response.Write(ds(1,i) & "<br />")  'campo 2
    Response.Write(ds(2,i) & "<br />")  'campo 3
    Response.Write("<hr />")  
  next
end if

Saludos

[sqa212]

en este post se trato tambien el tema:

http://www.forosdelweb.com/showthrea...ighlight=redim