[XSL-LIST Mailing List Archive Home] [By Thread] [By Date] [Recent Entries] [Reply To This Message] Re: A function that tokenizes a string, wrapping each
Slightly more optimized -- and the produced nodes are now really siblings: parse-xml-fragment( string-join(for-each-pair(tokenize($lines, $delims)[not(position() = last() and . = '')], $names, function($x,$y){"<"||$y||">"||$x||"</"||$y||">"} ), '' ) )/* On Thu, Apr 21, 2016 at 10:13 PM, Dimitre Novatchev dnovatchev@xxxxxxxxx <xsl-list-service@xxxxxxxxxxxxxxxxxxxxxx> wrote: > As a single XPath 3.0 expression -- do note that no conditional is used: > > for-each-pair(tokenize($lines, $delims)[not(position() = last() and . > = '')], $names, function($x, > $y){parse-xml-fragment("<"||$y||">"||$x||"</"||$y||">")/*}) > > > A full example: > ========== > let $lines := > "1 > 2 > 3", > $names := ('a', 'b', 'c'), > $delims := "\r\n|\r|\n" > return > for-each-pair(tokenize($lines, $delims)[not(position() = last() > and . = '')], $names, function($x, > $y){parse-xml-fragment("<"||$y||">"||$x||"</"||$y||">")/*}) > > When evaluated with Oxygen's XPath Builder, the result is: > > Description: 1 > XPath location: /a[1] > Start location: 1:3 > Description: 2 > XPath location: /b[1] > Start location: 1:3 > Description: 3 > XPath location: /c[1] > Start location: 1:3 > > > Cheers, > Dimitre > > > On Thu, Apr 21, 2016 at 5:20 AM, Costello, Roger L. costello@xxxxxxxxx > <xsl-list-service@xxxxxxxxxxxxxxxxxxxxxx> wrote: >> Hi Folks, >> >> I want a function that tokenizes a string and wraps each token in a start-tag, end-tag pair. >> >> I figure that I should pass into the function the string to be tokenized and a sequence of integers corresponding to the decimal value(s) of the token delimiter. >> >> Also, I figure that I should pass into the function a sequence of strings, corresponding to the tag names to be used for wrapping each token. >> >> I've implemented the function, see below. It works fine, but I want to know if it can be improved. Is there a way to write the function more idiomatic? Shorter? Generalized to be more widely useful? /Roger >> >> >> <!-- >> Create an element for each non-empty token in $line. >> $line is tokenized using the sequence of symbols denoted >> by $line-delimiter. >> For the token at position i, name the element using the >> string in headers[$i] >> --> >> <xsl:function name="f:line" as="element()*"> >> <xsl:param name="line" as="xs:string" /> >> <xsl:param name="line-delimiter" as="xs:integer+" /> >> <xsl:param name="headers" as="xs:string+" /> >> >> <xsl:variable name="tokens" select="tokenize($line, codepoints-to-string($line-delimiter))" as="xs:string*" /> >> <xsl:variable name="len" select="count($tokens)" as="xs:integer" /> >> <xsl:for-each select="1 to $len"> >> <xsl:variable name="index" select="xs:integer(.)" as="xs:integer" /> >> <xsl:variable name="value" select="$tokens[position() eq $index]" as="xs:string" /> >> <xsl:choose> >> <xsl:when test="$value eq ''"/> >> <xsl:otherwise> >> <xsl:element name="{$headers[position() eq $index]}"> >> <xsl:sequence select="$value"/> >> </xsl:element> >> </xsl:otherwise> >> </xsl:choose> >> </xsl:for-each> >> >> </xsl:function> >> > > > > -- > Cheers, > Dimitre Novatchev > --------------------------------------- > Truly great madness cannot be achieved without significant intelligence. > --------------------------------------- > To invent, you need a good imagination and a pile of junk > ------------------------------------- > Never fight an inanimate object > ------------------------------------- > To avoid situations in which you might make mistakes may be the > biggest mistake of all > ------------------------------------ > Quality means doing it right when no one is looking. > ------------------------------------- > You've achieved success in your field when you don't know whether what > you're doing is work or play > ------------------------------------- > To achieve the impossible dream, try going to sleep. > ------------------------------------- > Facts do not cease to exist because they are ignored. > ------------------------------------- > Typing monkeys will write all Shakespeare's works in 200yrs.Will they > write all patents, too? :) > ------------------------------------- > Sanity is madness put to good use. > ------------------------------------- > I finally figured out the only reason to be alive is to enjoy it. > -- Cheers, Dimitre Novatchev --------------------------------------- Truly great madness cannot be achieved without significant intelligence. --------------------------------------- To invent, you need a good imagination and a pile of junk ------------------------------------- Never fight an inanimate object ------------------------------------- To avoid situations in which you might make mistakes may be the biggest mistake of all ------------------------------------ Quality means doing it right when no one is looking. ------------------------------------- You've achieved success in your field when you don't know whether what you're doing is work or play ------------------------------------- To achieve the impossible dream, try going to sleep. ------------------------------------- Facts do not cease to exist because they are ignored. ------------------------------------- Typing monkeys will write all Shakespeare's works in 200yrs.Will they write all patents, too? :) ------------------------------------- Sanity is madness put to good use. ------------------------------------- I finally figured out the only reason to be alive is to enjoy it.
|
PURCHASE STYLUS STUDIO ONLINE TODAY!Purchasing Stylus Studio from our online shop is Easy, Secure and Value Priced! Download The World's Best XML IDE!Accelerate XML development with our award-winning XML IDE - Download a free trial today! Subscribe in XML format
|