CustomValuesLessThanOrEqual ( values ; reference ; valueFunction )

Values less than or equal to reference, evaluated using a custom function

Average rating: 4.0 (2 votes) Log in to vote

Richard Dyce - Show more from this author
Dyce & Sons Ltd.
http://dyce.com

Sample input:

CustomValuesLessThanOrEqual ( "3,5¶4,2¶1,3¶4,1¶1,7¶2,4¶1,9" ; "4" ; "Middle( \"[t]\" ; Position( \"[t]\" ; \",\" ; -1 ; 1 ) + Length( \",\" ) ; 64000 )")

Sample output:

"4,2¶1,3¶4,1¶2,4"

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

/*
CustomValuesLessThanOrEqual( values; reference ; valueFunction )
Returns all values in values that are less than or equal to reference parameter, using the valueFunction
where valueFunction is an evaulatable string, where "[t]" will be replaced with the value, before evaluation occurs,
e.g.

 "Middle( \"[t]\"  ; Position( \"[t]\" ; \" - \"  ; -1 ; 1 ) + Length( \" - \" ) ; 64000 )"

*/

Let(
	listLength = ValueCount( values );

	Case(
		// if the first element is less than or equal to reference...
		GetAsNumber( Evaluate ( Substitute( valueFunction ; "[t]" ; LeftValues( values; 1 ) ) ) ) <= GetAsNumber( reference );
		// return the first element
		LeftValues( values; 1 )
	)

	&

	Case(
		// if values is not trivial [there's more than one element]
		listLength > 1;
		// return all other elements less than reference
		CustomValuesLessThanOrEqual(
			RightValues( values; listLength - 1 );
			reference;
			valueFunction
		)
	)
)  // end Let()

CustomValuesLessThanOrEqual( values; reference ; valueFunction ) returns a list of all values in list that are less than or equal to the reference by comparing the first value determined using a custom function; then appending all other values less than or equal to the reference with a recursive call to itself.

Comments

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

CustomValuesLessThanOrEqual ( values ; reference ; valueFunction )

Comments

Support this website.

Support this website.