OpenEuphoria

I think it works?

• Posted by Bryan Melugin <bmelugin at BELLSOUTH.NET> Jul 23, 1999
• 432 views

I think that it works but I'm not sure.  It runs without any error
message, but I can't find the output anywhere.  I search for the out
file but none exists.  Does Euphoria put the output in the same
directory the input file resides?

Bryan

JJProg at CYBERBURY.NET wrote:

> Now just call GetRecord(f) for each record. Example:
>
> integer in, out, n
> object r
> in = open("infile.txt","r")
> if in = -1 then
>         puts(1,"Couldn't open infile.txt.\n")
>         abort(1)
> end if
> n = 1
> r = GetRecord(in)
> while sequence(r) do
>         out = open(sprintf("out%d.txt",n),"w")
>         if out = -1 then
>                 printf(1,"Couldn't open out%d.txt.\n",n)
>                 exit
>         end if
>         puts(out,r)
>         close(out)
>         n += 1
>         r = GetRecord(in)
> end while
> close(in)
>
> EU>Just a sec. I'll finish this in another e-mail.
>
> EU>Jeffrey Fielding
> EU>JJProg at cyberbury.net
> EU>http://members.tripod.com/~JJProg/