OpenEuphoria

Re: Reading a file into a "sequence"...correction

• Posted by John F Dutcher <John_Dutcher at urmc.rochester.edu> Nov 18, 2004
• 443 views

Alexander Toresson wrote:
> 
> John F Dutcher wrote:
> > 
> > Sorry about the question over the line[1..4] = "%HDR" issue....
> > it needed to say line[2..5] of course.....
> > That just leaves being able to treat the values in line as
> > members of a "sequence".......
> >
> > > *********************   file sampling  ************
> > > "%HDR","EXTRACT","11/17/2004 02:23:10 AM","UNIVERSITY OF ROCHESTER MEDICAL
> > > CENTER"
> > >
> > > "%DTL","000061474714","000001821707","BARNES","CHARLES","","03/31/2001","03/20/2001","03/20/2001","000001819.00","000000000.00","11/07/2004","E3R","000001819.00","A1O","
> > >   ","86115","YJP115341192","     ","10549",,,,,,,"86","EMG ","C"," "
> > >
> > > "%DTL","000079336343","000002008157","FRANCIS","DALE","","11/13/2004","09/19/2002","09/19/2002","000002198.00","000000000.00","11/01/2004","09","000000408.00","A1O","
> > >   ","50102","132288832A","     ","02262",,,,,,,"50","BMT ","C"," "
> > >
> > > "%DTL","000079336343","000002008157","FRANCIS","DALE","","11/13/2004","09/19/2002","09/19/2002","000002198.00","000000000.00","11/03/2004","17","000000408.00","A1O","
> > >   ","50102","132288832A","     ","02262",,,,,,,"50","BMT ","C"," "
> > >
> > 
> Here's a solution (assuming that the lines were split by the forum):
> 
> items = value("{" & gets(fn) & "}")
> items = items[2]
> 
> ...would read a line, add braces around it, and then give it to value(),
> which reads a string representation of a euphoria object.
> It will then get the second element of the returned sequence,
> which is the euphoria sequence (the first element is error status).
> Your lines will be valid representation of euphoria sequences if you just
> put braces around each of them.
> 
> Regards, Alexander Toresson
> 
> Shhh! Be vewy quiet! I'm hunting wuntime ewwows!
> 
This err message results from the code lines below when using "value",
I am probably messing up the exercise....

"C:\EuphoriaMyScripts\ThirdMill2.exw:83
sequence found inside character string "

object line
while 1 do 
      line = value("{" & gets(fn) & "}")
      line = line[2]
      puts(1, line & "\n") <-------- error line highlited
end while