MapForce 2013“映射”为XSLT for Excel 2010宏

时间:2013-10-06 13:02:26

标签: excel vba xslt mapping altova

请帮助我低估并建议我应该为以下情况做些什么。 我必须使用Excel 2007/2010宏将一个XML转换为另一个XML,并且我尝试使用Altove MapForce工具,我在大约6年前用于Java中的XSLT没有任何问题。映射XML(应该是样式表)将在下面复制。但是,Excel VB执行会抛出有关xmlns的错误消息:fn =“http://www.w3.org/2005/xpath-functions”不包含任何函数。

我确实使用了MapfForce库中的“contains”和“if-else”等转换函数。

有什么问题?

我非常感谢任何帮助(特别是我需要及时)。

此致 - 迈克

<xsl:stylesheet version="2.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:core="http://www.altova.com/MapForce/UDF/core" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:fn="http://www.w3.org/2005/xpath-functions" exclude-result-prefixes="core xs fn">
<xsl:template name="core:convert-uri-to-windows-file-path">
    <xsl:param name="uri" select="()"/>
    <xsl:choose>
        <xsl:when test="fn:starts-with($uri, 'file://')">
            <xsl:choose>
                <xsl:when test="(fn:substring($uri, xs:double('6'), xs:double('3')) = '///')">
                    <xsl:variable name="var1_resultof_url_decode" as="xs:string">
                        <xsl:call-template name="core:url-decode">
                            <xsl:with-param name="uri" select="fn:substring($uri, xs:double('9'), xs:double(fn:string-length($uri)))" as="xs:string"/>
                        </xsl:call-template>
                    </xsl:variable>
                    <xsl:sequence select="fn:translate($var1_resultof_url_decode, '/|', '\:')"/>
                </xsl:when>
                <xsl:otherwise>
                    <xsl:sequence select="$uri"/>
                </xsl:otherwise>
            </xsl:choose>
        </xsl:when>
        <xsl:otherwise>
            <xsl:sequence select="$uri"/>
        </xsl:otherwise>
    </xsl:choose>
</xsl:template>
<xsl:template name="core:url-decode">
    <xsl:param name="uri" select="()"/>
    <xsl:choose>
        <xsl:when test="fn:contains($uri, '%')">
            <xsl:variable name="var1_resultof_url_decode_part" as="xs:string">
                <xsl:call-template name="core:url-decode-part">
                    <xsl:with-param name="uripart" select="fn:substring-after($uri, '%')" as="xs:string"/>
                </xsl:call-template>
            </xsl:variable>
            <xsl:sequence select="fn:concat(fn:substring-before($uri, '%'), $var1_resultof_url_decode_part)"/>
        </xsl:when>
        <xsl:otherwise>
            <xsl:sequence select="$uri"/>
        </xsl:otherwise>
    </xsl:choose>
</xsl:template>
<xsl:template name="core:url-decode-part">

1 个答案:

答案 0 :(得分:0)

Excel VBA使用的XSL处理器仅接受XSLT版本1,而您的XSLT版本为2.虽然将其转换为版本1并不困难 - 它似乎不使用任何版本2特定功能。

这是您发布的部分版本1的转换:

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
  <xsl:template name="convert-uri-to-windows-file-path">
    <xsl:param name="uri"/>
    <xsl:choose>
      <xsl:when test="starts-with($uri, 'file://')">
        <xsl:choose>
          <xsl:when test="substring($uri, 6, 3) = '///'">
            <xsl:variable name="var1_resultof_url_decode">
              <xsl:call-template name="url-decode">
                <xsl:with-param name="uri" select="substring($uri, 9, string-length($uri))"/>
              </xsl:call-template>
            </xsl:variable>
            <xsl:value-of select="translate($var1_resultof_url_decode, '/|', '\:')"/>
          </xsl:when>
          <xsl:otherwise>
            <xsl:value-of select="$uri"/>
          </xsl:otherwise>
        </xsl:choose>
      </xsl:when>
      <xsl:otherwise>
        <xsl:value-of select="$uri"/>
      </xsl:otherwise>
    </xsl:choose>
  </xsl:template>
  <xsl:template name="url-decode">
    <xsl:param name="uri"/>
    <xsl:choose>
      <xsl:when test="contains($uri, '%')">
        <xsl:variable name="var1_resultof_url_decode_part">
          <xsl:call-template name="url-decode-part">
            <xsl:with-param name="uripart" select="substring-after($uri, '%')"/>
          </xsl:call-template>
        </xsl:variable>
        <xsl:value-of select="concat(substring-before($uri, '%'), $var1_resultof_url_decode_part)"/>
      </xsl:when>
      <xsl:otherwise>
        <xsl:value-of select="$uri"/>
      </xsl:otherwise>
    </xsl:choose>
  </xsl:template>