在XSLT样式表中插入VBScript脚本进行数学计算

时间 2019-11-17

标签 xslt 样式表中插入 vbscript 脚本进行数学计算栏目应用数学繁體版

原文原文链接

继上次我写了篇文章《在XSLT样式表中使用莱布尼兹级数计算π的近似值》后，我发如今XSLT中使用模板的递归调用，有下面两个缺点：1）易读性差，有失灵活；2）效率低下。所以，我又想了一个新的策略实如今XSLT中的一些复杂的计算工做，这就是在XSLT中嵌入脚本，本文以VBScript为例描述了这一过程html

现有XML文档pi.xml以下：ui

<?xml version="1.0" encoding="utf-8"?>
<?xml-stylesheet type='text/xsl' href='pi.xslt'?>
<LOOP COUNT="500000" />

这回的计算次数从上次的10000（一万）次提高到了500000（五十万）次.net

再创建xslt文件pi.xslt，内容以下：code

<?xml version="1.0" encoding="gb2312"?>
<xsl:stylesheet version="1.0"
  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
  xmlns:msxml="urn:schemas-microsoft-com:xslt"
  xmlns:MyVBScript="#MyVBScript">

  <msxml:script language="VBScript" implements-prefix="MyVBScript">
    <![CDATA[
      
Function Pi(IterTimes)

    Dim Result : Result = 0.0
    Dim Sign : Sign = 1.0
    
    For i = 1 To IterTimes
        Result = Result + Sign / (i * 2 - 1)
        Sign = Sign * (-1)
    Next
    
    Pi = Result 
    
End Function
          
    ]]>
  </msxml:script>

  <xsl:output method="html" />

  <!--计算Pi值-->
  <xsl:template match="/">
    <html>

      <head>
        <meta content="zh-cn" http-equiv="Content-Language"/>
        <meta content="text/html; charset=utf-16" http-equiv="Content-Type"/>
        <title> &#960;的莱布尼茨公式</title>

      </head>
      <body>
        <xsl:text>计算&#960;值 迭代次数：</xsl:text>
        <xsl:value-of select="/LOOP/@COUNT"/>
        <hr/>
        <xsl:text>计算结果为：</xsl:text>
        <xsl:value-of select="MyVBScript:Pi(string(/LOOP/@COUNT)) * 4"/>
      </body>
    </html>
  </xsl:template>

</xsl:stylesheet>

再用IE7打开pi.xml，会有下面的提示信息：orm

若是点击了按钮“否”，则XML变为不可读：xml

若是点击了“是”，则会出现下面的页面：htm

运行后能够发现，这段代码中为计算Pi值一共迭代了500,000次，计算速度反而比《在XSLT样式表中使用莱布尼兹级数计算π的近似值》中迭代10,000次还要快得多。再加上使用VBScript能够处理比XSLT语言更为复杂的逻辑，所以涉及到比较复杂的计算时，我认为嵌入脚本辅助计算的方式更值得使用。blog