0

Mi consulta es la siguiente: Estoy con VB.net y tengo dos arrays cargados. Lo que necesito hacer es agregar un array a otro. Es decir:

dim array1() as integer

dim array2() as integer

'se cargan los dos arrays...

Quiero tener en array1 lo que tenía antes más los elementos del array2. Cómo hago? Hice un par de pruebas pero me voy de índice.

Nota: Los arreglos pueden tener entre 20 y 30 elementos aproximadamente.

Ahí va lo que probé:

 dim array1() as object1 
 dim array2() as object1 
 dim tamanio as integer = array1.lenght 
 dim a as integer = tamanio 

 For Each ev As object1 In array1 
    array1(a) = ev 
    a = a + 1 
 Next 

El problema lo tira en donde hago a = a + 1 porque ese índice no existe, claro. Leí por ahí que por ahí lo que tengo que hacer es un Redim adentro del For Each para cada elemento nuevo pero me parece poco eficiente. Tiene que haber otra manera

6
  • que probaste? asi podemos corregir lo que haces mal...
    – gbianchi
    Commented el 14 abr. 2021 a las 3:22
  • Perdón, no sé por que queda todo el texto junto y no respeta los "enter"
    – Raulus
    Commented el 14 abr. 2021 a las 12:38
  • Porque eso que escribiste es un comentario, y es solo para aclaraciones. Deberias modificar tu pregunta usando el boton editar y agregar el codigo ahi... De paso, mira el recorrido de bienvenida para que sepas como funciona la pagina y tambien mira Cómo preguntar
    – gbianchi
    Commented el 14 abr. 2021 a las 14:40
  • Ahí edité la pregunta.
    – Raulus
    Commented el 14 abr. 2021 a las 15:09
  • porque redim te parece poco eficiente? esa es una forma de hacerlo.. tambien podrias hacer un solo redim al tamaño final y agregar los indices.. tambien podes crear un nuevo array del tamaño final y copiar los dos array ahi, y luego sobreescribir el primer array... pero si vas a agregar cosas a un array que tiene un tamaño definido, si tenes que usar redim... o usar una lista que tiene tamaño variable...
    – gbianchi
    Commented el 14 abr. 2021 a las 15:17

1 respuesta 1

0

Lo resolví de la siguiente manera:

 Dim array1() as object1 
 Dim array2() as object1 
 Dim array3() as object1 

 Dim tam_1 As Integer = array1.Length
 Dim tam_2 As Integer

 array3 = array1 

 'se cargan array1 y array2

 tam_2 = array2.Length
 ReDim array1(tam_1 + tam_2 - 1)

 array3.CopyTo(array1, 0)
 array2.CopyTo(array1, tam_1)

Finalmente, en array1, tengo los datos que tenía antes mas los del array2.

Muchas gracias.

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.