Newest functions Upload a function Leave a tip My account

There are 2,577 functions in this library.

RootKeywords ( text ; separator )

variation on keyword function that removes plural and adjective word endings

  Average rating: 4.4 (31 votes) Log in to vote

avi CommunityPRO http://www.community-pro.com

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

Case ( WordCount( text ) = 0 ; "" ; Let( [ LastWord = RightWords( text ; 1 ) ; StaticWords=Case( WordCount(text)=4;LeftWords(text;3)&" "; WordCount(text)=3;LeftWords(text;2)&" "; WordCount(text)=2;LeftWords(text;1)&" ";""); LastWordSingular = StaticWords&LastWord & Case( // Words inding in "ies" need to end in "y" and "ie". Right ( LastWord ; 3 ) = "ies" ; separator & StaticWords&Left ( LastWord ; Length ( LastWord ) - 3 ) & "y" & separator &StaticWords& Left ( LastWord ; Length ( LastWord ) - 1 ) ; //irregular plurals (knives, calves,foxes,passes,men,axes,potatoes,algae,data, etc.) Right(LastWord;4)="sses" or Right(LastWord;4)="sser" ;separator & StaticWords& Left ( LastWord ; Length ( LastWord ) - 2 ) ; Right(LastWord;3)="xes" ;separator & StaticWords& Left ( LastWord ; Length ( LastWord ) - 2 ) ; Right(LastWord;3)="oes" ;separator & StaticWords& Left ( LastWord ; Length ( LastWord ) - 2 ) ; Right(LastWord;3)="ves";separator&StaticWords& Left(LastWord;Length(LastWord)-3)&"f"& separator&StaticWords& Left(LastWord;Length(LastWord)-3)&"fe"; //manage majority of "ES" endings like horses Right(LastWord;2)="es" ;separator &StaticWords& Left ( LastWord ; Length ( LastWord ) - 1 )& separator & StaticWords& Left ( LastWord ; Length ( LastWord ) - 2 )&"is" ; Right(LastWord;3)="men";separator&StaticWords& Left(LastWord;Length(LastWord)-3)&"man"; Right(LastWord;2)="ae";separator&StaticWords& Left(LastWord;Length(LastWord)-1); Right(LastWord;1)="i";separator&StaticWords& Left(LastWord;Length(LastWord)-1)&"us"; Right(LastWord;1)="a";separator&StaticWords& Left(LastWord;Length(LastWord)-1)&"um"; Right(LastWord;1)="a";separator&StaticWords& Left(LastWord;Length(LastWord)-1)&"on"; // classic plurals--Words ending in "s" Right ( LastWord ; 1 ) = "s" and Right(LastWord;2 )≠ "ss" ; separator &StaticWords& Left ( LastWord ; Length ( LastWord ) - 1 ); // Words ending in "ing" or may also end in a double last letter or "e". Right ( LastWord ; 3 ) = "ing" and Middle ( LastWord; Length(LastWord)-3; 1)=Middle(LastWord ; Length(LastWord)-4;1);separator &StaticWords& Left ( LastWord ; Length ( LastWord ) - 4); Right ( LastWord ; 3 ) = "ing" ; separator &StaticWords& Left ( LastWord ; Length ( LastWord ) - 3 ) & separator &StaticWords& Left ( LastWord ; Length ( LastWord ) - 3 ) & "e" ; // Words ending in "ish" or may also end in a double last letter or "e". Right ( LastWord ; 3 ) = "ish" and Length(LastWord>5) and Middle ( LastWord; Length(LastWord)-3; 1)=Middle(LastWord ; Length(LastWord)-4;1);separator &StaticWords& Left ( LastWord ; Length ( LastWord ) - 4); Right ( LastWord ; 3 ) = "ish" and Length(LastWord>5) ; separator &StaticWords& Left ( LastWord ; Length ( LastWord ) - 3 ) & separator &StaticWords& Left ( LastWord ; Length ( LastWord ) - 3 ) & "e" ; // Words ending in "er" might have a double last letter Right ( LastWord ; 3 ) = "ser"; separator&StaticWords &Left ( LastWord ; Length ( LastWord ) - 1 ); Right ( LastWord ; 2 ) = "er" and Middle ( LastWord; Length(LastWord)-2; 1)=Middle(LastWord ; Length(LastWord)-3;1);separator &StaticWords& Left ( LastWord ; Length ( LastWord ) - 3); Right ( LastWord ; 2 ) = "er" ; separator &StaticWords& Left ( LastWord ; Length ( LastWord ) - 2 ) ) ] ; Case( WordCount( text ) > 1 ; LastWordSingular & separator; LastWordSingular & separator ) ) ) Click to copy

Matching multikey words so that english language plurals match singular words is tricky. This function adds more word endings to the original keyword function including irregular plurals and descriptive endings like "ish" (sorry, no adverbs this time around). The function only parses the last word in the string if there are more than one word.

 

Comments

Log in to post comments.

 

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

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 21 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: