Re: DELIMITED DATA FILES TO SEQUENCE
- Posted by don cole <doncole at pacbell.net> Feb 02, 2005
- 398 views
ZNorQ wrote: > > I've known about Euphoria for a long time now, but it is untill now > i've tried to learn it. Looks quite powerful, and what I like most > is the SEQUENCEs. > > As I make quite a few utilities for workrelated tasks, I was thinking > of going over to Euphoria instead of using O'Basic (which is really > easy, yet quite powerful.) in hope that Euphoria can help me out > better than the restrictions in O'Basic's arrays. Euphoria is a new > way of thinking, and I haven't quite gotten used to it yet! :D > > What I'm looking for is an include file that can read a data file > (text format - where data is placed in a record/field structure > separated by a special delim. character, like TAB, ';' etc.) > and build a SEQUENCE from that file. > > An example of the content of a file, where [TAB] is the char(9); > HEADING ONE [TAB] HEADING TWO [TAB] HEADING THREE > DATA ONE [TAB] DATA TWO [TAB] DATA THREE > DATA ONE [TAB] DATA TWO [TAB] DATA THREE > > the result would be; > { > {"HEADING ONE", "HEADING TWO", "HEADING THREE"}, -- Record 1 > {"DATA ONE", "DATA TWO", "DATA THREE"}, -- Record 2 > {"DATA ONE", "DATA TWO", "DATA THREE"} -- Record 3 > } > > This will be used to view this data for example in Win32Lib's > List View control. (I know how to do that! :D) > > I'd probably make it work if really I put my head into it, but right now > im trying to absorb as much as possible about the language, and I'm > spending most of my time getting to know Win32Lib. > > What I would like to know is if any of you know if a code snippet > of this sort already exists? > > Kenneth 'ZNorQ' >
global function read_LV(integer id) sequence lData,lheads,line,row integer cnt,fh fh=1 line={} row={} -- Output the columns in the right order lheads = getColumnHeadings(id) for i = 1 to getLVCount(id) do for j = 1 to length(lheads) do--the minus one to cut off last col lData = getLVItemText(id, i, lheads[j][1]) line=append(line,lData) -- line=line & lData end for row =append(row,line) line={} end for return row end function
don cole SF