Anlage des Repos

current/Modules/RemoveDuplicatesFromArray.vbs

@@ -0,0 +1,41 @@
+Function RemoveDuplicatesFromArray(arrItems)
+
+	'Source: https://devblogs.microsoft.com/scripting/how-can-i-delete-duplicate-items-from-an-array/
+
+	If (Ubound(arrItems) >= 0) Then
+
+		If (DEBUG_ON = True) Or (DebugMode = "Enabled") Then
+			MSGBOX	"Array count: " & (Ubound(arrItems)+1),,"DEBUG - Info: BEFORE deduplication!"
+		End If
+
+		Set objDictionary = CreateObject("Scripting.Dictionary")
+
+		For Each strItem in arrItems
+			If Not objDictionary.Exists(strItem) Then
+				objDictionary.Add strItem, strItem   
+			End If
+		Next
+
+		intItems = objDictionary.Count - 1
+
+		ReDim arrItems(intItems)
+
+		i = 0
+
+		For Each strKey in objDictionary.Keys
+			arrItems(i) = strKey
+			i = i + 1
+		Next
+
+		'For Each strItem in arrItems
+		'	msgbox strItem
+		'Next
+
+		If (DEBUG_ON = True) Or (DebugMode = "Enabled") Then
+			MSGBOX	"Array count: " & (Ubound(arrItems)+1),,"DEBUG - Info: AFTER deduplication!"
+		End If
+
+	End If
+
+	RemoveDuplicatesFromArray = arrItems
+End Function