用方括號重新格式化日期

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>