$Lstr ParseX

<section begin="desc" />Part of longstring following character in delimiter set<section end="desc" />

Most Sirius $functions have been deprecated in favor of Object Oriented methods. The OO equivalent for the $Lstr_ParseX function is to be entered.

This function returns the part(s) of a longstring that remain after removing the part of the string that is delimited by a character in a delimiter set.

The $Lstr_ParseX function accepts three arguments and returns a longstring result that is a part of the first input long string.

The first argument is an arbitrary string or longstring.

The second argument is a string containing a set of delimiter characters.

The third argument is a starting position in the first argument string and has a default of 1.

Syntax

<section begin="syntax" /> %PIECE = $Lstr_ParseX(string, delims, start_pos) <section end="syntax" />

$Lstr_ParseX Function

%PIECE is a piece of the first argument string.

For example, the following statement would set %JUNK to WANT|NOT:

%JUNK = $Lstr_ParseX('WASTE NOT(WANT|NOT', '(|')

The statement below would set %JUNK to NOT:

%JUNK = $Lstr_ParseX('WASTE NOT(WANT|NOT', '|')

The following statement would set %JUNK to WASTENOT:

%JUNK = $Lstr_ParseX('WASTE NOT(WANT|NOT', '|', 6)

Note that this last result string is a concatenation of the characters that precede the starting position character in the initial string and the characters that follow the delimiter character. Also note that the characters that are not in this result string are exactly the characters that $Lstr_Parse (:hdref refid=lstrpar.) would return for this same initial string.

$Lstr_ParseX returns a null string if none of the delimiter characters are found.

• Sirius functions
• Fast/Unload User Language Interface
• Janus Open Client
• Janus Open Server
• Janus Sockets
• Janus Web Server
• Japanese functions
• Sir2000 Field Migration Facility

Products authorizing $Lstr_ParseX