Initial data commit

Task/Associative-array-Merging/VBA/associative-array-merging-4.vba

@@ -0,0 +1,43 @@
+Sub Main_With_Class()
+Dim Base(2) As New ClassArrayAssociative, Up(2) As New ClassArrayAssociative
+    ReDim Result(UBound(Base)) As New ClassArrayAssociative
+    'FILL Base & Update
+    Base(0).Add "name", "Rocket Skates"
+    Base(1).Add "price", 12.75
+    Base(2).Add "color", "yellow"
+    Result = Base
+    Up(0).Add "price", 15.25
+    Up(1).Add "color", "red"
+    Up(2).Add "year", 1974
+    'Update Result with Up
+    Update Result, Up
+    'Print Out
+    Print_Out_2 Result
+End Sub
+Private Sub Update(R() As ClassArrayAssociative, U() As ClassArrayAssociative)
+Dim i As Long, j As Long, Flag As Boolean
+    For i = LBound(U) To UBound(U)
+        j = LBound(R)
+        Flag = False
+        Do While j <= UBound(R) And Not Flag
+            If R(j).Key = U(i).Key Then
+                R(j).Value = U(i).Value
+                Flag = True
+            End If
+            j = j + 1
+        Loop
+        If Not Flag Then
+            ReDim Preserve R(UBound(R) + 1)
+            Set R(UBound(R)) = New ClassArrayAssociative
+            R(UBound(R)).Add U(i).Key, U(i).Value
+        End If
+    Next i
+End Sub
+Private Sub Print_Out_2(A() As ClassArrayAssociative)
+Dim i As Long
+    Debug.Print "Key", "Value"
+    For i = LBound(A) To UBound(A)
+        Debug.Print A(i).Key, A(i).Value
+    Next i
+    Debug.Print "-----------------------------"
+End Sub