Question

How to use Array.CopyTo() method to copy all elements of 1D array to other 1D array starting at index N in VB.NET

Answer 1

Module Module1

    Sub Main()

        Dim sourceArray As Array = Array.CreateInstance(GetType(String), 3)

        sourceArray.SetValue("aaa", 0)
        sourceArray.SetValue("bbb", 1)
        sourceArray.SetValue("ccc", 2)

        Dim targetArray As Array = Array.CreateInstance(GetType(String), 3)

        sourceArray.CopyTo(targetArray, 0)

        PrintArray(targetArray)

    End Sub

    Public Sub PrintArray(arr As Array)
        Dim i As Integer
        For i = arr.GetLowerBound(0) To arr.GetUpperBound(0)
            Console.WriteLine("arr({0}) = {1}", i, arr.GetValue(i))
        Next i
    End Sub

End Module

' run:
' 
' arr(0) = aaa
' arr(1) = bbb
' arr(2) = ccc

 

70+ SQL courses for beginners and professionals

Answer 2

Module Module1

    Sub Main()

        Dim sourceArray As Array = Array.CreateInstance(GetType(String), 3)

        sourceArray.SetValue("aaa", 0)
        sourceArray.SetValue("bbb", 1)
        sourceArray.SetValue("ccc", 2)

        Dim targetArray As Array = Array.CreateInstance(GetType(String), 4)

        targetArray.SetValue("yyy", 0)
        targetArray.SetValue("zzz", 1)

        sourceArray.CopyTo(targetArray, 1)

        PrintArray(targetArray)

    End Sub

    Public Sub PrintArray(arr As Array)
        Dim i As Integer
        For i = arr.GetLowerBound(0) To arr.GetUpperBound(0)
            Console.WriteLine("arr({0}) = {1}", i, arr.GetValue(i))
        Next i
    End Sub

End Module

' run:
' 
' arr(0) = yyy
' arr(1) = aaa
' arr(2) = bbb
' arr(3) = ccc

 

70+ SQL courses for beginners and professionals