AspirinJunkie 86 Posted January 19 Share Posted January 19 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") Set.au3 Link to post Share on other sites

water 2,703 Posted January 21 Share Posted January 21 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 post Share on other sites

## 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