GetNthRecordXML ( theFields ; recNum ; encodeFlag )

Returns record data in XML format for nth record

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

Bruce Robertson - Show more from this author

Sample input:

GetNthRecordXML( fieldNames( get(fileName); "Audit"); 3; 0)

Sample output:

R14
4/3/2007
12
Elfish
12:00:00

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

/*
Description:
GetNthRecordXML ( theFields; recNum; encodeFlag )
A recursive function that takes a list of field names
and returns an XML string with the field values for the Nth record
note that alphanumeric field names should be used in order to produce valid XML

Original cf getFieldsAsXML Written by Andy Knasinski
www.nrgsoft.com

derived cf GetNthRecordXML ( theFields; recNum )
created by Bruce Robertson

sample
GetNthRecordXML ( FieldNames ( Get ( FileName ) ; Get ( LayoutName ) ); 3 )
would return an XML string for all fields on the current layout, record 3
*/

If ( IsEmpty ( theFields );
theFields;

Let ([
recnum = Case(IsEmpty( RecNum); 1; recnum);
attribute = GetValue ( theFields ; 1 );
errFlag = Case( IsValid( GetNthRecord( GetField( attribute ); recnum)); 0; 1 );

thisValue = Case( errflag = 0; GetNthRecord( GetField( attribute ); recnum); "");

xmlString = Case(EncodeFlag = 1;
Substitute( thisValue ;
["|";" "]; /* pipe */
[" ";" "]; /* shift-space */
["&" ; "&amp;" ];
["<" ; "&lt;" ];
[">" ; "&gt;" ];
["\"" ; "&quot;"];
["'" ; "&apos;" ]
);
thisValue)
];

Case( errflag = 1; ""; 
  "<" & attribute & ">" & xmlString & "</" & attribute & ">" &

If ( ValueCount ( theFields ) > 1 ; "¶" ; ""  ) &
GetNthRecordXML ( RightValues ( theFields ; ValueCount ( theFields ) - 1 ); recnum; encodeFlag )
)
)
)

Similar to my getNthRow function, this returns data for all the specified fields, for the Nth record of a found set or relationship. Fields must be in a return separated list. If no match is found the result is empty.

Inspired by Andy Knasinski's GetFieldsAsXML custom function.

ADDED: encodeflag option. If encodeflag is set to 1, data is encoded in so that characters like XML pointy brackets are encoded; otherwise all field data is passed without any changes.

Updated 4/14/07

Comments

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

GetNthRecordXML ( theFields ; recNum ; encodeFlag )

Comments

Support this website.

Support this website.