文字列関数 substring

$valの先頭から4文字を出力する。

1文字目が 0 ではなく 1 のところがミソ。

<xsl:value-of select="substring($val, 1, 4)"/>