AspirinJunkie Posted January 19, 2023 Share Posted January 19, 2023 (edited) At first, the topic sounds frightening and you ask yourself: why do I need something like that? At second glance, however, questions that can be solved effectively with set operations often appear here in the forum. Questions like "all elements which occur in Array1 as well as in Array2" are examples for such problems. This UDF therefore provides a set data type and brings the corresponding mathematical functions (union, intersection, difference, symmetric difference). To stand out a bit from the crowd, the UDF offers a function which can directly solve complex set algebra expressions like A∪B-(B∩(A∪A)∪C). If you detach yourself a bit from the mathematical theory and look at the practice, you will surely find a useful application for this. How does it work? - Here is a big example: Spoiler expandcollapse popup; example values Local $a_Test_1[] = [1, 2, 3, 4, 5] Local $a_Test_2[] = [4, 5, 6, 7, 8, 9] Local $a_Test_3[] = [4,5,6,7,8] ; create sets out of example arrays $o_Set_1 = _set_Create($a_Test_1) $o_Set_2 = _set_Create($a_Test_2) $o_Set_3 = _set_Create($a_Test_3) ; add one or more values: _set_Add($o_Set_1, 6) Local $a_Temp[] = [10, 11, 12] _set_Add($o_Set_1, $a_Temp) ; delete one or more values: _set_Delete($o_Set_1, 6) _set_Delete($o_Set_1, $a_Temp) ; calculate union A∪B of two sets: Local $o_Union = _set_Union($o_Set_1, $o_Set_2) _set_Display($o_Union, "union A∪B") ; calculate intersection A∩B of two sets: Local $o_Intersection = _set_Intersect($o_Set_1, $o_Set_2) _set_Display($o_Intersection, "intersect A∩B") ; calculate the difference A-B (also A\B ): Local $o_difference = _set_Difference($o_Set_1, $o_Set_2) _set_Display($o_difference, "difference A-B") ; calculate the symmetric difference A△B : Local $o_SymDifference = _set_SymDifference($o_Set_1, $o_Set_2) _set_Display($o_SymDifference, "symmetric difference A△B") ; calculate complex algebraic statements $o_Result = _set_algebraic("AuB-(Bn(AuA)uC)", $o_Set_1, $o_Set_2, $o_Set_3) _set_Display($o_Result, "AuB-(Bn(AuA)uC)") ; check if a value exist in the set: If _set_Contain($o_Set_1, 4) Then MsgBox(0,"", "value '4' exists in $o_Set_1") ; check if another if a set A is subset of B: Local $a_Vals[] = [2,3,4] Local $o_A = _set_Create($a_Vals) If _set_Contain($o_Set_1, $o_A) Then MsgBox(0,"", "$o_A is a subset of $o_Set_1" & @CRLF & "( o_A ⊆ o_Set_1 )") ; convert set to array: Local $a_Array = _set_ToArray($o_SymDifference) _ArrayDisplay($a_Array, "converted array") >>sourcecode and download on github<< Edited May 2, 2023 by AspirinJunkie Link to comment Share on other sites More sharing options...

water Posted January 21, 2023 Share Posted January 21, 2023 Added this UDF to the wiki. My UDFs and Tutorials: Spoiler UDFs:Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - WikiExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example ScriptsOutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - WikiOutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - DownloadOutlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - WikiPowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - WikiTask Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs:Excel - Example Scripts - WikiWord - Wiki Tutorials:ADO - WikiWebDriver - Wiki Link to comment Share on other sites More sharing options...

## Recommended Posts

## Create an account or sign in to comment

You need to be a member in order to leave a comment

## Create an account

Sign up for a new account in our community. It's easy!

Register a new account## Sign in

Already have an account? Sign in here.

Sign In Now