RE: find capital letters in string and split it

As an aside this is what I got to last night before Dimitre came with
the fxsl solution, problem of course is that it won't handle single
letter words:



<xsl:template match="string">
        <xsl:variable name="splitIDbig" select="normalize-
space(translate(.,'ABCDEFGHIJKLMNOPQRSTUVWXYZ','                        
        '))"/>
        <xsl:variable name="splitIDsmall" select="normalize-
space(translate(.,'abcdefghijklmnopqrstuvwxyz','                        
        '))"/>
        <xsl:variable name="mingle">
                <xsl:call-template name="mingler">
                <xsl:with-param name="splitIDbig" select="normalize-
space($splitIDbig)"/>
                <xsl:with-param name="splitIDsmall" select="normalize-
space($splitIDsmall)"/>
                </xsl:call-template>
        </xsl:variable>

<result>
        <xsl:value-of select="$mingle"/>
</result>
</xsl:template>

<xsl:template name="mingler">
        <xsl:param name="splitIDbig"/>
        <xsl:param name="splitIDsmall"/>
        <xsl:param name="result"/>
                <xsl:choose>
                        <xsl:when test="string-length($splitIDsmall)
&gt; 0">
                        <xsl:variable name="tempstring">
                                <xsl:choose>
                                <xsl:when
test="substring-before($splitIDsmall,'')">
                                <xsl:value-of 
        
select="concat($result,substring-before($splitIDsmall,'
'),substring-before($splitIDbig,' '),' ')"/>
                                </xsl:when>
                                <xsl:otherwise>
                                <xsl:value-of
select="concat($result,$splitIDsmall,$splitIDbig)"/>
                                </xsl:otherwise>
                                </xsl:choose>
                                </xsl:variable>
                                <xsl:call-template name="mingler">
                                <xsl:with-param name="splitIDbig"
select="substring-                              after($splitIDbig,'
')"/>
                                <xsl:with-param name="splitIDsmall"
select="substring-after($splitIDsmall,' ')"/>
                                <xsl:with-param name="result"
select="$tempstring"/>
                                </xsl:call-template>
                                </xsl:when>
                                <xsl:otherwise>
                                <xsl:value-of select="$result"/>
                                </xsl:otherwise>
                                </xsl:choose>
</xsl:template>


 XSL-List info and archive:  http://www.mulberrytech.com/xsl/xsl-list