用方括号重新格式化日期

Question

将XML文件传输到TeX时，我尝试重新格式化日期 - 我的发布者说我必须在日期之间使用较小的水平空间 - 并且无法超越第一步。

我的输入文件是这个

<a> 
<date>January 1900</date> 
<date>2. 2. 1902</date> 
<date>3. [3]. 1903</date> 
<date>[4. 4. 1904]</date> 
</a> 

其中括号表示的日期还不能确定。有所有可能的括号组合，例如一年中的第二个数字：1 [9] 00。我创建了一个命令\小，这使得小空间的TeX： \ newcommand {\迷你} {\} 的XSLT后的结果应该是：

January 1900 
2.{\mini}2.{\mini}1902 
3.{\mini}[3].{\mini}1903 
[4.{\mini}4.{\mini}1904] 

我写了一个函数，它试图提取方括号并将它们的位置存储到一个变量中，然后再将它们连接起来。但由于我无法得到变量显示正确的位置，我卡住了：

<xsl:function name="foo:date-translate"> 
     <xsl:param name="date-string" as="xs:string"/> 
     <xsl:variable name="opening-square-bracket" as="xs:integer" select="count(substring-before($date-string,'&#91;'))"/> 
     <xsl:variable name="closing-square-bracket" as="xs:integer" select="count(substring-before($date-string,'&#x5b;'))"/> 
     <xsl:variable name="date-string-without-square-brackets" as="xs:string" select="replace(replace($date-string,'\[',''),'\]','')"/> 
     <xsl:choose> 
     <xsl:when test="matches($date-string-without-square-brackets,'\d{1,2}. \d{1,2}. \d{4}')"> 
     <xsl:choose> 
      <xsl:when test="not(contains($date-string,'['))"> 
       <xsl:value-of select="replace($date-string,'(\d{1,2}). (\d{1,2}). (\d{4})','$1\\mini$2\\mini$3')"/> 
      </xsl:when> 
      <xsl:otherwise> 
       <xsl:value-of select="concat(substring(replace($date-string-without-square-brackets,'(\d{1,2}). (\d{1,2}). (\d{4})','$1\\mini$2\\mini$3'),0,$opening-square-bracket),'[',substring(replace($date-string-without-square-brackets,'(\d{1,2}). (\d{1,2}). (\d{4})','$1\\mini$2\\mini$3'),$opening-square-bracket, $closing-square-bracket))"/> 
      </xsl:otherwise> 
     </xsl:choose> 
      </xsl:when> 
     <xsl:otherwise> 
       <xsl:value-of select="$date-string"/> 
     </xsl:otherwise> 
     </xsl:choose> 
    </xsl:function> 

Answer 1

我终于设法解决它与递归。基本上我有测试它是否适合正则表达式dd。毫米。 yyyy当托架被移除时。因为这工作，我现在可以重建整个字符串。

<xsl:function name="foo:date-repeat"> 
     <xsl:param name="date-string" as="xs:string"/> 
     <xsl:param name="amount" as="xs:integer"/> 
     <xsl:param name="counter" as="xs:integer"/> 
     <xsl:choose> 
     <xsl:when test="substring($date-string,$counter,1) =' '"> 
      <xsl:text>\mini</xsl:text> 
     </xsl:when> 
     <xsl:otherwise> 
      <xsl:value-of select="substring($date-string,$counter,1)"/> 
     </xsl:otherwise> 
     </xsl:choose> 
     <xsl:if test="$counter &lt;= $amount"> 
     <xsl:value-of select="foo:date-repeat($date-string, $amount,$counter+1)"/> 
     </xsl:if> 
    </xsl:function> 



<xsl:function name="foo:date-translate"> 
     <xsl:param name="date-string" as="xs:string"/> 
     <xsl:variable name="date-string-without-square-brackets" as="xs:string" select="replace(replace($date-string,'\[',''),'\]','')"/> 
     <xsl:choose> 
     <xsl:when test="matches($date-string-without-square-brackets,'\d{1,2}. \d{1,2}. \d{4}')"> 
     <xsl:choose> 
      <xsl:when test="not(contains($date-string,'['))"> <!-- Daten ohne eckige Klammer --> 
       <xsl:value-of select="replace($date-string,'(\d{1,2}). (\d{1,2}). (\d{4})','$1\\mini$2\\mini$3')"/> 
      </xsl:when> 
      <xsl:otherwise> 
       <xsl:value-of select="foo:date-repeat($date-string, string-length($date-string),1)"/> 
      </xsl:otherwise> 
     </xsl:choose> 
      </xsl:when> 
     <xsl:otherwise> 
       <xsl:value-of select="$date-string"/> 
     </xsl:otherwise> 
     </xsl:choose> 
    </xsl:function> 

我甚至扩大了我的解决方案，现在的功能检查测试每一个空间“”如果之前是一个点或一个点和一个支架，之后是一个数字或一个支架和一个数：

<xsl:function name="foo:date-repeat"> 
    <xsl:param name="date-string" as="xs:string"/> 
    <xsl:param name="amount" as="xs:integer"/> 
    <xsl:param name="counter" as="xs:integer"/> 
    <xsl:choose> 
    <xsl:when test="substring($date-string,$counter,1) =' ' and ((substring($date-string,$counter -1,1) = '.' and number(substring($date-string,$counter -2,1)) = number(substring($date-string,$counter -2,1))) or (substring($date-string,$counter -2,2) = '.]' and number(substring($date-string,$counter -3,1)) = number(substring($date-string,$counter -3,1))))"> 
     <xsl:choose> 
      <xsl:when test="number(substring($date-string,$counter +1,1)) = number(substring($date-string,$counter +1,1))"> 
       <xsl:text>\mini</xsl:text> 
      </xsl:when> 
      <xsl:when test="substring($date-string,$counter +1,1) ='[' and number(substring($date-string,$counter +2,1)) = number(substring($date-string,$counter +2,1))"> 
       <xsl:text>\mini</xsl:text> 
      </xsl:when> 
      <xsl:otherwise> 
       <xsl:value-of select="substring($date-string,$counter,1)"/> 
      </xsl:otherwise> 
     </xsl:choose> 
    </xsl:when> 
    <xsl:when test="substring($date-string,$counter,1) ='['"> 
     <xsl:text>{[}</xsl:text> 
    </xsl:when> 
    <xsl:when test="substring($date-string,$counter,1) =']'"> 
     <xsl:text>{]}</xsl:text> 
    </xsl:when> 
    <xsl:otherwise> 
     <xsl:value-of select="substring($date-string,$counter,1)"/> 
    </xsl:otherwise> 
    </xsl:choose> 
    <xsl:if test="$counter &lt;= $amount"> 
    <xsl:value-of select="foo:date-repeat($date-string, $amount,$counter+1)"/> 
    </xsl:if>