OpenEuphoria

Re: HELP with 'seek'

• Posted by Irv Mullins <irv at ELLIJAY.COM> Aug 18, 2000
• 498 views

On Fri, 18 Aug 2000, I sent the backup version of the file.
Let's try again with the _current_ one :)

-- Am I reading your code correctly, you're only using the last three records?
-- fI so, the following should work

without warning
include get.e

constant DATE = 1, OPEN1 = 2, HIGH1 = 3, LOW1 = 4,
         CLOSE1 = 5, VOLUME1 = 6, OPENINT1 = 7

atom DayRange1, UpperShadow1, LowerShadow1

object data, line
atom fn

function readline()
object line, item
line = {}
for i = DATE to OPENINT1 do
 item = get(fn)
 if item[1] = GET_SUCCESS then
    line = append(line,item[2])
 else return -1
 end if
end for
return line
end function

fn = open("testdata.txt","r")
data = {}
while 1 do
   line = readline()
   if atom(line) then exit
   else data = append(data,line)
   end if
end while
close(fn)

printf(1,"%d records read\n",length(data))

for i = 1 to length(data) do
 printf(1,"Date: %s\n",{data[i][DATE]})
 for j = OPEN1 to OPENINT1 do
    data[i][j] = value(data[i][j])
    data[i][j] = data[i][j][2]
 end for
end for

-- discard all but last 3 records;
data = data[length(data)-3..length(data)]

clear_screen()
puts(1,"Last 3 days\n")
puts(1,"Date        Open     High    Low     Close   Volume  OpenInt\n")
for i = 1 to length(data) do
 printf(1,"%s %4.5f %4.5f %4.5f %8d %8d \n",data[i])
end for