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
|
(:**************************************************************:)
(: Test: functx-functx-replace-beginning-1 :)
(: Written by: Priscilla Walmsley (Frans Englich is maintainer) :)
(: Date: 2008-05-16+02:00 :)
(:**************************************************************:)
declare namespace functx = "http://www.example.com/";
(:~
: Replaces the beginning of a string, up to a matched pattern
:
: @author Priscilla Walmsley, Datypic
: @version 1.0
: @see http://www.xqueryfunctions.com/xq/functx_replace-beginning.html
: @param $arg the entire string to change
: @param $pattern the pattern of characters to replace up to
: @param $replacement the replacement string
:)
declare function functx:replace-beginning
( $arg as xs:string? ,
$pattern as xs:string ,
$replacement as xs:string ) as xs:string {
replace($arg, concat('^.*?', $pattern), $replacement)
} ;
(functx:replace-beginning('abc-def', '-', 'xxx'))
|
