位置：71code站长站 → 站长学习 → 网站开发 → XML → 利用XSLT来换XML的根

利用XSLT来换XML的根

减小字体

增大字体作者：71站长源码(收集) 来源：71站长源码(网络) 发布时间：2008-2-18 17:19:05

写程序需要换XML的根，感觉很不便，于是写了一个函数，大致思路及实现如下：

中国71站长源码

首先觉得利用XSLT还能过滤一些东西，然后再发送回客户端，所以决定采用XSLT

71code_com

然后就是尝试写一个换根的XSL，如下 71code

以下为引用的内容：

<?xml version="1.0" encoding="gb2312" ?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="xml" version="1.0" encoding="gb2312" omit-xml-declaration="yes" indent="yes" /> 71站长源码

<xsl:template match="/">
<NEWNODENAME>
<xsl:apply-templates select="@* | node()" />
</NEWNODENAME>
</xsl:template> 71站长源码

<xsl:template match="@* | node()">
<xsl:choose>
<xsl:when test=".!=ancestor::node()"><xsl:copy><xsl:apply-templates select="@* | node()"/></xsl:copy></xsl:when>
<xsl:otherwise><xsl:apply-templates select="@* | node()"/></xsl:otherwise>
</xsl:choose>
</xsl:template> 71站长源码

</xsl:stylesheet> 71code.com

[71站长源码]

大致意思是，解析一个XML中的所有结点及属性，如果非根就直接拷贝，否则就查看是否存在子结点及属性。具体资料请参照MSXML的SDK文档。 71站长源码

然后写一个函数，使得NEWNODENAME可以指定： 71code^com

这段代码为VB.Net中的实现，ASP中实现时需要注意对象附值需要用Set，还有返回值的问题 71站长源码

以下为引用的内容：

Public Function ChangeXmlRootNodeName(ByRef oXml As MSXML2.DOMDocument, ByVal name As String) As String
    If oXml Is Nothing Then
      Return ""
    End If
    Dim sXslt As String
    sXslt = "<?xml version=""1.0"" encoding=""gb2312"" ?>" & vbCrLf
    sXslt = sXslt & "<xsl:stylesheet version=""1.0"" xmlns:xsl=""http://www.w3.org/1999/XSL/Transform"">" & vbCrLf 71站长源码,为中文网站提供动力
    sXslt = sXslt & "<xsl:output method=""xml"" version=""1.0"" encoding=""gb2312"" omit-xml-declaration=""yes"" indent=""yes"" />" & vbCrLf
    sXslt = sXslt & vbCrLf
    sXslt = sXslt & "<xsl:template match=""/"">" & vbCrLf
    sXslt = sXslt & "<" & name & ">"" & vbCrLf"
    sXslt = sXslt & " <xsl:apply-templates select=""@* | node()""/>" & vbCrLf
    sXslt = sXslt & "</" & name & ">" & vbCrLf
    sXslt = sXslt & "</xsl:template>" & vbCrLf
    sXslt = sXslt & vbCrLf
    sXslt = sXslt & "<xsl:template match=""@* | node()"">" & vbCrLf Www_71code_com
    sXslt = sXslt & " <xsl:choose>" & vbCrLf
    sXslt = sXslt & "    <xsl:when test="".!=ancestor::node()""><xsl:copy><xsl:apply-templates select=""@* | node()""/></xsl:copy></xsl:when>" & vbCrLf
    sXslt = sXslt & "    <xsl:otherwise><xsl:apply-templates select=""@* | node()""/></xsl:otherwise>" & vbCrLf
    sXslt = sXslt & " </xsl:choose>"" & vbCrLf"
    sXslt = sXslt & "</xsl:template>"" & vbCrLf"
    sXslt = sXslt & vbCrLf
    sXslt = sXslt & "</xsl:stylesheet>" & vbCrLf 71站长源码