用XSL把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 &lt; $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 &lt; ($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="'&lt;tr&gt;'"/>     <xsl:variable name="strTrRight" select="'&lt;/tr&gt;'"/>     <!-- 计算总记录数 -->     <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() &lt; $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() &gt;$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>         <!--         如果nLefted不等于0和列数，则需要进行补齐，这里进行递归调用，需要传递的参数有两个：         nLefted：要补齐的列数；         nCols：表格的列数。         -->         <xsl:call-template name="MyFun">           <xsl:with-param name="nLefted" select="$nLefted"/>           <xsl:with-param name="nCols" select="$nCols"/>         </xsl:call-template>         <xsl:value-of select="$strTrRight" disable-output-escaping="yes"/>       </xsl:if>     </table>     <p>共有<xsl:value-of select="$nTotal"/>条数据。</p>   </xsl:template>   <xsl:template name="MyFun">     <xsl:param name="nLefted"/>     <xsl:param name="nCols"/>     <xsl:if test=" $nLefted != 0 and $nLefted != $nCols">       <td>         <xsl:text disable-output-escaping="yes">&amp;nbsp;</xsl:text>       </td>       <xsl:call-template name="MyFun">         <xsl:with-param name="nLefted" select="$nLefted - 1"/>         <xsl:with-param name="nCols" select="$nCols"/>       </xsl:call-template>     </xsl:if>   </xsl:template> </xsl:stylesheet>

由于http://www.w3.org/1999/XSL/Transform名称控件只有IE5.5＋才支持，为了使我们的代码具有通用性，我们在服务器端进行转换，首先建立GoodLoop.aspx如下：  

程序代码：

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="GoodLoop.aspx.vb"  Inherits="aspxWeb.mengxianhui.com.GoodLoop"%> <%@ Import NameSpace = "System" %> <%@ Import NameSpace = "System.Xml" %> <%@ Import NameSpace = "system.Xml.Xsl" %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML>   <HEAD>     <title>GoodLoop</title>     <meta content="Microsoft Visual Studio .NET 7.0" name="GENERATOR">     <meta content="Visual Basic 7.0" name="CODE_LANGUAGE">     <meta content="JavaScript" name="vs_defaultClientScript">     <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">     <script runat=Server>       Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs)         Try           Dim Xmldom As New XmlDocument()           Xmldom.Load(Server.MapPath("GoodLoop.xml"))           Dim trans As XslTransform = New XslTransform()           trans.Load(Server.MapPath("GoodLoop.xsl"))           Xml1.Document = Xmldom           Xml1.Transform = trans         Catch er As XmlException           Label1.Text = er.Message         End Try       End Sub     </script>   </HEAD>   <body MS_POSITIONING="GridLayout">     <form id="Form1" method="post" runat="server">       <asp:label id="Label1" runat="server"></asp:label>       <asp:Xml id="Xml1" runat="server"></asp:Xml></form>   </body> </HTML>

本文中所使用的XML数据样式为：GoodLoop.xml

程序代码：

<?xml version="1.0" encoding="UTF-8"?> <?xml-stylesheet type="text/xsl" href="GoodLoop1.xsl"?> <Items>   <Item>     <Url>http://xml.sz.luohuedu.net</Url>     <Title>【孟宪会之精彩世界】</Title>   </Item>   <Item>     <Url>http://lucky.myrice.com/</Url>     <Title>【孟宪会之精彩世界】</Title>   </Item> ............................... </Items>

转换结果如下：