F$ELEMENT(): Difference between revisions

From VSI OpenVMS Wiki
Jump to navigation Jump to search
Created page with "'''F$ELEMENT()''' is a lexical function that extracts one element from a string of elements. It can be used, among other things, to emulate arrays in DCL..."
 
 
(3 intermediate revisions by 2 users not shown)
Line 7: Line 7:
'''Delimiter''' is the character used to delimit the elements in the string. For example, in "JAN/MAR/APR/MAY", the delimiter is "/", and in "John Doe", the delimiter is " ".
'''Delimiter''' is the character used to delimit the elements in the string. For example, in "JAN/MAR/APR/MAY", the delimiter is "/", and in "John Doe", the delimiter is " ".
'''String''' is the string containing the element.
'''String''' is the string containing the element.
If the selected element does not exist in the string, the delimiter character is returned.


=Example=
=Example=
  <nowiki>
  <nowiki>
$ DAY_LIST = "MON/TUE/WED/THU/FRI/SAT/SUN"
$ DAY_LIST = "MON/TUE/WED/THU/FRI/SAT/SUN"
$ MONDAY = F$ELEMENT(0,"/",DAY_LIST)
$ MONDAY = F$ELEMENT(0,"/",DAY_LIST)
$ SHOW SYM MONDAY
$ SHOW SYM MONDAY
   MONDAY = "MON"
   MONDAY = "MON"
$ EIGHTH_DAY = F$ELEMENT(7,"/",DAY_LIST) !non-existent element
$ SHOW SYM EIGHTH_DAY
  EIGHTH_DAY = "/"
  </nowiki>
  </nowiki>


Line 21: Line 28:
* [[F$EXTRACT()]]
* [[F$EXTRACT()]]
* [[F$MATCH_WILD()]]
* [[F$MATCH_WILD()]]
[[Category: Lexical Functions]]

Latest revision as of 12:48, 6 September 2019

F$ELEMENT() is a lexical function that extracts one element from a string of elements. It can be used, among other things, to emulate arrays in DCL.

Format

F$ELEMENT(element-number, delimiter, string)

Element numbers range from 0 to F$LENGTH(string). Delimiter is the character used to delimit the elements in the string. For example, in "JAN/MAR/APR/MAY", the delimiter is "/", and in "John Doe", the delimiter is " ". String is the string containing the element.

If the selected element does not exist in the string, the delimiter character is returned.

Example

$ DAY_LIST = "MON/TUE/WED/THU/FRI/SAT/SUN"

$ MONDAY = F$ELEMENT(0,"/",DAY_LIST)
$ SHOW SYM MONDAY
   MONDAY = "MON"

$ EIGHTH_DAY = F$ELEMENT(7,"/",DAY_LIST) !non-existent element
$ SHOW SYM EIGHTH_DAY
   EIGHTH_DAY = "/"
 

See also