UniqueList ( ListA ; CaseSensitive )

Unique data in a list

Average rating: 4.5 (44 votes) Log in to vote

Agnes Barouh - Show more from this author
Tic Tac
http://www.tictac.fr/CoinFileMaker/Page.html

Sample input:

UniqueList ( "One¶Two¶three¶two¶One ; "" or 0 )

--------------------
UniqueList ( "One¶Two¶three¶two¶One ; 1 )

Sample output:

One¶Two¶three

-------------

One¶Two¶three¶two

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

/* UniqueList ( ListA ; CaseSensitive ) .v1_1  
UniqueList () requires CustomList ( Start ; End ; Function )*/
// Limited => ListA < 18700
// Optional parameters : CaseSensitive : Boolean

// UniqueList ( "One¶Two¶three¶Four¶five¶ONE¶two¶four¶five¶Seven"  ; "" or 0 ) -> Result = "One¶Two¶three¶Four¶five¶Seven"
// CaseSensitive :
// UniqueList ( "One¶Two¶three¶Four¶five¶ONE¶two¶four¶five¶Seven"  ; 1 ) -> Result = "One¶Two¶three¶Four¶five¶ONE¶two¶four¶Seven"

//-------------------------------------------------------------------*/
// Agnès Barouh - Septembre 2007 - Bugs / Corrections Report :  barouh.agnes@wanadoo.fr
//-------------------------------------------------------------------*/

Case ( 
        ValueCount ( ListA ) > 18700 ; "Too many Values" ;
        not ( CaseSensitive = 1 or ( GetAsNumber ( CaseSensitive + 0 ) = 0 ) ) ; "Incorrect CaseSensitive" ;

      Let([
            $Values = "" ;
            $MyFirstList = ListA ;
            $MyList = "|" & Substitute ( ListA ; ¶ ; "|¶|" ) & "|" ;
            $Rc = ¶
      ];
            Choose ( CaseSensitive ;

       CustomList ( 1 ; ValueCount ( $MyFirstList  ) ;
       "Let( [
TheValue = GetValue( $MyFirstList ; [n] ) ] ; 
Case ( PatternCount ( $Rc & $Values & $Rc ; $Rc & TheValue & $Rc ) < 1 ; 
Let ( $Values = $Values & $Rc & TheValue ; TheValue )))" ) ;

        CustomList ( 1 ; ValueCount ( $MyFirstList  ) ;
        "Let( [ 
TheValue = GetValue( $MyList ; [n] ) ;
Test = Substitute ( $Values ; TheValue ; \"X##X\" & TheValue ) ;
$Values = $Values & $Rc & TheValue ] ; 
Case ( PatternCount ( Test ; \"X##X\" & TheValue ) < 1 ; GetValue( $MyFirstList ; [n] )))" )
              )
        )
& Let ( [ $Values = "" ; $MyFirstList = "" ; $MyList = "" ] ; "" )
)

Not recursive Function - Optional Parameters : Case Sensitiveness ( boolean format or null )

* UniqueList () requires CustomList ( start ; End ; Function )
http://www.briandunning.com/cf/868

----------------------------------------- more détails

--------- CaseSensitive = empty or 0

UniqueList ( "One¶Two¶three¶Four¶five¶ONE¶two¶four¶five¶Seven" ; "" or 0 )
-> Result = "One¶Two¶three¶Four¶five¶Seven"

--------- CaseSensitive = 1

UniqueList ( "One¶Two¶three¶Four¶five¶ONE¶two¶four¶five¶Seven" ; 1 )
-> Result = "One¶Two¶three¶Four¶five¶ONE¶two¶Seven"

Comments

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

UniqueList ( ListA ; CaseSensitive )

Comments

Support this website.

Support this website.