[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

Subject: Re: A function that tokenizes a string, wrapping each token in start-tag , end-tag pairs?
From: "Dimitre Novatchev dnovatchev@xxxxxxxxx" <xsl-list-service@xxxxxxxxxxxxxxxxxxxxxx>
Date: Fri, 22 Apr 2016 05:13:34 -0000
Re:  A function that tokenizes a string
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.

Current Thread

PURCHASE STYLUS STUDIO ONLINE TODAY!

Purchasing Stylus Studio from our online shop is Easy, Secure and Value Priced!

Buy Stylus Studio Now

Download The World's Best XML IDE!

Accelerate XML development with our award-winning XML IDE - Download a free trial today!

Don't miss another message! Subscribe to this list today.
Email
First Name
Last Name
Company
Subscribe in XML format
RSS 2.0
Atom 0.3
Site Map | Privacy Policy | Terms of Use | Trademarks
Free Stylus Studio XML Training:
W3C Member
Stylus Studio® and DataDirect XQuery ™are products from DataDirect Technologies, is a registered trademark of Progress Software Corporation, in the U.S. and other countries. © 2004-2013 All Rights Reserved.