XML_Get ( InXML ; InElement ; InOccurrence )

Returns the text between the Elements tags, for the given Occurrence

Be the first to rate this function Log in to vote

Richard DeShong - Show more from this author
Logic Tools
http://logictools.com

Sample input:

XML_Get ( $xml ; "E2" ; 1 ),
where $xml is xml text with an E2 element.

Sample output:

"B"

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

Let([ 
   ElementStart = Position( InXML ; "<" & InElement & ">" ; 1 ; InOccurrence ) ;
   ElementEnd = Position( InXML ; "</" & InElement & ">" ; 1 ; InOccurrence ) ;
   ValueStart = ElementStart + Length( InElement ) + 2 ;
   ElementValue = Middle( InXML ; ValueStart ; ElementEnd - ValueStart ) ;
   ElementValue = Trim( Substitute( ElementValue ; [ "¶" ; "" ] ; [ Char(9) ; "" ] ) )
]; 
   Case(
      ElementStart = 0; "Empty" ;   // no matching element
      ElementEnd < ElementStart; "Empty" ;   // xml format error
      IsEmpty( ElementValue ); "Empty" ;   // element found, but no data
      ElementValue
   )
)
/*
  Return the text between the Element tags, for the given occurrence.
  If $XML = <E1>A</E1><E2>B</E2><E1>C</E1> then
    XML_Get( $XML ; "E1" ; 1 ) returns "A"
    XML_Get( $XML ; "E1" ; 2 ) returns "C"
    XML_Get( $XML ; "E3" ; 1 ) returns "Empty"

  There is no xml-path traversal, this is just simple matching.
  Returns "Empty" for missing, empty or if xml is misformatted;
    If you need to distinguish, then change results of error tests.

  P.S. This was inspired by Andy Knasinski's ExtractData() -
    I just reworked the concept into my way of thinking.
*/

Given the xml, the element, and the occurrence, returns the text within the element.

There are two error conditions:
Error 1) the element is not found. Returns "Empty".
Error 2) the element "close" tag is found before the "open" tag. Returns "Empty".
If you want to receive error messages, then replace "Empty" as appropriate.

If there is no data between the element tags, then returns "Empty".
If you want to receive nothing if there is no data, then replace "Empty" with "".

Comments

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

XML_Get ( InXML ; InElement ; InOccurrence )

Comments

Support this website.

Support this website.