LayoutFields

Non recursive, list all fields values on the current layout, in either Find or Browse Mode

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

Ugo Di Luca - Show more from this author
DLSYSTEMS
http://www.dlsystems.fr

Sample input:

LayoutFields

Sample output:

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

Let ( [

/*All Fields on Current Layout*/
Fields= FieldNames ( Get ( FileName ) ; Get ( LayoutName ) ) ;

/*Double List Items, introducing Tags*/
DbleAndTags = "<" & Substitute ( Evaluate ( Substitute ( "|" & Fields ; ["¶" ;"¶|" ] ; 
["|"; "Substitute ((10 ^ 2)-1;\"9\"; \"" ] ; ["¶" ; "|\" )  & \" \" & " ] ) & "|\""  & " )" ) & " " & "/" ; [ "| " ; "¶<" ] ; [ "|" ; ">"] ; ["¶/" ; "" ] ; ["</" ; "" ]) ;

/*Final List, ready for Evaluation*/
FinalList = Substitute ( DbleAndTags  & "/" ; [ ">" ; ">\" " &"& GetField (\"" ]; ["¶" ; "\") & "]  ; [ "& /" ; "" ] ; ["<" ; "\"<" ]) ;

/*Add Layout Name, Request Number and Request Omit State as leading value of the chain if in Find Mode, LayoutName and Record Number if in Browse */
C = "|Layout|" & Get ( LayoutName ) & 
Choose ( Get ( WindowMode ) ;  "¶|RecordNumber|" & Get ( RecordNumber ) ; "¶|RequestNumber|"  & Get ( RecordNumber ) & "¶|RequestOmitState|" & Get ( RequestOmitState ) ) & "|¶" & Evaluate ( FinalList ) ] ;


/*Last cleaning*/

Substitute ( C ; ["<" ; "¶<" ] ; ["|¶" ; "" ])

)

This function may be used to store a search request ( or n search requests if used in a loop ), in order to perform it again through a script that would loop through all layout fields and set the values according to what the function returned.
It may also be used to temporarily store the content of all fields on layout

Doesn't work with repeating fields, which isn't a problem in find Mode.

This function returns all fields on the layout.
In order to only limit its content to the not empty fields, you may use it in combination with ZapValues ( from Ray Cologon ) , for example

Let ( [
fields = FieldNames ( Get ( FileName ) ; Get ( LayoutName ) ) ;
subst = Substitute ( "<" & fields & ">" ; ["¶" ; ">¶<" ] ) ] ;
ZapValues ( LayoutFields ; subst )
)

Comments

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

LayoutFields

Comments

Support this website.

Support this website.