时间:2016-02-24 18:49 来源:
我爱IT技术网 作者:佚名
欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【利用XSLT来换XML的根】，下面是详细的分享！
利用XSLT来换XML的根
写程序需要换XML的根，感觉很不便，于是写了一个函数，大致思路及实现如下：
首先觉得利用XSLT还能过滤一些东西，然后再发送回客户端，所以决定采用XSLT
然后就是尝试写一个换根的XSL，如下
以下为引用的内容：
<?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" />
<xsl:template match="/">
<NEWNODENAME>
<xsl:apply-templates select="@* | node()" />
</NEWNODENAME>
</xsl:template>
<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>
</xsl:stylesheet>
|
大致意思是，解析一个XML中的所有结点及属性，如果非根就直接拷贝，否则就查看是否存在子结点及属性。具体资料请参照MSXML的SDK文档。
然后写一个函数，使得NEWNODENAME可以指定：
这段代码为VB.Net中的实现，ASP中实现时需要注意对象附值需要用Set，还有返回值的问题
以下为引用的内容：
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
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
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
Dim oXsl As New MSXML2.DOMDocument
oXsl.async=False
oXsl.resolveExternals=False
oXsl.loadXML(sXslt)
Dim sXml As String
sXml=oXml.transformNode(oXsl)
sXml=AddXmlHeader(sXml)
sXsl=Nothing
Return sXml
End Function
|
还有，当然你也可以实现生成那个XSL的XSL文件，这就要看你如何设计了。
以上所分享的是关于利用XSLT来换XML的根，下面是编辑为你推荐的有价值的用户互动：
相关问题：如何使用XSLT将一个XML转换为表
答： Records ID date Gender NameType FirstName SurName Description1 >>详细
相关问题：xml的优点
答：轻量级的数据储存文件 1）XML文档的内容和结构完全分离 这个特性为XML的应用带来了很大的好处。基于这样的特点，企业系统可以轻松地实现内容管理和流程管理的彻底分离，例如系统架构师可以只关注流程运转中各环节的接口定义，而各部门则可以专注... >>详细
相关问题：请问XML一般用于什么场合？ 请大家指教！
答：1、自定义XML+XSLT=>HTML，最常见的文档型应用之一。XML存放整个文档的XML数据，然后XSLT将XML转换、解析，结合XSLT中的HTML标签，最终成为HTML，显示在浏览器上。典型的例子就是CSDN上的帖子。 2、XML作为微型数据库，这是最常见的数据型应用之... >>详细
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-
