ListOfUniq ( listOfValues )

Delete duplicate values from a list.

Average rating: 4.6 (32 votes) Log in to vote

HAZI
none
http://hazisarashi.com/

Sample input:

RectangleArea ( "AAA¶BBB¶CCC¶AAA¶DDD" )

Sample output:

"AAA¶BBB¶CCC¶DDD"

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/*
ListOfUniq ( listOfValues )
Delete duplicate values from a list.
ListOfUniq ( "AAA¶BBB¶CCC¶AAA¶DDD" ) -> "AAA¶BBB¶CCC¶DDD"
*/

If (
    // new
    listOfValues <> "__NULL__" ;
    Let ([
        // Initialize
        $$_ListOfUniq_Data = listOfValues ;
        $$_ListOfUniq_Result = "" ;
        $$_ListOfUniq_n = 1 ;
        
        // Removing extra line breaks
        $$_ListOfUniq_Data = "¶" & Substitute ( $$_ListOfUniq_Data ; [ "¶¶¶¶¶" ; "¶" ] ; [ "¶¶¶¶" ; "¶" ] ; [ "¶¶¶" ; "¶" ] ; [ "¶¶" ; "¶" ] ) & "¶"
    ];
        ListOfUniq ( "__NULL__" )
    );
  
    // After the second
    If (
        // Loop end
        ValueCount ( $$_ListOfUniq_Data ) < $$_ListOfUniq_n ;
        Let([
            // Global variable initialize
            _ListOfUniq_Result = $$_ListOfUniq_Result ;
            $$_ListOfUniq_Data = "" ;
            $$_ListOfUniq_Result = "" ;
            $$_ListOfUniq_n = ""
        ];
            // Return
            _ListOfUniq_Result
        );
        
        
        // Loop
        If (
            // Does not contain data for the current row in the $$_ListOfUniq_Result
            PatternCount ( "¶" & $$_ListOfUniq_Result & "¶" ; "¶" & GetValue( $$_ListOfUniq_Data ; $$_ListOfUniq_n ) & "¶" ) = 0;
            
            // True
            Let([
                $$_ListOfUniq_Result = List ( $$_ListOfUniq_Result ; GetValue( $$_ListOfUniq_Data ; $$_ListOfUniq_n ) ) ;
                $$_ListOfUniq_n = $$_ListOfUniq_n + 1
            ];
                ListOfUniq ( "__NULL__" )
            );
            
            // False
            Let([
                $$_ListOfUniq_n = $$_ListOfUniq_n + 1
            ];
                ListOfUniq ( "__NULL__" )
            )
        )
    )
)

none

Comments

		Bruce Robertson Dec 6, 2011
Doesn't work as posted; error in the parameter name inside the calc. Shouldn't Data be ListOfValues Data <> "__NULL__" ; Let ([ // Initialize $$_ListOfUniq_Data = Data

		Bruce Robertson Dec 6, 2011
When corrected, it appears to be noticeably slower than XORValues(ListA; ListB), which does the same thing when ListA or ListB is empty.

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

ListOfUniq ( listOfValues )

Comments

Support this website.

Support this website.