XYplorer Beta Club

Code: Select all

text pcrecapture("abc[xyz]<crlf>[1||2||3]", '(?mi)^(\w)*(\[.*?\])', 1, '||'); // abc
text pcrecapture("abc[xyz]<crlf>[1||2]", '(?mi)^(\w)*(\[.*?\])', 2, '||'); // [xyz]||[1]\|\|2

Code: Select all

Input: string, regex, separator

1. Obtain an array of matches
2. "Replace/escape" all the 'separator' with '\separator' in the matches while they're still contained in the array
3. Flatten the array using 'separatorseparator' as separator between elements

Code: Select all

pcrematch($string, $pattern, $sep='||', $returnmatch, $unescaped=0)

string       string to search in (haystack)

pattern      The RegExp pattern to search for in string (needle).
             All PCRE syntax is supported. Options can be defined
             using PCRE syntax, eg, (?mi).*pattern.*

separator    Separator between matches in the returned list. This
             must be at least two characters long. If only one
             character is given, it's silently doubled.
             Defaults to "||".

returnmatch  1-based index of only one match to return. If this is
             greater than total matchcount, the last one is returned.
             Ineffective if less than 1.

unescaped    Turns off separator escaping in returned match(es)
             This is useful when it's known that the source string
             does not contain the separator string. (eg, it's a single
             line string, and separator is given as <crlf>)

By default, each character in the separator is escaped in returned matches
as \s, \e, \p...
So that a gettoken() on the return can retrieve matches in whole.
As a result, the retrieved token has to be run through a replacement command:
replacelist('retrieved match', '\s,\e,\p', 's,e,p',',')

Code: Select all

/*pcresplit()
   Splits a string into substrings at each position
   where a regexp pattern matches.
   Returns substrings in defined format.
$string   String to work on.
$pattern  The RegExp pattern to match.
          The portion that matches is removed.
          Part or the pattern can be skipped:
          (?<=pre)pattern(?=post)
$sep      same as in pcrematch()
$format   same as in pcrematch()
Notes: see notes of pcrematch()
*/