[SOLUCIONADO] Introducir valores en un array

[maialenlopez]

Hola,

He creado el siguiente array.

Código vb:

Dim arraygmn(0, 0) As String
 

Y necesito rellenar los valores de ese array con el contenido de otro array que tiene estos valores: gmn(0), gmn(1),gmn(2) y gmn(3)

Tengo un contador que en un principio es cont = 0. Lo que necesito es ir guardando los valores que van cambiando de gmn(0), gmn(1),gmn(2) y gmn(3) en el arraygmn.

para ello he hecho un while en el que hago un redim para dar una nueva dimension al arraygmn.

Lo he hecho de esta forma:

Código vb:

While contador < lineas.Count
    ReDim arraygmn(iContadorLineasSolicitudPM, 3)
    'ir añadiendo los valores al arraygmn
    contador = contador + 1
 

Quiero saber, por una parte, si asi estoy haciendo bien mi arraygmn que se que siempre va a tener 4 columnas pero no se la cantidad de filas que va a tener y por otra parte como meter los valores en el arraygmn

[pkj]

Creo que lo que intentas es algo asi:

Código vb:

Dim arraygmn() As String ' nuestro array
  Dim Contador As Long ' para contar las lineas
  Dim iContadorLineasSolicitudPM As Long ' para redimensionar el array
 
 
  iContadorLineasSolicitudPM = - 1 ' ponemos el contador a - 1
  
 
  ' uso 2 contadores diferentes porque no se lo que intentas
  ' pero igual podria ser el mismo
 
  Contador = 0
 
  Do While contador < lineas.Count  ' mientras haya lineas
 
    ' creamos un nuevo elemento
    iContadorLineasSolicitudPM = iContadorLineasSolicitudPM + 1
    ' lo creamos con preserve para mantener lo que ya habia
    ReDim Preserve arraygmn(iContadorLineasSolicitudPM, 3)
 
    ' guardamos los 4 valores
      arraygmn(iContadorLineasSolicitudPM, 0) = gmn(0)
      arraygmn(iContadorLineasSolicitudPM, 1) = gmn(1)
      arraygmn(iContadorLineasSolicitudPM, 2) = gmn(2)
      arraygmn(iContadorLineasSolicitudPM, 3) = gmn(3)
 
 
    contador = contador + 1
 
    'lo que no tengo claro es como cargas la matriz gmn y si
    'tiene siempre los mismos valores, porque no se recarga.
 
  Loop
 

Suerte

[maialenlopez]

Iniciado por pkj

Creo que lo que intentas es algo asi:

Código vb:

Dim arraygmn() As String ' nuestro array
  Dim Contador As Long ' para contar las lineas
  Dim iContadorLineasSolicitudPM As Long ' para redimensionar el array
 
 
  iContadorLineasSolicitudPM = - 1 ' ponemos el contador a - 1
  
 
  ' uso 2 contadores diferentes porque no se lo que intentas
  ' pero igual podria ser el mismo
 
  Contador = 0
 
  Do While contador < lineas.Count  ' mientras haya lineas
 
    ' creamos un nuevo elemento
    iContadorLineasSolicitudPM = iContadorLineasSolicitudPM + 1
    ' lo creamos con preserve para mantener lo que ya habia
    ReDim Preserve arraygmn(iContadorLineasSolicitudPM, 3)
 
    ' guardamos los 4 valores
      arraygmn(iContadorLineasSolicitudPM, 0) = gmn(0)
      arraygmn(iContadorLineasSolicitudPM, 1) = gmn(1)
      arraygmn(iContadorLineasSolicitudPM, 2) = gmn(2)
      arraygmn(iContadorLineasSolicitudPM, 3) = gmn(3)
 
 
    contador = contador + 1
 
    'lo que no tengo claro es como cargas la matriz gmn y si
    'tiene siempre los mismos valores, porque no se recarga.
 
  Loop
 

Suerte

Esto es lo que necesito, gracias. El contador es el mismo así que lo único que he cambiado es el nombre de este y ya esta.
Muchas gracias.

Ahora tengo otra duda, necesito guardar en el mismo Do While el contenido de otros arrays en otros, es decir, tengo estos valores uom(0), uom(1) y uom(2). Estos necesito guardarlos en 3 arrays diferentes arr1, arr2 y arr3 que los he declarado de esta forma:

Código vb:

Dim arr1() As STring
Dim arr2() As STring
Dim arr3() As STring
Do While contador < lineas.Count  ' mientras haya lineas
   Redim Preserve arr1
   Redim Preserve arr2
   Redim Preserve arr3
   arr1(contador) = uom(0)
   arr2(contador) = uom(1)
   arr2(contador) = uom(2)
   contador = contador +1
Loop
 

Lo que no se es como ir redimensionando los arrays.

Gracias por la solución y los comentarios del código anterior, me ha servido de gran ayuda

[pkj]

Inclui los comentarios porque veo que estas muy verde y de este modo te sirve de aprendizaje :P

El sistema es el mismo que en el otro codigo:

Código vb:

'Creas las matrices
Dim arr1() As String 'En ese momento la matriz no tiene elementos que puedas usar
Dim arr2() As String
Dim arr3() As String
 
Contador=-1 
'Fuera del While ponemos el contador a -1 para poder aumentarlo +1 antes 
'de crear cada elemento de las matrices.
'De este modo cuando salgas del bucle no te sobran elementos en la matriz
 
'Dentro del while...
Do While.....
Contador=contador +1   ' ahora (la primera vuelta) el contador vale 0
 
Redim Preserve Arr1(contador) ' y creamos el primer elemento de cada matriz
Redim Preserve Arr2(contador) ' preservando los que ya guardaba (las siguientes vueltas, claro)
Redim Preserve Arr3(contador)
 
'Los cargamos
Arr1(Contador)=uom(0) 
Arr2(Contador)=uom(1)
Arr3(Contador)=uom(2)
 
' y a por otro
Loop
 

Espero que te sirva de ayuda. (esta vez no lo he probado, supongo que estara bien)

Saludos

EDITO:
Lo corrijo, estaba usando mal las matrices para lo que tu quieres.

[maialenlopez]

Iniciado por pkj

Inclui los comentarios porque veo que estas muy verde y de este modo te sirve de aprendizaje :P

El sistema es el mismo que en el otro codigo:

Código vb:

'Creas las matrices
Dim arr1() As String 'En ese momento la matriz no tiene elementos que puedas usar
Dim arr2() As String
Dim arr3() As String
 
Contador=-1 
'Fuera del While ponemos el contador a -1 para poder aumentarlo +1 antes 
'de crear cada elemento de las matrices.
'De este modo cuando salgas del bucle no te sobran elementos en la matriz
 
'Dentro del while...
Do While.....
Contador=contador +1   ' ahora (la primera vuelta) el contador vale 0
 
Redim Preserve Arr1(contador) ' y creamos el primer elemento de cada matriz
Redim Preserve Arr2(contador) ' preservando los que ya guardaba (las siguientes vueltas, claro)
Redim Preserve Arr3(contador)
 
'Los cargamos
Arr1(Contador)=uom(0) 
Arr2(Contador)=uom(1)
Arr3(Contador)=uom(2)
 
' y a por otro
Loop
 

Espero que te sirva de ayuda. (esta vez no lo he probado, supongo que estara bien)

Saludos

EDITO:
Lo corrijo, estaba usando mal las matrices para lo que tu quieres.

GRACIAS!!!!

Asi si se puede aprender.

Muchas gracias por todo.