HighlightOccurrence ( ListToTest ; ListToCompare ; ColorMatch ; ColorNoMatch )

this function will recursively color code values in ListToTest by determining if they occur in ListToCompare

Average rating: 4.7 (29 votes) Log in to vote

Maarten Witberg - Show more from this author
http://www.maatwerkdbs.nl

Sample input:

HighlightOccurrence ( "apple¶pear¶banana " ; "kumquat¶banana¶guave" ; 0 ; RGB ( 200 ; 0 ; 0 ) )

Sample output:

apple¶pear¶banana with the value banana in red.

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

//HighlightOccurrence ( ListToTest ; ListToCompare ; ColorMatch ; ColorNoMatch )
//by maarten witberg 2008
//this function will recursively color code values in ListToTest by determining if they occur in ListToCompare
//input format for ListToTest and ListToCompare : ¶ -delimited values
//two color parameters allow the user to select a highlight color 
//for either or both matching and non-matching values

Let(
[
 text = ListToTest ;
 first = LeftValues ( text ; 1 ) ;
 next =
    Case
     (
       not PatternCount ( ListToCompare & ¶ ; first ) ;
       TextColor ( first ;  ColorNoMatch ) ;
       TextColor ( first ; ColorMatch )
     ) ;
 text = RightValues ( text ; ValueCount (text ) - 1 )
];
  next &  
  Case 
    ( 
       not IsEmpty ( text ) ; 
       HighlightOccurrence ( text ; ListToCompare ; ColorMatch ; ColorNoMatch ) 
    )
) // end let

- This function will recursively color code values in ListToTest by determining if they occur in ListToCompare
- Input format for ListToTest and ListToCompare : ¶ -delimited values;
- Two color parameters allow the user to select a highlight color for either or both matching and non-matching values
-contact me: witbe001 - at - planet.nl

Comments

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

HighlightOccurrence ( ListToTest ; ListToCompare ; ColorMatch ; ColorNoMatch )

Comments

Support this website.

Support this website.