<?xml version = "1.0" encoding = "utf-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:set="http://exslt.org/set">
<xsl:import href="set.distinct.xsl" />

<xsl:output encoding="windows-1251" method="xml"/>

<xsl:key name="CK" match="Row" use="Cell[1]/Data"/>

<xsl:template match="/">
  <ROW>

<!--    <xsl:for-each select="//Row[generate-id()=generate-id(key('CK', Cell[1]))]"> -->
 <xsl:for-each select="set:distinct(//Row/Cell[1])">
  <CELL>
    <NAME>
    <xsl:value-of select="Cell[1]"/>
    </NAME>
    <DATA>
    <xsl:for-each select="key('CK',Cell[1])">
      <A><xsl:value-of select="substring(Cell[2],1,10)"/></A>
      <B><xsl:value-of select="Cell[3]"/></B>
    </xsl:for-each>
    </DATA>
   </CELL>
   </xsl:for-each>
  </ROW>
</xsl:template>

</xsl:stylesheet>

<?xml version="1.0" encoding="utf-8"?>
<stylesheet xmlns="http://www.w3.org/1999/XSL/Transform" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:func="http://exslt.org/functions" xmlns:set="http://exslt.org/sets" version="1.0" extension-element-prefixes="set" set:doc="http://www.exslt.org/set">
   <import href="set.distinct.template.xsl"/>
   <import href="set.distinct.function.xsl"/>
</stylesheet>

<?xml version="1.0"?>
<xsl:stylesheet version="1.0"
                xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
                xmlns:exsl="http://exslt.org/functions"
                xmlns:set="http://exslt.org/sets"
                extension-element-prefixes="exsl"
                exclude-result-prefixes="set">

<exsl:function name="set:distinct">
   <xsl:param name="nodes" select="/.." />
   <xsl:choose>
      <xsl:when test="not($nodes)">
         <exsl:result select="/.." />
      </xsl:when>
      <xsl:otherwise>
         <xsl:variable name="distinct" 
                       select="set:distinct($nodes[position() > 1])" />
         <exsl:result select="$distinct | $nodes[1][. != $distinct]" />
      </xsl:otherwise>
   </xsl:choose>
</exsl:function>

</xsl:stylesheet>

<xsl:template name="set:distinct">
  <xsl:param name="nodes" select="/.."/>
  <xsl:param name="distinct" select="/.."/>
  <xsl:choose>
    <xsl:when test="$nodes">
      <xsl:call-template name="set:distinct">
      <xsl:with-param name="distinct" select="$distinct | $nodes[1][not(. = $distinct)]"/>
      <xsl:with-param name="nodes" select="$nodes[position() > 1]"/>
      </xsl:call-template>
    </xsl:when>
    <xsl:otherwise>
      <xsl:apply-templates select="$distinct" mode="set:distinct"/>
    </xsl:otherwise>
  </xsl:choose>
</xsl:template>

<xsl:template match="node()|@*" mode="set:distinct">
   <xsl:copy-of select="." />
</xsl:template>

     <xsl:call-template name="distinct">
       <xsl:with-param name="nodes" select="Row"/>
       <xsl:with-param name="distinct" select="Cell[1]"/>
     </xsl:call-template>

  <xsl:key name="CK" match="Row" use="Cell[1]"/>
      <xsl:for-each select="Row[generate-id()=generate-id(key('CK', Cell[1]))]">