Pretty nifty!
> -----Original Message----- > From: Wayne Irvine [mailto:[EMAIL PROTECTED] > Sent: Friday, April 16, 2004 12:32 AM > To: [EMAIL PROTECTED] > Subject: Re: Witango-Talk: CSV into Array > > > Sussed it!! > > > <@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> > > Notice the @s where there should be $! > > Also, I was checking for one character matching <@CRLF>, > which is two characters. > > Here's the code all working and spiffy. If anyone wants to > use it feel free. > > > <@VAR local$FileContents><br><hr> > <@ASSIGN NAME=DoubleQuote VALUE='OFF' SCOPE=LOCAL> > <@ASSIGN FileContents VALUE=<@REPLACE STR=<@VAR > local$FileContents> FINDSTR=<@CRLF> REPLACESTR="[ROW]"> > SCOPE=LOCAL> <@LENGTH <@VAR local$FileContents>><br> > > <@DEBUG> > <TABLE> > </@DEBUG> > > <@FOR START=1 STOP=<@LENGTH <@VAR local$FileContents>>> > > <@DEBUG> > <TR> > <TD> > <@CURROW> > </TD> > <TD> > </@DEBUG> > > <@ASSIGN NAME=CurrChar Value=<@SUBSTRING STR=<@VAR > local$FileContents> START=<@CURROW> NUMCHARS=1> SCOPE=LOCAL> > > <@DEBUG> > <@VAR local$CurrChar> > </TD> > </@DEBUG> > > <@IF EXPR='<@VAR local$CurrChar>=<@DQ>'> > > <@DEBUG> > <TD> > Double Quote > </TD> > </@DEBUG> > > <@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 EXPR='<@VAR local$CurrChar>=<@CHAR CODE=44>'> > > <@DEBUG> > <TD> > Comma > </TD> > </@DEBUG> > > <@IF '<@VAR local$DoubleQuote>=OFF'> > <@ASSIGN NAME=NewString VALUE="<@VAR > local$NewString>[COL]" SCOPE=LOCAL> > <@ELSEIF "<@VAR local$DoubleQuote>=ON"> > <@ASSIGN NAME=NewString VALUE="<@VAR > local$NewString><@VAR local$CurrChar>" SCOPE=LOCAL> > </@IF> > > <@ELSE> > > <@DEBUG> > <TD> > Other > </TD> > </@DEBUG> > > <@ASSIGN NAME=NewString VALUE="<@VAR > local$NewString><@VAR local$CurrChar>" SCOPE=LOCAL> > > </@IF> > > <@DEBUG> > <TD> > <@VAR local$DoubleQuote> > </TD> > <TD> > <@VAR local$NewString> > </TD> > </TR> > </@DEBUG> > > </@FOR> > > <@DEBUG> > </TABLE> > </@DEBUG> > > > <@VAR local$NewString><br><hr> > > <@ARRAY NAME=UpdateArray VALUE=<@VAR local$NewString> > CDELIM='[COL]' RDELIM='[ROW]' SCOPE=local> > > <@VAR local$UpdateArray> > > Wayne > > 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 > ________________________________________________________________________ TO UNSUBSCRIBE: Go to http://www.witango.com/developer/maillist.taf
