cfStackAppendSlide ( pInput ; pVariableName ; pStackDepth )

Append a new entry to a stack (global var) _and_ delete first entry if count of values exceeds stack depth.

Average rating: 4.5 (38 votes) Log in to vote

Tammo Fornalik / Felix Hausberner
dbyte solutions
http://www.dbyte-solutions.com

Sample input:

1. Number of Entries ≤ 3
cfStackAppendSlide( "Edward Berger"; "$$Films_StoredSearchterms"; 3 )

2. Number of Entries > 3
cfStackAppendSlide( "Edgar Berger"; "$$Films_StoredSearchterms"; 3 )

Sample output:

1.
Multiline adventures [line 1]...
Multiline adventures [line 2]
Heavy searches
Edward Berger

2.
[note: deletes entry number 1 if number of entries exceeds 3]:

Heavy searches
Edward Berger
Edgar Berger

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

/*
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 )
)

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.

Comments

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

cfStackAppendSlide ( pInput ; pVariableName ; pStackDepth )

Comments

Support this website.

Support this website.