XML / XSL

Member 11785909 wrote:

I don't have time

TML wrote:

Dim sw As New StringWriter()
ds.WriteXml(sw)
...
DocXSL.Transform(DocXML, Nothing, sw)
Dim result As String = sw.ToString()

...

DocXML.LoadXml(sw.ToString())

' Create a new instance:
' sw = New StringWriter()

' OR: Clear the existing one:
sw.GetStringBuilder().Clear()

...

<?xml version="1.0"?>
<bookstore>
    <book>
         <title>The Weather Pattern</title>
         <author>Weather Man</author>
         <price>100.00</price>
    </book>
    <book>
         <title>Weaving Patterns</title>
         <author>Weaver</author>
         <price>150.00</price>
    </book>
    <book>
         <title>Speech Pattern</title>
         <author>Speaker</author>
         <price>15.00</price>
    </book>
    <book>
         <title>Writing Style</title>
         <author>Writer</author>
         <price>1500.00</price>
    </book>
</bookstore>

<?xml version="1.0"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
    <xsl:template match="/">
        <root>
            <xsl:apply-templates select="/bookstore">
                <xsl:with-param name="character" select="'W'" />
            </xsl:apply-templates>
        </root>
    </xsl:template>
    
    <xsl:template match="bookstore">
        <xsl:param name="character" select="''" />
        <xsl:variable name="charMatch" select="book[starts-with(title, $character)]"/>    
        <xsl:variable name="charCount" select="count($charMatch)"/>
        
        <result>
            <char><xsl:value-of select="$character" /></char>
            <count><xsl:value-of select="$charCount" /></count>
            <books>
                <xsl:for-each select="$charMatch">
                    <xsl:copy-of select="." />
                </xsl:for-each>
            </books>
        </result>
    </xsl:template>
</xsl:stylesheet>

<xsl:variable name="Letters">
    <xsl:call-template name="tokenise">
        <xsl:with-param name="string" select ="'A B C D E F G H I J K L M N O P Q R S T U V W X Y Z'"/>
        <xsl:with-param name="delimeters" select="' '"/>
    </xsl:call-template>
</xsl:variable>

<xsl:for-each select="msxsl:node-set($Letters)/token">
  <xsl:variable name="currToken">
    <xsl:value-of select="./node()[1]"/>
  </xsl:variable>
  <xsl:call-template name="ListSurnameStartsWith">
    <xsl:with-param name="character" select="$currToken"/>
  </xsl:call-template>
</xsl:for-each>

<xsl:variable name="currToken">
  <xsl:value-of select="."/>
</xsl:variable>

$currToken	{Dimension:[1]}
    [1]	/
        node()[1]	A

./text()[1]

<!-- Tokenisation templates -->
  <xsl:template name="tokenise">
    <xsl:param name="string" select="''" />
    <xsl:param name="delimiters" select="' 	'" />
    <xsl:choose>
      <!-- Nothing to do if empty string -->
      <xsl:when test="not($string)" />

      <!-- No delimiters signals character level tokenization. -->
      <xsl:when test="not($delimiters)">
        <xsl:call-template name="_tokenise-characters">
          <xsl:with-param name="string" select="$string" />
        </xsl:call-template>
      </xsl:when>
      <xsl:otherwise>
        <xsl:call-template name="_tokenise-delimiters">
          <xsl:with-param name="string" select="$string" />
          <xsl:with-param name="delimiters" select="$delimiters" />
        </xsl:call-template>
      </xsl:otherwise>
    </xsl:choose>
  </xsl:template>

  <xsl:template name="_tokenise-characters">
    <xsl:param name="string" />
    <xsl:if test="$string">
      <token>
        <xsl:value-of select="substring($string, 1, 1)" />
      </token>
      <xsl:call-template name="_tokenise-characters">
        <xsl:with-param name="string" select="substring($string, 2)" />
      </xsl:call-template>
    </xsl:if>
  </xsl:template>

  <xsl:template name="_tokenise-delimiters">
    <xsl:param name="string" />
    <xsl:param name="delimiters" />
    <xsl:param name="last-delimit"/>
    <!-- Extract a delimiter -->
    <xsl:variable name="delimiter" select="substring($delimiters, 1, 1)" />
    <xsl:choose>
      <!-- If the delimiter is empty we have a token -->
      <xsl:when test="not($delimiter)">
        <token>
          <xsl:value-of select="$string"/>
        </token>
      </xsl:when>
      <!-- If the string contains at least one delimiter we must split it -->
      <xsl:when test="contains($string, $delimiter)">
        <!-- If it starts with the delimiter we don't need to handle the -->
        <!-- before part -->
        <xsl:if test="not(starts-with($string, $delimiter))">
          <!-- Handle the part that comes befor the current delimiter -->
          <!-- with the next delimiter. If ther is no next the first test -->
          <!-- in this template will detect the token -->
          <xsl:call-template name="_tokenise-delimiters">
            <xsl:with-param name="string"
                            select="substring-before($string, $delimiter)" />
            <xsl:with-param name="delimiters"
                            select="substring($delimiters, 2)" />
          </xsl:call-template>
        </xsl:if>
        <!-- Handle the part that comes after the delimiter using the -->
        <!-- current delimiter -->
        <xsl:call-template name="_tokenise-delimiters">
          <xsl:with-param name="string"
                          select="substring-after($string, $delimiter)" />
          <xsl:with-param name="delimiters" select="$delimiters" />
        </xsl:call-template>
      </xsl:when>
      <xsl:otherwise>
        <!-- No occurances of current delimiter so move on to next -->
        <xsl:call-template name="_tokenise-delimiters">
          <xsl:with-param name="string"
                          select="$string" />
          <xsl:with-param name="delimiters"
                          select="substring($delimiters, 2)" />
        </xsl:call-template>
      </xsl:otherwise>
    </xsl:choose>
  </xsl:template>

</xsl:stylesheet>

<xsl:variable name="users" select="/Users" />

<xsl:for-each select="msxsl:node-set($Letters)/token">
    <xsl:variable name="currToken" select ="./node()[1]"/>
    <xsl:call-template name="ListSurnameStartsWith">
	    <xsl:with-param name="users" select="$users"/>
        <xsl:with-param name="character" select="$currToken"/>
    </xsl:call-template>
</xsl:for-each>

<xsl:template name="ListSurnameStartsWith">
    <xsl:param name="users" />
    <xsl:param name="character" select="''"/>
    
    <xsl:variable name="charMatch" select="$users/User[starts-with(Surname, $character)]"/>    
    <xsl:variable name="charCount" select="count($charMatch)"/>
    
    <xsl:if test="$charCount > 0">
        <h2>
            <a href="javascript:void(0)" class="dsphead" onclick="dsp(this)">
                <span class="dspchar">+</span> <xsl:value-of select="$character"/> (<xsl:value-of select="$charCount"/>)
            </a>
        </h2>
        <div class="dspcont">
            <table border="1" cellpadding="1" cellspacing="1">
                <tr>
                    <xsl:call-template name="HeadingRow"/>
                </tr>
                
                <xsl:for-each select="$charMatch">
                    <xsl:sort select="Surname"/>
                    <xsl:call-template name="UserRow"/>
                </xsl:for-each>
            </table>
        </div>
    </xsl:if>
</xsl:template>