-----------------------------------

qwerty654321

Mon Feb 24, 2003 8:08 am


reading from file qwerks

-----------------------------------

okay heres the problem....
when reading from a file im reading lines e.g.


this is a line
this is another line


now if i want to read each word i just say 

get : streamnum, word 

now if that was looped id get    'this' 'is' 'a' 'line' 'this' 'is' 'another' 'line'

HOWEVER..

i wan to know a good way to seperate it into 2 lines similar to how i read it from the file instead of a new long sentence....ne ideas?

e.g. out put (without the '')

'this' 'is' 'a' 'line' 
'this' 'is' 'another' 'line'


-----------------------------------

hey_joe42

Mon Feb 24, 2003 11:03 am


try this

-----------------------------------

var fn : int
var count := 0
var sentence : string
open : fn, "line.txt", get
loop
    exit when eof (fn)
    get : fn, sentence : *
    for i : 1 .. length (sentence)
        if sentence (i) = " " then
            count += 1
        end if
    end for
    var word := "" %array 1..count of string
    for i : 1 .. count
        if sentence (i) not= " " then
            word += sentence (i)
        else
            put word
        end if
    end for
end loop
might work try it or fix it


-----------------------------------

Tony

Mon Feb 24, 2003 1:53 pm



-----------------------------------

the Censor problem for CCC competition asks similar question. We have a number of solutions posted there, you might be interested in reading some.