以字符串形式检索 XSLT 代码 - "Illegal characters in path"

Question

我想转换一个XML文档。我的XSLT代码可以正常工作，并且可以正确转换(在XMLPad中进行了测试)，但是现在我想在VB中对其进行转换。网络程序。问题是我不想从.xsl文件加载XSLT代码。我把它硬编码在一个函数中，但我得到Illegal characters in path异常。

有可能这样吗?

Public Class xsltTransformCode
    Public Function transformationXSLTcode() As String
        Return "<xsl:stylesheet xmlns:xsl='http://www.w3.org/1999/XSL/Transform' version='1.0'>" &
        "<xsl:strip-space elements='*'/>" &
        "<xsl:output method='xml' indent='yes'/>" &
        "<xsl:key name='AreaByPosition' match='Area' use='Position'/>" &
        "<xsl:template match='@*|node()'>" &
            "<xsl:copy><xsl:apply-templates select='@*|node()'/></xsl:copy>" &
          "</xsl:template>" &
            "<!-- for the first Area in each Position -->" &
          "<xsl:template match='Area[generate-id() = generate-id(key('AreaByPosition', Position)[1])]'>" &
            "<Area>" &
              "<!-- copy in the Position element once only -->" &
              "<xsl:apply-templates select='Position'/>" &
              "<!-- copy in all sub-elements except Position from all matching Areas -->" &
              "<xsl:apply-templates select='key('AreaByPosition', Position)/*[not(self::Position)]'/>" &
            "</Area>" &
          "</xsl:template>" &
            "<!-- ignore all other Area elements -->" &
          "<xsl:template match='Area'/>" &
        "</xsl:stylesheet>"
    End Function
End Class

因为当我试图加载它的时候会出现异常

Dim xsltTransformerCode As New xsltTransformCode()
Dim xsltTransCompiled As New XslCompiledTransform()
xsltTransCompiled.Load(xsltTransformerCode.transformationXSLTcode())

Answer 1

我刚刚查看了MSDN以确认怀疑，它验证了您不能将实际的XML字符串传递给XslCompiledTransform。加载函数。这个的字符串版本需要一个URI，因此抱怨"path中有坏字符"。

但是可以使用XMLReader加载XML:

Dim xsltTransformerCode As New xsltTransformCode()
Dim sr as new System.IO.StringReader(xsltTransformerCode.transformationXSLTcode())
Dim xr as XmlReader = XmlReader.Create(sr)
Dim xsltTransCompiled As New XslCompiledTransform()
xsltTransCompiled.Load(xr)

这是从一些c#代码匆忙转换过来的，我相信如果它不能正常工作，你可以修补它。

马克

Answer 2

看看单引号的组合:

<xsl:apply-templates select='key('AreaByPosition', Position)/*[not(self::Position)]'/>

我建议对xml属性使用双引号，对文字使用单引号;由于这是VB字符串的一部分，这将涉及到双引号的双引号转义，即

。

"<xsl:apply-templates select=""key('AreaByPosition', Position)/*[not(self::Position)]""/>" &

(多个位置等，不只是这一行)

Answer 3

你有这个match属性

match='Area[generate-id() = generate-id(key('AreaByPosition', Position)[1])]'

，在单引号字符串中包含一个单引号字符串。

不幸的是，你不能这样做，你必须转义内引号。我恐怕不知道如何在VB中做到这一点。

Answer 4

例如下面一行没有正确转义:

"<xsl:template match='Area[generate-id() = generate-id(key('AreaByPosition', Position)[1])]'>"  

从xslt的角度来看，必须使用撇号和引号作为分隔符。如果属性分隔符是撇号，则必须使用引号作为const的分隔符(如键名AreaByPosition)。

<xsl:template match='Area[generate-id() = generate-id(key("AreaByPosition", Position[1])]'>" 

但是从视觉的基本观点来看，这是行不通的。你必须转义引号。因此尝试:

   "<xsl:template match='Area[generate-id() = generate-id(key("AreaByPosition", Position)[1])]'>"  

但是我不确定在visual basic