「VB.NET」Array.Copyで配列の全要素を他の配列へコピーする
書式
Copy(Array, Int32, Array, Int32, Int32)
Array.Copy(コピー元配列名, [コピー元開始位置], コピー先配列名, [コピー先開始位置], コピー要素数)
指定したコピー元インデックスを開始位置として Array から要素の範囲をコピーし、指定したコピー先インデックスを開始位置として他の Array にそれらの要素を貼り付けます。
使用例
Module Module1
Public Sub Main()
Dim lstA() As Integer = {33, 44, 55, 66, 77}
Dim lstB(4) As Integer
Console.WriteLine("配列lstAの全要素")
For Each ele In lstA
Console.WriteLine(ele & Space(1))
Next
'全要素のコピー
Array.Copy(lstA, lstB, lstA.Length)
Console.WriteLine("配列lstAの全要素を配列lstBにコピーする結果")
Console.WriteLine("コピー先の配列lstの要素下記")
For i = 0 To UBound(lstB)
Console.WriteLine(lstB(i))
Next
Console.ReadKey()
End Sub
End Module
Module Module1
Public Sub Main()
Dim lstA() As Integer = {33, 44, 55, 66, 77}
Dim lstB(4) As Integer
Console.WriteLine("配列lstAの全要素")
For Each ele In lstA
Console.WriteLine(ele & Space(1))
Next
'全要素のコピー
Array.Copy(lstA, lstB, lstA.Length)
Console.WriteLine("配列lstAの全要素を配列lstBにコピーする結果")
Console.WriteLine("コピー先の配列lstの要素下記")
For i = 0 To UBound(lstB)
Console.WriteLine(lstB(i))
Next
Console.ReadKey()
End Sub
End Module
Module Module1 Public Sub Main() Dim lstA() As Integer = {33, 44, 55, 66, 77} Dim lstB(4) As Integer Console.WriteLine("配列lstAの全要素") For Each ele In lstA Console.WriteLine(ele & Space(1)) Next '全要素のコピー Array.Copy(lstA, lstB, lstA.Length) Console.WriteLine("配列lstAの全要素を配列lstBにコピーする結果") Console.WriteLine("コピー先の配列lstの要素下記") For i = 0 To UBound(lstB) Console.WriteLine(lstB(i)) Next Console.ReadKey() End Sub End Module
実行結果
配列lstAの全要素
33
44
55
66
77
配列lstAの全要素を配列lstBにコピーする結果
コピー先の配列lstの要素下記
33
44
55
66
77
配列lstAの全要素
33
44
55
66
77
配列lstAの全要素を配列lstBにコピーする結果
コピー先の配列lstの要素下記
33
44
55
66
77
配列lstAの全要素 33 44 55 66 77 配列lstAの全要素を配列lstBにコピーする結果 コピー先の配列lstの要素下記 33 44 55 66 77