XML工房

<?xml version="1.0" encoding="Shift_JIS"?>
<xsl:stylesheet version="1.0"
　　　 xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
　 <xsl:output method="text" encoding="Shift_JIS"/>
　
　 <!--★[1]この階層レベルまで処理する：
　　　　　 "-1"は無制限、"0"はルート要素のみ、"1"は1階層まで処理する、… -->
　 <xsl:param name="stoplevel" select="-1" />
　
　 <!--★[2]エントリポイント-->
　 <xsl:template match="/">
　　 <xsl:apply-templates select="Dir"/>
　 </xsl:template>
　
　 <!--★[3]Dir要素（ノード）のためのテンプレート（再帰処理）-->
　 <xsl:template match="Dir">
　
　　 <!--★[4]ノードのインデントレベルのための変数：
　　　　 初期値は"0"で、インデントレベルに従ってインクリメントされる（[11]に対応）-->
　　 <xsl:param name="indent" select="0"/>
　　 <!--★[5]ノードに対するインデント文字列のための変数：
　　　　 初期値は""で、インデントレベルに従ってインデント文字が追加される（[10]に対応）-->
　　 <xsl:param name="string" select=""/>
　
　　 <!--★[6]ノードのインデントの出力：ルート要素の場合はインデントの出力は不要-->
　　 <xsl:if test="$indent != 0">
　　　 <xsl:value-of select="$string"/><xsl:text>└ </xsl:text>
　　 </xsl:if>
　　
　　 <!--★[7]ノード情報の出力-->
　　 <!--「フォルダ名(」の出力-->
　　 <xsl:value-of select="@Name"/>
　　 <xsl:text>(</xsl:text>
　　 <!--「フォルダ容量+単位」の出力-->
　　 <xsl:variable name="size"><xsl:value-of select="sum(.//@Size)"/></xsl:variable>
　　 <xsl:choose>
　　　 <xsl:when test="$size &gt;= 1024 * 1024">
　　　　 <xsl:value-of select="format-number($size div (1024 * 1024), '###.#')"/>
　　　　 <xsl:text>MB</xsl:text>
　　　 </xsl:when>
　　　 <xsl:when test="$size &gt;= 1024">
　　　　 <xsl:value-of select="format-number($size div (1024), '###.#')"/>
　　　　 <xsl:text>KB</xsl:text>
　　　 </xsl:when>
　　　 <xsl:when test="$size = 0">
　　　　 <xsl:value-of select="$size"/>
　　　 </xsl:when>
　　　 <xsl:otherwise>
　　　　 <xsl:value-of select="$size"/><xsl:text>byte</xsl:text>
　　　 </xsl:otherwise>
　　 </xsl:choose>
　　 <!--「)改行」の出力-->
　　 <xsl:text>)&#xA;</xsl:text>
　　 <!--★★ここまでがノード情報の出力-->
　
　　 <!--★[8]子要素としてDir要素があれば、さらに処理する（再帰呼出）-->
　　 <!--★[9]ただし、次の階層を処理するかしないかを判断する（[1]に対応）-->
　　 <xsl:if test="($stoplevel = -1) or ($indent &lt; $stoplevel)">
　　　　 <xsl:apply-templates select="Dir">
　　　　 <!--★[10]ノードに対するインデント文字列の設定：
　　　　　　　　 対象ノード以降に兄弟ノードがなければ「　 」を追加
　　　　　　　　 対象ノード以降に兄弟ノードがあれば「｜ 」を追加 -->
　　　　 <xsl:if test="$indent != 0">
　　　　　 <xsl:if test="position() = last()">
　　　　　　 <xsl:with-param name="string" select="concat($string, '　 ')"/>
　　　　　 </xsl:if>
　　　　　 <xsl:if test="position() != last()">
　　　　　　 <xsl:with-param name="string" select="concat($string, '｜ ')"/>
　　　　　 </xsl:if>
　　　　 </xsl:if>
　　　　 <!--★[11]ノードのインデントレベルをインクリメント-->
　　　　 <xsl:with-param name="indent" select="$indent + 1"/>
　　　　 <!--★[12]フォルダ容量の大きさでソート-->
　　　　 <xsl:sort select="sum(.//@Size)" data-type="number" order="ascending"/>
　　　 </xsl:apply-templates>
　　 </xsl:if>

　</xsl:template>
</xsl:stylesheet>

My Documents(1.6MB)
└ My Webs(1.5KB)
｜ └ images(0)
｜ └ _private(0)
｜ └ _vti_cnf(0)
｜ └ _vti_pvt(1.5KB)
└ My Pictures(282.4KB)
｜ └ Sample Pictures(282.3KB)
└ My Music(1.3MB)
　 └ Sample Music(1.3MB)