Copia

Si intentamos copiar un array asignando la variable que contiene un array a otra, el resultado real serán dos variables que apuntan a la misma lista de valores, por lo que en definitiva sólo tendremos un array, al cual podremos acceder usando dos variables. Ello es debido a que como explicamos en un apartado anterior, los arrays son tipos por referencia que apuntan al mismo conjunto de valores. 

Podemos clonar el array, como se ha descrito en el apartado anterior, con lo que obtendremos un nuevo array, que será idéntico al original. O bien, podemos copiar el array utilizando los métodos CopyTo( ) y Copy( ) de la clase array. La diferencia con respecto a la clonación, consiste en que al copiar un array, el array destino ya debe estar creado con el número suficiente de elementos, puesto que los métodos de copia de la clase Array, lo que hacen es traspasar valores de los elementos del array origen al array destino, en función de los parámetros utilizados, copiaremos todos los elementos o un subconjunto. Veamos unos ejemplos en el Código fuente 345.

Sub Main()

Dim sColores(3) As String

sColores(0) = "Azul"

sColores(1) = "Verde"

sColores(2) = "Rosa"

sColores(3) = "Blanco"

MostrarArray(sColores)

' copiar usando el método CopyTo(),

' copiamos en el array sColorDestino,

' y comenzando por su posición 2, los

' valores del array sColores

Dim sColorDestino(6) As String

sColores.CopyTo(sColorDestino, 2)

Console.WriteLine("Array sColorDestino")

MostrarArray(sColorDestino)

' copiar usando el método Copy(),

' copiamos en el array sListaColores,

' a partir de su posición 2,

' 2 elementos del array sColores, comenzando

' desde la posición 1 de sColores

Dim sListaColores(5) As String

Array.Copy(sColores, 1, sListaColores, 2, 2)

Console.WriteLine("Array sListaColores")

MostrarArray(sListaColores)

Console.ReadLine()

End Sub

Private Sub MostrarArray(ByVal sMiLista() As String)

Dim iContador As Integer

For iContador = 0 To sMiLista.Length - 1

Console.WriteLine("Elemento: {0} - Valor: {1}", _

iContador, sMiLista(iContador))

Next

Console.WriteLine()

End Sub

Código fuente 345