RepeatValueFinder ( ValueList )

Identify and return values that are repeated in a list

Be the first to rate this function Log in to vote

Kent Silveira - Show more from this author
Kona Koncepts
http://www.konakoncepts.net

Sample input:

RepeatValueFinder ( "Apple¶Pear¶Orange¶Grape¶Apple¶Strawberry¶Apple¶Grape¶Apricot¶Strawberry¶Grape¶Pineapple¶Lemon")

Sample output:

Strawberry
Grape
Apple

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

/*Nov 24, 2020 Kent Silveira: 

The FilterValue code is from the DupesInList custom function from Daniele Raybaudi (http://www.aci.it) which itself was inspired by Jon Rosenʻs IdentifyDupes cf1334

DupValueFinder modifies the previous functions by using the While function (rather than a Let statement into a recursive CF).

It also no longer needs the internal variables to be $ variables, so no possibility of accidentally crossing over with a variable in a running script   */

While ( 

[ 

~list = ValueList ;

~i = 0 ;

~last = ValueCount ( ~list ) ; 

~dupes = ""

 ] ;

~i  ≤ ~last ; 

[ 

~i = ~i + 1 ;

~value = GetValue ( ~list ; ~i ) ;

~dupes = If ( ValueCount ( FilterValues ( ~list ; ~value ) ) > 1 and not ValueCount ( FilterValues ( ~dupes ; ~value ) )  ; List ( ~value ; ~dupes ) ; ~dupes ) 

] ; 

~dupes

)

The FilterValue code in this custom function is from the DupesInList custom function from Daniele Raybaudi (http://www.aci.it) which itself was inspired by Jon Rosenʻs IdentifyDupes cf1334

RepeatValueFinder attempts to improve on this by leveraging the relative new "While" function. This allows the feature to work without needing to call the function recursively.

It also no longer needs the internal variables to be $ variables, so no possibility of accidentally crossing over with a variable in a running script.

Comments

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

RepeatValueFinder ( ValueList )

Comments

Support this website.

Support this website.