Skip to content

MergeArray

Summary

2つの配列を統合して新しい配列を作成するための関数です。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Function MergeArray(arrA As Variant, arrB As Variant) As Variant
'2つの配列を統合する。

Dim newArray() As Variant
Dim i As Integer
Dim itemCounter As Integer

'__init__
    '配列の確認
    If IsInitialized(arrA) = True Then GoTo NextProc
    If IsInitialized(arrB) = True Then GoTo EndProc

    itemCounter = 0

'__main__
    '1 つ目の配列の内容を新しい配列に格納する
    For i = LBound(arrA) To UBound(arrA)
        ReDim Preserve newArray(itemCounter)
        newArray(itemCounter) = arrA(i)
        itemCounter = itemCounter + 1
    Next i

NextProc:
    '2つ目の配列の内容を新しい配列に格納する
    For i = LBound(arrB) To UBound(arrB)
        ReDim Preserve newArray(itemCounter)
        newArray(itemCounter) = arrB(i)
        itemCounter = itemCounter + 1
    Next i

EndProc:
    MergeArray = newArray
End Function

説明

この関数は、2つの配列を統合して新しい配列を作成するために使用されます。 関数では、newArray という新しい配列を用意し、itemCounter 変数を使用して新しい配列に項目を追加します。

まず、配列 arrA が初期化されているかどうかを確認します。もし初期化されていない場合は、次の手順に進みます。 初期化されている場合は、1つ目の配列の要素を新しい配列に追加します。 その後、2つ目の配列 arrB の要素を新しい配列に追加します。
最後に、統合された新しい配列 newArray を戻り値として返します。

引数

  • arrA (Variant型): 統合する1つ目の配列
  • arrB (Variant型): 統合する2つ目の配列

戻り値

  • 戻り値の型: Variant型 (統合された新しい配列)

Examples

使用例として、配列 arrayA と arrayB を統合して新しい配列 mergedArray を作成する方法が示されています。 関数 MergeArray に統合する2つの配列を渡し、結果を mergedArray に格納します。

1
2
3
4
5
6
7
' 配列を統合して新しい配列を作成する
Dim arrayA() As Variant
Dim arrayB() As Variant
Dim mergedArray() As Variant

' 配列 arrayA と arrayB を統合する
mergedArray = MergeArray(arrayA, arrayB)