CG_CVFP ( vars ; vals ; tail )

Create Variables from Parameters

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

Thomas Mokwa - Show more from this author
ProFile Developers
http://profiledevelopers.com

Sample input:

CG_cvfp ( "" ; "" ; "" )

For this example the script name is: "my Script ( var1 ; var2 )"
and the parameter is: "parValue1||2nd Par"

Sample output:

$var1 = "ParValue1"
$var2 = "2nd Par"

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

/****************************************************************
* CG_cvfp(vars, vals, tail)
*   Creates $global variables with values
*
*   Input variable names are part of the script name in brackets separated by pipes:
*     Script Name: "MyScript Name (var1 ; var2 ; var3...)"
*
*   Input values are in the script parameters, a value list:
*     "value1¶nvalue2¶nvalue3..."
*
*   The function returns "Ok" or an error message.
*
*   Call from a script (three empty parameters are required):
*     Set Variable [$result; Value:CG_cvfp(""; ""; "")]
*
*   This works by Evaluating a string built from the script name and parameters:
*     Evaluate("Let ( [ $var1="value1";$var2="value2";$var3="value3" ] ; "" ) ")
*
* James Mokwa 2013
* CG Software LLC  www.cgsoftware.com
*****************************************************************/


// CreateVariablesFromParameters(vars, vals, tail) =
// vars: "var1 var2 var3"
// vals: "value1\nvalue2\nvalue3"
// tail: "$var1=\"value1\"; $var2=\"value2\"; $var3=\"value3\""
// returns: "Ok" or an error message

If (IsEmpty(vars) and IsEmpty(vals) and IsEmpty(tail);
  Let([ sn = Get(ScriptName);
        vars =  Substitute(Middle(sn; Position(sn; "("; 1; 1)+1; Length(sn)-Position(sn; "("; 1; 1)-1); ";"; " ");
        vals = Get(ScriptParameter) ];
        If(WordCount(vars) = ValueCount(Substitute(vals; "_"; ""));
          CG_cvfp(vars; vals; "");
          "Error: found " & WordCount(Substitute(vars; "_"; "")) & " variables but " & ValueCount(vals) & " values.")
  );

  If (IsEmpty(vars);
    Evaluate("Let ( [ " & Left(tail; Length(tail)-1) & " ] ; \"Ok\" ) ");
    CG_cvfp(
      MiddleWords(vars; 2; 999);
      RightValues(vals; ValueCount(vals)-1);
      tail & "$" & LeftWords(vars; 1) & "=\"" & GetValue(vals; 1) & "\";")
  )
)

This custom function generates local variables from a Script Name and passed parameters.

parameters as local variables can make a script much easier to read (and write). Other methods of doing this might require named parameters to be parsed out one by one or they use global variables that should then be cleared at the end of a script. This method requires a single script step where the local variable is defined in the script name. Passed parameters are simply return delimited.

Format your script name as: "MyScript Name (var1 ; var2 ; var3...)"
There is no limit to the number of parameters passed.
When passing mulitple parameters you must separate them with a return (¶).

The custom function is called with no parameters.
Set Variable [$result; Value:CG_cvfp(""; ""; "")]

The function parses the script name and matches with the script parameters to create local variables which can be referenced throughout a script.

Passed parameter values cannot contain semicolons or parenthesis. You can either swap them out prior to passing or modify the function to use different delimiters such as brackets and pipes.

Comments

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

CG_CVFP ( vars ; vals ; tail )

Comments

Support this website.

Support this website.