OpenEuphoria

Re: Text lines into an array of unknown size

• Posted by Juergen Luethje <j.lue at gmx.de> Aug 08, 2003
• 831 views

*One* special character in the mail, and Topica mangled almost the
whole mail ... Grrrrr!

Here's the code again (the variable 'count' wasn't necessary anyway):


        constant ERROR = 2
        integer file
        sequence tx
        object line

        file = open("c:/rexx/rxcalibur.txt", "r")
        if file = -1 then
           puts(ERROR, "couldn't open text file\n")
           abort(1)     -- end of program, exit code 1
        end if

        tx = {}
        while 1 do
           line = gets(file)
           if atom(line) then
              exit
           end if
           tx = append(tx, line)
        end while
        close(file)

        printf(1, "available lines: %d\n\n", {length(tx)})
        for i = 1 to length(tx) do
           puts(1, tx[i])
        end for


Best regards,
   Juergen

-- 
 /"\  ASCII ribbon campain  |
 \ /  against HTML in       |  This message has been ROT-13 encrypted
  X   e-mail and news,      |  twice for higher security.
 / \  and unneeded MIME     |