Hi Michael,
I'd really appreciate the once-over.
Here is the XSLT - It is now fully functioning! (thanks to both Michael and
David
for pointing me in the right direction with the sister sibling):
<?xml version="1.0"?>
<!--
A CSV to XML transform
Version 2
Andrew Welch
http://andrewjwelch.com
Modify or supply the $pathToCSV parameter and run the transform
using "main" as the initial template.
For bug reports or modification requests contact me at
andrew(_dot_)j(_dot_)welch(_at_)gmail(_dot_)com
-->
<xsl:stylesheet version="2.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform";
xmlns:xs="http://www.w3.org/2001/XMLSchema";
xmlns:msxsl="urn:schemas-microsoft-com:xslt"
xmlns:fn="fn"
exclude-result-prefixes="xs fn">
<xsl:output indent="yes" encoding="US-ASCII"/>
<xsl:param name="pathToCSV" select="'file:///c:/fish.csv'"/>
<xsl:function name="fn:getTokens" as="xs:string+">
<xsl:param name="str" as="xs:string"/>
<xsl:analyze-string select="concat($str, ',')" regex='(("[^"]*")+|[^,]*),'>
<xsl:matching-substring>
<xsl:sequence select='replace(regex-group(1), "^""|""$|("")""", "$1")'/>
</xsl:matching-substring>
</xsl:analyze-string>
</xsl:function>
<xsl:template match="/" name="main">
<xsl:variable name="csvconverted">
<xsl:choose>
<xsl:when test="unparsed-text-available($pathToCSV)">
<xsl:variable name="csv" select="unparsed-text($pathToCSV)"/>
<xsl:variable name="lines" select="tokenize($csv, '
')" as="xs:string+"/>
<xsl:variable name="elemNames" select="fn:getTokens($lines[1])"
as="xs:string+"/>
<root>
<xsl:for-each select="$lines[position() > 1]">
<row>
<xsl:variable name="lineItems" select="fn:getTokens(.)"
as="xs:string+"/>
<xsl:for-each select="$elemNames">
<xsl:variable name="pos" select="position()"/>
<xsl:element name="{.}">
<xsl:value-of select="$lineItems[$pos]"/>
</xsl:element>
</xsl:for-each>
</row>
</xsl:for-each>
</root>
</xsl:when>
<xsl:otherwise>
<xsl:text>Cannot locate : </xsl:text>
<xsl:value-of select="$pathToCSV"/>
</xsl:otherwise>
</xsl:choose>
</xsl:variable>
<xsl:apply-templates select="$csvconverted/root"/>
</xsl:template>
<xsl:template match="/root">
<xmodexport version="4.0" generationdate="2008-03-27 22:52:04.984"
portalid="0">
<records>
<xsl:apply-templates select="row">
</xsl:apply-templates>
</records>
</xmodexport>
</xsl:template>
<xsl:template match="row">
<record id="-1" formid="22" portalid="0" adduser="1" updateuser="1"
approved="true" dateadded="2008-04-18 00:00:00.000" datemodified="2006-04-
18 00:00:00.000" displaydate="2006-04-17 00:00:00.000" expirydate="9999-12-
31 23:59:59.000">
<InstanceData>
<xsl:text disable-output-escaping="yes"><![CDATA[</xsl:text>
<instance>
<xsl:for-each select="node()">
<xsl:choose>
<xsl:when test="name()='daytime'">
<xsl:element name="daytime">
<xsl:choose>
<xsl:when test="text()='yes'">
<items>
<item>
<label>yes</label>
<value>**DAYTIME CLASS**</value>
</item>
</items>
</xsl:when>
<xsl:when test="text()='no'">
<items>
<item>
<label>no</label>
<value></value>
</item>
</items>
</xsl:when>
<xsl:otherwise>
<items/>
</xsl:otherwise>
</xsl:choose>
</xsl:element>
</xsl:when>
<xsl:when test="self::classdate">
<classdate>
<items>
<item>
<label>
<xsl:value-of select="."/>
</label>
<value><xsl:value-of
select="following-sibling::sortdate[1]"/>
00:00:00</value>
</item>
</items>
</classdate>
</xsl:when>
<xsl:when test="name()='sortdate'"/>
<xsl:otherwise>
<xsl:copy-of select="."></xsl:copy-of>
</xsl:otherwise>
</xsl:choose>
</xsl:for-each>
<classfull>
<items>
<item>
<label>No</label>
<value></value>
</item>
</items>
</classfull>
</instance>
<xsl:text disable-output-escaping="yes">]]></xsl:text>
</InstanceData>
</record>
</xsl:template>
</xsl:stylesheet>
The XSLT stylesheet at the bottom of the first post is almost
complete, do you see any errors that may arise in the future
by keeping it as <xsl:when...>?
Sorry, I'm having trouble finding "the first post" in markmail - the thread
seems to have been meandering for a while. Perhaps you could give a URL if
you want me to look at it again.
Michael Kay
http://www.saxonica.com/
--~------------------------------------------------------------------
XSL-List info and archive: http://www.mulberrytech.com/xsl/xsl-list
To unsubscribe, go to: http://lists.mulberrytech.com/xsl-list/
or e-mail:
<mailto:xsl-list-unsubscribe(_at_)lists(_dot_)mulberrytech(_dot_)com>
--~--
--
--~------------------------------------------------------------------
XSL-List info and archive: http://www.mulberrytech.com/xsl/xsl-list
To unsubscribe, go to: http://lists.mulberrytech.com/xsl-list/
or e-mail: <mailto:xsl-list-unsubscribe(_at_)lists(_dot_)mulberrytech(_dot_)com>
--~--