OpenEuphoria

Re: HELP!!!

• Posted by JJProg at CYBERBURY.NET Jul 23, 1999
• 426 views

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/