Conversion script: link fix

2015-02-26T23:48:54Z

link fix

New page

HomePage>>SourceCode>>BasicSource>>[[CSV2FIELDS]]

This subroutine converts a single CSV string into a field-delimited dynamic array.

2009-12-24: Was converting escaped quote marks (i.e. two in a row) when not contained within a quoted field; now fixed.

<pre>
SUBROUTINE [[CSV2FIELDS]](TEXT, RECORD)
******
* [[CSV2FIELDS]] $Revision: 1.2 $
* CONVERT COMMA SEPARATED VALUES INTO A PICK RECORD
* Copyright (C) 2007 Rex Gozar
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
* http://www.gnu.org/licenses/lgpl.html
*
* Rex Gozar
* rkgozar@juno.com
******
EQU COMMA TO ','
EQU DQ TO '"'
BUFFER = TEXT
BUFPTR = 0
CPTR = 0
QUOTESW = @FALSE
LOOP
CPTR += 1
C = BUFFER[CPTR,1]
WHILE (C NE "") DO
IF (DQ EQ C) THEN
IF (QUOTESW) AND (DQ:DQ EQ BUFFER[CPTR,2]) THEN
CPTR += 1
END ELSE
QUOTESW = NOT(QUOTESW)
CONTINUE
END
END
IF (COMMA EQ C) AND NOT(QUOTESW) THEN
C = @FM
END
BUFPTR += 1
BUFFER[BUFPTR,1] = C
REPEAT
RECORD = BUFFER[1,BUFPTR]
RETURN
END
</pre>

http://www.autopower.com/rgozar/pixel.gif

== See Also ==

Web page devoted to CSV processing: [[CSV]]

----

[[Tags]]: excel google docs openoffice calc csv comma-delimited tab-delimited spreadsheet worksheet

CSV2FIELDS - Revision history

Conversion script: link fix