用XSL把XML的数据转换成完美的多列表格形式

用XSL把XML的数据转换成完美的多列表格形式

作者：孟宪会 出自：【孟宪会之精彩世界】 发布日期：2003年7月12日 17点4分20秒

---

摘要：本文通过实际的例子来说明如何在XSL中实现对XML数据转换成完美的多列表格。

在利用XSL对XML进行转换时，有时候需要把XML转换成多列的Table元素，这个问题经常会困扰许多人，如果不生成Table的话，只需要对循环中的节点进行位置取模后判断，然后用<br/>换行即可。但有时候为了用户需要和界面的美观，需要生成多行多列的Table，常用的方法是采用following-sibling进行判断，比如下面的代码：

&lt;?xml version="1.0" encoding="UTF-8"?&gt; &lt;xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:copyRight="http://xml.sz.luohuedu.net/"&gt; &lt;xsl:template match="/"&gt; &lt;table bgcolor="snow" border="1" cellpadding="5" cellspacing="2" borderColor="darkorange" style="font-size:9pt"&gt; &lt;xsl:for-each select="/Items/Item[position() mod 3 = 1]"&gt; &lt;tr&gt; &lt;td width="33%" align="center" valign="middle"&gt; &lt;xsl:apply-templates select="."/&gt; &lt;/td&gt; &lt;td width="34%" align="center" valign="middle"&gt; &lt;xsl:apply-templates select="following-sibling::Item[position() = 1]"/&gt; &lt;/td&gt; &lt;td width="33%" align="center" valign="middle"&gt; &lt;xsl:apply-templates select="following-sibling::Item[position() = 2]"/&gt; &lt;/td&gt; &lt;/tr&gt; &lt;/xsl:for-each&gt; &lt;/table&gt; &lt;/xsl:template&gt; &lt;xsl:template match="/Items/Item"&gt; &lt;a target="_blank"&gt; &lt;xsl:attribute name="href"&gt; &lt;xsl:if test="contains(Url,'@')"&gt;mailto:&lt;/xsl:if&gt;&lt;xsl:value-of select="Url"/&gt;&lt;/xsl:attribute&gt; &lt;xsl:value-of select="Title"/&gt; &lt;/a&gt; &lt;/xsl:template&gt; &lt;/xsl:stylesheet&gt;

转换结果如下图所示：

但是，从上面的结果图可以看出，如果数据记录不是表格列数的整数倍的时候，最后一行的最后几列不会生成出来，即在HTML里缺少<td></td>标记。

要解决上面的不足，我们必须先计算要转换的记录的总数，然后计算出相差的记录数，再进行补齐。下面就对这一过程的解释。

在进行这个功能之前，首先了解一个如何在XSL中实现类似for(i=0;i<n;i++)的循环，下面就是实现这一个功能的例子：

&lt;?xml version="1.0" encoding="GB2312"?&gt; &lt;xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:copyRight="http://xml.sz.luohuedu.net/"&gt; &lt;!-- 下面的三个变量可以由XML中取得，做为例子，这里直接定义了初始值 --&gt; &lt;!-- 定义初始值 --&gt; &lt;xsl:variable name="varStart" select="0"/&gt; &lt;!-- 定义结束值 --&gt; &lt;xsl:variable name="varEnd" select="35"/&gt; &lt;!-- 定义循环步长 --&gt; &lt;xsl:variable name="varStep" select="2"/&gt; &lt;xsl:template match="/"&gt; &lt;xsl:call-template name="MyLoopFun"&gt; &lt;xsl:with-param name="varStart" select="$varStart"&gt; &lt;/xsl:with-param&gt; &lt;/xsl:call-template&gt; &lt;/xsl:template&gt; &lt;xsl:template name="MyLoopFun"&gt; &lt;xsl:param name="varStart"/&gt; &lt;xsl:if test="$varStart &lt; $varEnd"&gt; &lt;!-- 输出格式定义 --&gt; &lt;a target="_blank" href="http://xml.sz.luohuedu.net/?{$varStart}"&gt; &lt;xsl:attribute name="title"&gt;&lt;xsl:value-of select="$varStart"/&gt;&lt;/xsl:attribute&gt; &lt;xsl:value-of select="$varStart"/&gt; &lt;/a&gt; &lt;xsl:if test="$varStart &lt; ($varEnd - $varStep)"&gt; , &lt;/xsl:if&gt; &lt;xsl:call-template name="MyLoopFun"&gt; &lt;xsl:with-param name="varStart"&gt; &lt;xsl:value-of select="$varStart + $varStep"/&gt; &lt;/xsl:with-param&gt; &lt;/xsl:call-template&gt; &lt;/xsl:if&gt; &lt;/xsl:template&gt; &lt;/xsl:stylesheet&gt;

理解了上面的原理之后，下面就是我们最后的代码，程序已经做了注释：

&lt;?xml version="1.0" encoding="UTF-8"?&gt; &lt;xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:copyRight="http://xml.sz.luohuedu.net/"&gt; &lt;xsl:template match="/"&gt; &lt;!-- 定义常量 --&gt; &lt;xsl:variable name="strTrLeft" select="'&lt;tr&gt;'"/&gt; &lt;xsl:variable name="strTrRight" select="'&lt;/tr&gt;'"/&gt; &lt;!-- 计算总记录数 --&gt; &lt;xsl:variable name="nTotal" select="count(/Items/Item)"/&gt; &lt;!-- 定义列数 --&gt; &lt;xsl:variable name="nCols" select="3"/&gt; &lt;!-- 计算需要的补齐的列数 --&gt; &lt;xsl:variable name="nLefted" select="$nCols - ($nTotal mod $nCols)"/&gt; &lt;!-- 计算不需要补齐的行数 --&gt; &lt;xsl:variable name="nNotProcessedRow" select="$nTotal - ($nTotal mod $nCols)"/&gt; &lt;table bgcolor="snow" border="1" cellpadding="5" cellspacing="2" borderColor="darkorange" style="font-size:9pt"&gt; &lt;!-- 对于不需要补齐的行数，直接输出 --&gt; &lt;xsl:for-each select="/Items/Item[position() &lt; $nNotProcessedRow +1]"&gt; &lt;xsl:if test="position() mod $nCols = 1"&gt; &lt;xsl:value-of select="$strTrLeft" disable-output-escaping="yes"/&gt; &lt;/xsl:if&gt; &lt;td&gt; &lt;a target="_blank"&gt; &lt;xsl:attribute name="href"&gt; &lt;xsl:if test="contains(Url,'@')"&gt;mailto:&lt;/xsl:if&gt;&lt;xsl:value-of select="Url"/&gt;&lt;/xsl:attribute&gt; &lt;xsl:value-of select="Title"/&gt; &lt;/a&gt; &lt;/td&gt; &lt;xsl:if test="position() mod $nCols = 0"&gt; &lt;xsl:value-of select="$strTrRight" disable-output-escaping="yes"/&gt; &lt;/xsl:if&gt; &lt;/xsl:for-each&gt; &lt;!-- 转换除去不需要补齐的记录的剩余记录 --&gt; &lt;xsl:if test="$nLefted != 0 and $nLefted != $nCols"&gt; &lt;xsl:value-of select="$strTrLeft" disable-output-escaping="yes"/&gt; &lt;xsl:for-each select="/Items/Item[position() &gt;$nNotProcessedRow]"&gt; &lt;td&gt; &lt;a target="_blank"&gt; &lt;xsl:attribute name="href"&gt; &lt;xsl:if test="contains(Url,'@')"&gt;mailto:&lt;/xsl:if&gt;&lt;xsl:value-of select="Url"/&gt;&lt;/xsl:attribute&gt; &lt;xsl:value-of select="Title"/&gt; &lt;/a&gt; &lt;/td&gt; &lt;/xsl:for-each&gt; &lt;!-- 如果nLefted不等于0和列数，则需要进行补齐，这里进行递归调用，需要传递的参数有两个： nLefted：要补齐的列数； nCols：表格的列数。 --&gt; &lt;xsl:call-template name="MyFun"&gt; &lt;xsl:with-param name="nLefted" select="$nLefted"/&gt; &lt;xsl:with-param name="nCols" select="$nCols"/&gt; &lt;/xsl:call-template&gt; &lt;xsl:value-of select="$strTrRight" disable-output-escaping="yes"/&gt; &lt;/xsl:if&gt; &lt;/table&gt; &lt;p&gt;共有&lt;xsl:value-of select="$nTotal"/&gt;条数据。&lt;/p&gt; &lt;/xsl:template&gt; &lt;xsl:template name="MyFun"&gt; &lt;xsl:param name="nLefted"/&gt; &lt;xsl:param name="nCols"/&gt; &lt;xsl:if test=" $nLefted != 0 and $nLefted != $nCols"&gt; &lt;td&gt; &lt;xsl:text disable-output-escaping="yes"&gt;&amp;nbsp;&lt;/xsl:text&gt; &lt;/td&gt; &lt;xsl:call-template name="MyFun"&gt; &lt;xsl:with-param name="nLefted" select="$nLefted - 1"/&gt; &lt;xsl:with-param name="nCols" select="$nCols"/&gt; &lt;/xsl:call-template&gt; &lt;/xsl:if&gt; &lt;/xsl:template&gt; &lt;/xsl:stylesheet&gt;

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

&lt;%@ Page Language="vb" AutoEventWireup="false" Codebehind="GoodLoop.aspx.vb" Inherits="aspxWeb.mengxianhui.com.GoodLoop"%&gt; &lt;%@ Import NameSpace = "System" %&gt; &lt;%@ Import NameSpace = "System.Xml" %&gt; &lt;%@ Import NameSpace = "system.Xml.Xsl" %&gt; &lt;!doctype HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"&gt; &lt;html&gt; &lt;head&gt; &lt;title&gt;GoodLoop&lt;/title&gt; &lt;meta content="Microsoft Visual Studio .NET 7.0" name="GENERATOR"&gt; &lt;meta content="Visual Basic 7.0" name="CODE_LANGUAGE"&gt; &lt;meta content="JavaScript" name="vs_defaultClientScript"&gt; &lt;meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema"&gt; &lt;script runat=Server&gt; 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 &lt;/script&gt; &lt;/head&gt; &lt;body MS_POSITIONING="GridLayout"&gt; &lt;form id="Form1" method="post" runat="server"&gt; &lt;asp:label id="Label1" runat="server"&gt;&lt;/asp:label&gt; &lt;asp:xml id="Xml1" runat="server"&gt;&lt;/asp:xml&gt; &lt;/form&gt; &lt;/body&gt; &lt;/html&gt;

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

&lt;?xml version="1.0" encoding="UTF-8"?&gt; &lt;?xml-stylesheet type="text/xsl" href="GoodLoop1.xsl"?&gt; &lt;items&gt; &lt;item&gt; &lt;url&gt;http://xml.sz.luohuedu.net&lt;/url&gt; &lt;title&gt;【孟宪会之精彩世界】&lt;/title&gt; &lt;/item&gt; &lt;item&gt; &lt;url&gt;http://lucky.myrice.com/&lt;/url&gt; &lt;title&gt;【孟宪会之精彩世界】&lt;/title&gt; &lt;/item&gt; ............................... &lt;/items&gt;

转换结果如下：