Realiza la copia del Vector de origen sobre el de destino, colocando los datos a partir de la posición que se indica, se ha de controlar que hay espacio en el vector de destino.
' Se copia el vector Meses completo y se coloca
' a partir de la sexta posición en el vector de
' destino OtrosMeses
Meses.CopyTo(OtrosMeses, 6)
Module Ejemplo
Sub Main()
Dim Meses() As String = {"Enero", "Febrero", "Marzo", "Abril", _
"Mayo", "Junio", "Julio", "Agosto", _
"Septiembre","Octubre", "Noviembre", "Diciembre"}
' Le damos 20 elementos
Dim OtrosMeses(20) As String
Dim Valor As String
Console.WriteLine("Visualizamos el contenido ")
Console.WriteLine("Elementos del vector {0} ", Meses.GetUpperBound(0))
' Visualizamos el vector
For Each Valor In Meses
Console.WriteLine(Valor)
Next
' Se copia el vector Meses completo y se coloca
' a partir de la sexta posición en el vector de
' destino OtrosMeses
Meses.CopyTo(OtrosMeses, 6)
Console.WriteLine("Elementos del vector {0} ", OtrosMeses.GetUpperBound(0))
Console.WriteLine("Visualizamos el contenido ")
' Visualizamos el vector
For Each Valor In OtrosMeses
Console.WriteLine("[ {0} ]", Valor)
Next
Console.ReadLine()
End Sub
End Module
Crea un array a partir de la información existente en el array de origen.
Observar que en este ejemplo está activado Option Strict a Off, sin comentarios.
Option Strict Off
Module Ejemplo
Sub Main()
Dim Meses() As String = {"Enero", "Febrero", "Marzo", "Abril", _
"Mayo", "Junio", "Julio", "Agosto", _
"Septiembre","Octubre", "Noviembre", "Diciembre"}
Dim Dato As String
' Contenido vector origen
For Each Dato In Meses
Console.WriteLine(Dato)
Next
' Crear el vector con createinstance
' Dim Otro = Array.CreateInstance(Meses.GetType, Meses.Length)
' El formato anterior, aunque parece lógico no sirve.
Dim Otro = Array.CreateInstance(GetType(String), Meses.Length)
' Cargarlo con datos
Meses.CopyTo(Otro, 0)
' Contenido vector destino
Console.WriteLine("Visualizar el vector de destino")
For Each Dato In Otro
Console.WriteLine("Mes de {0} ", Dato)
Next
Console.ReadLine()
End Sub
End Module
Estos métodos devuelven el número de elementos del vector, el primer índice y el último.
Module Ejemplo
Sub Main()
Dim Meses() As String = {"Enero", "Febrero", "Marzo", "Abril", _
"Mayo", "Junio", "Julio", "Agosto", _
"Septiembre","Octubre", "Noviembre", "Diciembre"}
Console.WriteLine("Visualizamos el contenido ")
Console.WriteLine("Elementos del vector {0} ", Meses.GetLength(0))
' Visualizamos el vector
For Each Valor In Meses
Console.WriteLine(Valor)
Next
Console.WriteLine("Elementos del vector {0} ", Meses.GetLength(0))‘ 12
Console.WriteLine("Primer índice {0} ", Meses.GetLowerBound(0)) ‘ 0
Console.WriteLine("Ultimo índice {0} ", Meses.GetUpperBound(0)) ‘ 11
Console.ReadLine()
End Sub
End Module
Devuelve el tipo que tiene el array dentro de la clase System
Module Ejemplo
Sub Main()
Dim X As Int16
Dim Meses() As String = {"Enero", "Febrero", "Marzo", _
"Abril", "Mayo", "Junio", _
"Julio", "Agosto", "Septiembre", _
"Octubre", "Noviembre", "Diciembre"}
Dim Valor As String
Console.WriteLine("Visualizamos el contenido ")
Console.WriteLine(Meses.GetType)
For Each Valor In Meses
Console.WriteLine(Valor)
Next
Console.ReadLine()
End Sub
End Module
Devuelve el contenido de la posición que indicamos en el argumento.
En el ejemplo el valor devuelto es Abril.
Pero también es válido y da también Abril.
Console.WritelLine(Meses(3))
Module Ejemplo
Sub Main()
Dim X As Int16
Dim Meses() As String = {"Enero", "Febrero", "Marzo", _
"Abril", "Mayo", "Junio", _
"Julio", "Agosto", "Septiembre", _
"Octubre", "Noviembre", "Diciembre"}
Dim Valor As String
Console.WriteLine("Visualizamos el contenido ")
Console.WriteLine(Meses.GetValue(3))
For Each Valor In Meses
Console.WriteLine(Valor)
Next
Console.ReadLine()
End Sub
End Module
© Antonio Arjona Cornejo. Todos los derechos reservados.
Prohibida la reproducción por cualquier medio.
Publicación web autorizada a aulaClic.
Cursos Informática Gratuitos Síguenos en: Facebook Sobre aulaClic Política de Cookies