Witango-Talk: CSV into Array

[Wayne Irvine]

Very late last night I started throwing together some code to parse the CSVs
and replace delimiter commas with [COL] and leave those within text fields
in place.

It also replaces CRLFs with [ROW].

Or at least that's what it's supposed to do. It fails at the first ELSEIF.

Anyone who's had some sleep like to have a look at the syntax?

<@VAR local$FileContents><br><hr>
<@ASSIGN NAME=DoubleQuote VALUE='OFF' SCOPE=LOCAL>
<@LENGTH <@VAR local$FileContents>><br>

<@FOR START=1 STOP=<@LENGTH <@VAR local$FileContents>>>

<@CURROW><br>

<@ASSIGN NAME=CurrChar Value=<@SUBSTRING STR=<@VAR local$FileContents>
START=<@CURROW> NUMCHARS=1> SCOPE=LOCAL>

<@VAR local$CurrChar><br>

<@IF "<@VAR local$CurrChar>=<@DQ>">

    <@IF '<@VAR local$DoubleQuote>="ON"'>
        <@ASSIGN NAME=DoubleQuote VALUE='OFF' SCOPE=LOCAL>
    <@ELSEIF '<@VAR local$DoubleQuote>="OFF"'>
        <@ASSIGN NAME=DoubleQuote VALUE='ON' SCOPE=LOCAL>
    </@IF>

<@ELSEIF '<@VAR local$CurrChar>=<@CHAR CODE=44>'>

    <@IF '<@VAR [EMAIL PROTECTED]>="OFF"'>
        <@ASSIGN NAME=NewString VALUE="<@VAR local$NewString>[COL]"
SCOPE=LOCAL>
    <@ELSEIF "<@VAR [EMAIL PROTECTED]>='ON'">
        <@ASSIGN NAME=NewString VALUE="<@VAR local$NewString><@VAR
local$CurrChar>" SCOPE=LOCAL>
    </@IF>

<@ELSEIF "<@SUBSTRING STR=<@VAR local$FileContents> START=<@CURROW>
NUMCHARS=1>=<@CRLF>">

    <@ASSIGN NAME=NewString VALUE="<@VAR local$NewString>[ROW]" SCOPE=LOCAL>



<@ELSE>

    <@ASSIGN NAME=NewString VALUE="<@VAR local$NewString><@VAR
local$CurrChar>" SCOPE=LOCAL>
</@COMMENT>
</@IF>
<@VAR local$DoubleQuote><br>
</@FOR>

<@VAR local$NewString><br><hr>

Wayne Irvine
                  Byte Services Pty Ltd
               http://www.byteserve.com.au/
                  [EMAIL PROTECTED]
   Ph 02 9960 6099   Mob 0409 960 609   Fax 02 9960 6088

________________________________________________________________________
TO UNSUBSCRIBE: Go to http://www.witango.com/developer/maillist.taf