FileMaker Pro Custom Functions

/* cfLayoutLister( whichFile; counter; fieldName; onlyLayouts; result) returns a list of layouts and the fields on each layout enter 1 for the counter, unless you want to start at a layout later in the file if fileName is "" then current file is used if fieldname is specified then result only show for layouts containing field fieldname if fieldName is "" then all layouts are returned if onlyLayouts is not "" then only layout names will be returned */ Let ([ f = Case( IsEmpty( whichFile) ; Get(FileName); whichFile); layoutlist = LayoutNames ( f ) ; n = ValueCount ( layoutlist ); findAll = Case(PatternCount(fieldName; "*"); 1); thisField = Substitute(fieldName; "*"; ""); thisLayout = GetValue ( layoutlist ; counter ); fieldList = ¶ & FieldNames ( f ; GetValue ( layoutlist ; counter )) & ¶; flag = Case( IsEmpty(fieldName); 1; PatternCount( fieldList; ¶ & thisField & ¶) > 0; 1; PatternCount( fieldList; "::" & thisField & ¶) > 0; 1; FindAll = 1 and PatternCount( fieldList; thisField ) > 0; 1 ); thisResult = Case( Flag = 1 and IsEmpty( onlyLayouts) ; Case(IsEmpty(result); ""; result & "¶¶" ) & TextStyleAdd ( thisLayout ; Bold ) & ¶ & QuickSort( FieldNames ( f ; GetValue ( layoutlist ; counter ))); Flag = 1; Case(IsEmpty(result); ""; result & "¶" ) & thisLayout; Result ) ] ; //end variables Case ( counter < n; cfLayoutLister ( whichFile; counter+1; fieldName; onlyLayouts; thisresult); result) )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.