FileMaker Pro Custom Functions

/* authors: tammo fornalik, felix hausberner keywords: list, array, stack, append, kick first at max, GUI, not recursive version: 1.01, 2007/11/18 description: append a new entry to a "stack" (global var) _and_ delete the first entry if count of values exceeds pStackDepth. usage: GUI ops like logging/recalling successive entries of a global searchfield etc. while limiting stack depth. you may save multiline-values inside a single entry of the stack. --> call: cfStackAppendSlide( "Edward Berger"; "$$Films_StoredSearchterms"; 5 ) or call: cfStackAppendSlide( "Edward Berger"; "Films_StoredSearchterms"; 5 ) . this will append the string "Edward Berger" as a new entry of stack "$$Films_StoredSearchterms". if the stack contains less than 5 entries, "Edward Berger" will become the last entry of the stack and that's all. if the stack already contains 5 entries, the 1st entry will be deleted while the 2nd becomes 1st, 3rd becomes 2nd, 4th becomes 3rd, 5th becomes 4th and the new 5th becomes "Edward Berger". return: complete stack. <-- */ Let( [ vInput = pInput ; vVarName = "$$" & Substitute( pVariableName ; "$" ; "" ) ; vMax = pStackDepth ; vSep = "|•-•|" ; //separator - change as you like, avoid linebreaking separator as the content itself may contain linebreaks vStored = Evaluate( vVarName ) ; // vPreComp = vStored & Case( not IsEmpty( vInput ); vInput & vSep; "" ) ; vFirstBlockLen = Position( vPreComp ; vSep ; 1 ; 1 ) + Length( vSep ) -1 ; vCntBlocks = PatternCount( vPreComp ; vSep ) ; vNew = Case( vCntBlocks > vMax ; Replace( vPreComp ; 1 ; vFirstBlockLen ; "" ); vPreComp ) ; // vLetTxt = "Let( " & vVarName & " = " & Quote( vNew ) & " ; \"\" )" ; vInit = Evaluate( vLetTxt ) ]; Evaluate( vVarName ) )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.