1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
| <?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="xml" version="1.0" encoding="UTF-8" indent="yes"/>
<xsl:template match="/Table">
<table>
<xsl:call-template name="ligne">
<xsl:with-param name="nbLignes" select="NbLignes"/>
<xsl:with-param name="nbColonnes" select="NbColonnes"/>
<xsl:with-param name="valeurs" select="concat(Valeurs, ' ')"/>
</xsl:call-template>
</table>
</xsl:template>
<xsl:template name="ligne">
<xsl:param name="nbLignes"/>
<xsl:param name="nbColonnes"/>
<xsl:param name="valeurs"/>
<xsl:variable name="valeurs-ligne">
<xsl:call-template name="extraction-valeurs-ligne">
<xsl:with-param name="valeurs-tableau" select="$valeurs"/>
<xsl:with-param name="nbValeurs" select="$nbColonnes"/>
</xsl:call-template>
</xsl:variable>
<xsl:if test="$nbLignes > 0">
<ligne>
<xsl:call-template name="colonne">
<xsl:with-param name="nbColonnes" select="$nbColonnes"/>
<xsl:with-param name="valeurs" select="concat(normalize-space($valeurs-ligne), ' ')"/>
</xsl:call-template>
</ligne>
<xsl:call-template name="ligne">
<xsl:with-param name="nbLignes" select="$nbLignes - 1"/>
<xsl:with-param name="nbColonnes" select="$nbColonnes"/>
<xsl:with-param name="valeurs" select="substring-after($valeurs, concat(normalize-space($valeurs-ligne), ' '))"/>
</xsl:call-template>
</xsl:if>
</xsl:template>
<xsl:template name="colonne">
<xsl:param name="nbColonnes"/>
<xsl:param name="valeurs"/>
<xsl:if test="$nbColonnes > 0">
<colonne>
<xsl:value-of select="substring-before($valeurs, ' ')"/>
</colonne>
<xsl:call-template name="colonne">
<xsl:with-param name="nbColonnes" select="$nbColonnes - 1"/>
<xsl:with-param name="valeurs" select="substring-after($valeurs, ' ')"/>
</xsl:call-template>
</xsl:if>
</xsl:template>
<xsl:template name="extraction-valeurs-ligne">
<xsl:param name="valeurs-tableau"/>
<xsl:param name="nbValeurs"/>
<xsl:param name="valeurs-ligne" select="''"/>
<xsl:choose>
<xsl:when test="$nbValeurs > 0">
<xsl:call-template name="extraction-valeurs-ligne">
<xsl:with-param name="valeurs-tableau" select="substring-after($valeurs-tableau, ' ')"/>
<xsl:with-param name="nbValeurs" select="$nbValeurs - 1"/>
<xsl:with-param name="valeurs-ligne" select="concat($valeurs-ligne, substring-before($valeurs-tableau, ' '), ' ')"/>
</xsl:call-template>
</xsl:when>
<xsl:otherwise>
<xsl:value-of select="$valeurs-ligne"/>
</xsl:otherwise>
</xsl:choose>
</xsl:template>
</xsl:stylesheet> |
Partager