Mega Code Archive
Copies all the elements from one Array to another Array
<![CDATA[
Imports System
Imports Microsoft.VisualBasic
Public Class SamplesArray
Public Shared Sub Main()
Dim mySourceArray As Array = Array.CreateInstance(GetType(String), 6)
mySourceArray.SetValue("s1", 0)
mySourceArray.SetValue("s2", 1)
mySourceArray.SetValue("s3", 2)
mySourceArray.SetValue("s4", 3)
mySourceArray.SetValue("s5", 4)
mySourceArray.SetValue("s6", 5)
Dim myTargetArray As Array = Array.CreateInstance(GetType(String), 15)
myTargetArray.SetValue("t1", 0)
myTargetArray.SetValue("t2", 1)
myTargetArray.SetValue("t3", 2)
myTargetArray.SetValue("t4", 3)
myTargetArray.SetValue("t5", 4)
myTargetArray.SetValue("t6", 5)
myTargetArray.SetValue("t7", 6)
myTargetArray.SetValue("t8", 7)
myTargetArray.SetValue("t9", 8)
PrintValues(myTargetArray, " "c)
mySourceArray.CopyTo(myTargetArray, 6)
PrintValues(myTargetArray, " "c)
End Sub
Public Shared Sub PrintValues(myArr As Array, mySeparator As Char)
Dim myEnumerator As System.Collections.IEnumerator = myArr.GetEnumerator()
While myEnumerator.MoveNext()
Console.WriteLine(myEnumerator.Current)
End While
End Sub
End Class
]]>