XORValues_18 ( ListA ; ListB )

A FileMaker 18+ internally recursive function, using While( ).

Be the first to rate this function Log in to vote

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

Sample input:

XorValues_18 ( "AAA¶BBB¶¶CCC¶DDD¶¶123" ; "AAA¶¶BBB¶123¶456" )

Sample output:

456¶CCC¶DDD

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

Let ( [
		A = UniqueValues ( ListA ) ;
		B = UniqueValues ( ListB )
	] ;
	While (
		// init
		[
			NewList = "" ;
			ShortList = If ( ValueCount ( A ) >= ValueCount ( B ) ; B ; A ) ;
			LongList = If ( ValueCount ( A ) >= ValueCount ( B ) ; A ; B )
		] ;

		// test
		ShortList <> "" ;
	
		// logic
		[
			ThisVal = GetValue ( ShortList ; 1 ) ;
			ShortList = MiddleValues ( ShortList ; 2 ; 64000 ) ;
			NewList = List (
				NewList ;
				Case (
					FilterValues ( LongList ; ThisVal ) = "" ; ThisVal ; // not in longlist
					""  // exists in longlist
				) 
			);
			// remove ThisVal from LongList
			LongList = Substitute (
				"§§¶" & LongList & "¶§§" ;
				[ ¶ & ThisVal & ¶ ; ¶ ] ;
				[ "¶§§" ; "" ] ;
				[ "§§¶" ; "" ] ;
				[ "§§" ; "" ]
			)
		];

		// result - anthing left in LongList is unique to LongList
		List ( NewList ; LongList )
	)
)

This is an 'in-place' XORValue function that doesn't call itself - it's useful as part of larger functions that don't need to recurse.

Someone will be along shortly to tell me how I should have done it ;-) ...

Comments

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

XORValues_18 ( ListA ; ListB )

Comments

Support this website.

Support this website.