1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
(:**************************************************************:)
(: Test: functx-functx-substring-after-last-match-all :)
(: Written by: Priscilla Walmsley (Frans Englich is maintainer) :)
(: Date: 2008-05-16+02:00 :)
(:**************************************************************:)
declare namespace functx = "http://www.example.com/";
(:~
: The substring after the last text that matches a regex
:
: @author Priscilla Walmsley, Datypic
: @version 1.0
: @see http://www.xqueryfunctions.com/xq/functx_substring-after-last-match.html
: @param $arg the string to substring
: @param $regex the regular expression
:)
declare function functx:substring-after-last-match
( $arg as xs:string? ,
$regex as xs:string ) as xs:string {
replace($arg,concat('^.*',$regex),'')
} ;
(functx:substring-after-last-match(
'abc-def-ghi', '[ad]'), functx:substring-after-last-match(
'abcd-abcd', 'bc?'), functx:substring-after-last-match(
'abcd-abcd', 'x'))
|
