VariablesLog ( _key ; _repetition ; _value )

Set a named global variable and logs it in order to pass it to another file

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

Fabrice Nordmann - Show more from this author
1-more-thing
https://www.1-more-thing.com

Sample input:

VariablesLog ( "name" ; 1 ; "John" )

Sample output:

a variable $$name, that contains John, and a variable $$VariablesLog, that contains, amon others : $$name|john

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

/*
VariablesLog ( _key ; _repetition ; _value )
by Fabrice Nordmann

v.2.2, May 2008
 - repetitions
v.2.1, Jan 2008
 - handles quotes and double quotes
v.2.0, Sept 2007
 - handles multine values if variable is declared several times (uses |#|CR|#| to display ¶ in $$_VariablesLog)

inspired by 
VariableInitialize
Jonathan Mickelson, Thought Development Corp.
http://thought-dev.com
*/

// initialise file log
Case ( IsEmpty ( $$_VariablesLog ) ; 
Let ( $$_VariablesLog = "VariablesLog for " & Get ( FileName ) & " - " & Get ( UserName ) ; "")
; "" )

&

Let ([
  _repetition = Int ( GetAsNumber ( _repetition ))
; _repetition = Case ( _repetition <> 1 ; _repetition )
; _key = Case ( Left ( _key ; 2 ) <> "$$" ; "$$" & _key ; _key ) & Case ( not IsEmpty ( _repetition ) ; "[" & _repetition & "]" )

/* DECLARE VARIABLE */
//; dim = Evaluate ( "let ( " & _key & " = \"" & _value & "\" ; \"\")")
; var = ¶ & _key & "|"
; CR = "#CR#"
; _value = Substitute ( _value ; ¶ ; CR )
; dim = Evaluate ( "let ( " & _key & "=\"" & Substitute ( _value ; [ CR ; "\¶" ] ; [ "\"" ; "\\\"" ] ; [ "\“" ; "\\\“" ] ; [ "\”" ; "\\\”" ] ) & "\" ; \"\")")

//#### is variable already logged ?
; exists = Case ( PatternCount ( ¶ & $$_VariablesLog ; var ) ; 1 ; 0 )

//#### no, it isn't
/* LOG VARIABLE */
; log = Case ( exists = 0
  ; Let ( $$_VariablesLog = $$_VariablesLog & var & _value ; "" )
  ; ""
  )

//#### yes, it is
/* MODIFY LOG */
; pos = Position ( ¶ & $$_VariablesLog ; var ; 1 ; 1 )
; len = Length ( var ) -1
; pos = pos + len
; end = Position ( $$_VariablesLog & ¶ ; ¶ ; pos ; 1 ) 
; nbchar = end - pos

; log = Case ( exists = 0 ; log ;
Let ( $$_VariablesLog = Replace ( $$_VariablesLog ; pos ; nbchar ; _value ) ; "" )
) // Case
];
"")

Use this function in combination with VariablesResetAll and VariablesLoadFromLog to be able to pass global variables from one file to another.

Comments

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

VariablesLog ( _key ; _repetition ; _value )

Comments

Support this website.

Support this website.