Combines key value pairs from two collections of type Scripting.Dictionary.

Source Code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
' @Author - Alexander Bolte
' @ChangeDate - 2015-02-11
' @Description - Combines the fields of two handed collections where fields
' are understood as a key value pair.
' @Param aColl - a collection of type Scripting.Dictionary holding values for
' field labels, which are not available in collection 'bColl'.
' @Param bColl - a collection of type Scripting.Dictionary holding values for
' field labels, which are not available in collection 'aColl'.
' @Returns a collection of type Scripting.Dictionary holding all key value pairs
' from both handed collections for each unique key.
Function combineFields(aColl, bColl) ' As Scripting.Dictionary
	Dim bKey ' As String()
	Dim i ' As Integer
 
	bKey = bColl.keys
	For i = lBound(bKey) To uBound(bKey)
		If Not (aColl.Exists(bKey(i))) Then
			aColl.add bKey(i), bColl(bKey(i))
		End If
	Next
 
	Set combineFields = aColl
End Function

 

Referenced API 

http://www.w3schools.com/asp/asp_ref_dictionary.asp