把XML的数据转换成多列表格形式

     摘要：本文通过实际的例子来说明如何在XSL中实现对XML数据转换成完美的多列表格。
  
  在利用XSL对XML进行转换时，有时候需要把XML转换成多列的Table元素，这个问题经常会困扰许多人，如果不生成Table的话，只需要对循环中的节点进行位置取模后判断，然后用<br/>换行即可。但有时候为了用户需要和界面的美观，需要生成多行多列的Table，常用的方法是采用following-sibling进行判断，比如下面的代码：
  
  <?xml version="1.0" encoding="UTF-8"?>
  <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
   xmlns:copyRight="http://xml.sz.luohuedu.net/">
   <xsl:template match="/">
   <table bgcolor="snow" border="1" cellpadding="5" cellspacing="2" borderColor="darkorange"
   style="font-size:9pt">
   <xsl:for-each select="/Items/Item[position() mod 3 = 1]">
   <tr>
   <td width="33%" align="center" valign="middle">
   <xsl:apply-templates select="."/>
   </td>
   <td width="34%" align="center" valign="middle">
   <xsl:apply-templates select="following-sibling::Item[position() = 1]"/>
   </td>
   <td width="33%" align="center" valign="middle">
   <xsl:apply-templates select="following-sibling::Item[position() = 2]"/>
   </td>
   </tr>
   </xsl:for-each>
   </table>
   </xsl:template>
   <xsl:template match="/Items/Item">
   <a target="_blank">
   <xsl:attribute name="href">
   <xsl:if test="contains(Url,'@')">mailto:</xsl:if><xsl:value-of select="Url"/></xsl:attribute>
   <xsl:value-of select="Title"/>
   </a>
   </xsl:template>
  </xsl:stylesheet>
  转换结果如下图所示：
  
  但是，从上面的结果图可以看出，如果数据记录不是表格列数的整数倍的时候，最后一行的最后几列不会生成出来，即在HTML里缺少<td></td>标记。
  
  要解决上面的不足，我们必须先计算要转换的记录的总数，然后计算出相差的记录数，再进行补齐。下面就对这一过程的解释。
  
  在进行这个功能之前，首先了解一个如何在XSL中实现类似for(i=0;i<n;i++)的循环，下面就是实现这一个功能的例子：
  
  <?xml version="1.0" encoding="GB2312"?>
  <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
   xmlns:copyRight="http://xml.sz.luohuedu.net/">
   <!-- 下面的三个变量可以由XML中取得，做为例子，这里直接定义了初始值 -->
   <!-- 定义初始值 -->
   <xsl:variable name="varStart" select="0"/>
   <!-- 定义结束值 -->
   <xsl:variable name="varEnd" select="35"/>
   <!-- 定义循环步长 -->
   <xsl:variable name="varStep" select="2"/>
   <xsl:template match="/">
   <xsl:call-template name="MyLoopFun">
   <xsl:with-param name="varStart" select="$varStart">
   </xsl:with-param>
   </xsl:call-template>
   </xsl:template>
   <xsl:template name="MyLoopFun">
   <xsl:param name="varStart"/>
   <xsl:if test="$varStart < $varEnd">
   <!-- 输出格式定义 -->
   <a target="_blank" href="http://xml.sz.luohuedu.net/?{$varStart}">
   <xsl:attribute name="title"><xsl:value-of select="$varStart"/></xsl:attribute>
   <xsl:value-of select="$varStart"/>
   </a>
   <xsl:if test="$varStart < ($varEnd - $varStep)"> , </xsl:if>
   <xsl:call-template name="MyLoopFun">
   <xsl:with-param name="varStart">
   <xsl:value-of select="$varStart + $varStep"/>
   </xsl:with-param>
   </xsl:call-template>
   </xsl:if>
   </xsl:template>
  </xsl:stylesheet>
  理解了上面的原理之后，下面就是我们最后的代码，程序已经做了注释：
  
  <?xml version="1.0" encoding="UTF-8"?>
  <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
   xmlns:copyRight="http://xml.sz.luohuedu.net/">
   <xsl:template match="/">
   <!-- 定义常量 -->
   <xsl:variable name="strTrLeft" select="'<tr>'"/>
   <xsl:variable name="strTrRight" select="'</tr>'"/>
   <!-- 计算总记录数 -->
   <xsl:variable name="nTotal" select="count(/Items/Item)"/>
   <!-- 定义列数 -->
   <xsl:variable name="nCols" select="3"/>
   <!-- 计算需要的补齐的列数 -->
   <xsl:variable name="nLefted" select="$nCols - ($nTotal mod $nCols)"/>
   <!-- 计算不需要补齐的行数 -->
   <xsl:variable name="nNotProcessedRow" select="$nTotal - ($nTotal mod $nCols)"/>
   <table bgcolor="snow" border="1" cellpadding="5" cellspacing="2" borderColor="darkorange"
   style="font-size:9pt">
   <!-- 对于不需要补齐的行数，直接输出 -->
   <xsl:for-each select="/Items/Item[position() < $nNotProcessedRow +1]">
   <xsl:if test="position() mod $nCols = 1">
   <xsl:value-of select="$strTrLeft" disable-output-escaping="yes"/>
   </xsl:if>
   <td>
   <a target="_blank">
   <xsl:attribute name="href">
   <xsl:if test="contains(Url,'@')">mailto:</xsl:if><xsl:value-of select="Url"/></xsl:attribute>
   <xsl:value-of select="Title"/>
   </a>
   </td>
   <xsl:if test="position() mod $nCols = 0">
   <xsl:value-of select="$strTrRight" disable-output-escaping="yes"/>
   </xsl:if>
   </xsl:for-each>
   <!-- 转换除去不需要补齐的记录的剩余记录 -->
   <xsl:if test="$nLefted != 0 and $nLefted != $nCols">
   <xsl:value-of select="$strTrLeft" disable-output-escaping="yes"/>
   <xsl:for-each select="/Items/Item[position() >$nNotProcessedRow]">
   <td>
   <a target="_blank">
   <xsl:attribute name="href">
   <xsl:if test="contains(Url,'@')">mailto:</xsl:if><xsl:value-of select="Url"/></xsl:attribute>
   <xsl:value-of select="Title"/>
   </a>
   </td>
   </xsl:for-each>