Простой код по созданию файла с ценами из all_trades таблички

Внимание

Для участия в обсуждениях и оформления подписки на новые сообщения форума вам необходимо зарегистрироваться.
Главная » Основные форумы » Программирование на языке Lua
Страницы: 1
RSS
Простой код по созданию файла с ценами из all_trades таблички, файл создаётся, но пустой, табличку получаем.
 
#1
03.04.2015 10:28:20
Цитата
boom = {}
ttime = {}
is_run = 1

function OnStop()
   is_run = 0
end

function main()
   while is_run == 1 do
       file = io.open("res.txt", "w+t")
           g = getNumberOf("all_trades")-1
           for i=0, g do
               boom = getItem("all_trades", i)
               message(tostring(boom.price),3)
               file:write(tostring(boom.price).. "\n")
               i = i+1
               sleep(1000)
           end
       file:close()
   end
end
 
 
#2
03.04.2015 10:29:42
как всегда, стоит только начать жаловаться, как всё заработает)))
 
 
#3
03.04.2015 10:31:29
Нет, поторопился, не работает. Пустой файл!
 
 
#4
03.04.2015 10:35:50
добавьте команду
file:flush()
 
 
#5
03.04.2015 10:38:40
Цитата
Sergey Gorokhov пишет:
добавьте команду
file:flush()
А разве одного file:close() не достаточно?
 
 
#6
03.04.2015 10:40:36
Цитата
Дмитрий пишет:
А разве одного file:close() не достаточно?
Вы посмотрите код, он до close не доходит просто.
С учетом sleep чтобы добраться до close надо ждать суток трое
 
 
#7
03.04.2015 10:42:07
Цитата
Sergey Gorokhov пишет:
С учетом sleep чтобы добраться до close надо ждать суток трое
Это верно
 
 
#8
03.04.2015 13:06:12
Как минимум, открытие и закрытие файла надо вынести за тело цикла while.
 
 
#9
03.04.2015 15:59:35
Николай Бехтерев, советую вам оформлять свой код с отступами внутри циклов, а чтобы эти отступы не пропадали при размещении сообщения на форуме - пользоваться кнопочкой "оформление текста в виде кода".
Иначе бывает трудно сходу вникнуть в логику работы вашего алгоритма.
 
 
#10
06.04.2015 20:02:19
Цитата
Дмитрий пишет:
Николай Бехтерев , советую вам оформлять свой код с отступами внутри циклов, а чтобы эти отступы не пропадали при размещении сообщения на форуме - пользоваться кнопочкой "оформление текста в виде кода".
Иначе бывает трудно сходу вникнуть в логику работы вашего алгоритма.
Просто ошибся с кнопкой при составлении вопроса, а редактировать сообщения на этом движке видимо никак.
 
 
#11
21.04.2015 05:27:59
Выручайте, не могу понять почему не создаётся файл. Логику всех if then end проверил, о том что верно мне сообщают message(), но почему не создаётся файл я понять не могу.
В прошлый раз, вынеся команды по файлу за пределы циклы while всё сработало, но теперь чуть более сложная схема и опять всё по нулям:

Код
boom = {}
ttime = {}
is_run = 1
candle = {}
range = 20

function OnStop()
   is_run = 0
end

function OnClose()
   candle.o = 0
   candle.h = 0
   candle.l = 0
   candle.c = 0
end

function OnCleanUp()
   candle.o = 0
   candle.h = 0
   candle.l = 0
   candle.c = 0
end

function main()
   file = io.open("res.txt", "w+t")
   while is_run == 1 do
         candle.o = 0
         candle.h = 0
         candle.l = 0
         candle.c = 0
         g = getNumberOf("all_trades")-1
         for i=0, g do
            boom = getItem("all_trades", i)
            message("New Price get".." - "..tostring(boom.price),3)
            if candle.c == 0 then
               candle.o = boom.price
               candle.h = boom.price
               candle.l = boom.price
               candle.c = boom.price
            elseif boom.price > candle.h then
               message(tostring(candle.l+range).." ".."High test",1)
                  if boom.price >= (candle.l + range) then
                     candle.h = boom.price
                     candle.c = boom.price
                     message("New Candle from new HIGH".." "..tostring(candle.o).." "..tostring(candle.h).." "..tostring(candle.l).." "..tostring(candle.c),2)
                     strin = tostring(candle.o)..","..tostring(candle.h)..","..tostring(candle.l)..","..tostring(candle.c)
                     file:write(strin.."\n")
                     candle.o = 0
                     candle.h = 0
                     candle.l = 0
                     candle.c = 0
                  else
                     message("GET NEW HIGH",3)
                     candle.h = boom.price
                  end
            elseif boom.price < candle.l then
               message(tostring(candle.h-range).." ".."Low Test",1)
                  if boom.price <= (candle.h - range) then
                     candle.l = boom.price
                     candle.c = boom.price
                     message("New Candle from new LOW".." "..tostring(candle.o).." "..tostring(candle.h).." "..tostring(candle.l).." "..tostring(candle.c),2)
                     strin = tostring(candle.o)..","..tostring(candle.h)..","..tostring(candle.l)..","..tostring(candle.c)
                     file:write(strin.."\n")
                     candle.o = 0
                     candle.h = 0
                     candle.l = 0
                     candle.c = 0
                  else
                     message("GET NEW LOW",3)
                     candle.l = boom.price
                  end
            end
            i=i+1
            message("GET OUT FOR THE NEW ROUND",3)
            sleep(100)
         end
      
   end
   file:close()
end
ЧО НЕ ТАК ТО?
P.S. идея в том, чтобы получить из потока сделок range барчики, например.
 
 
#12
21.04.2015 07:36:28
Цитата
Николай Бехтерев пишет:
ЧО НЕ ТАК ТО?
Николай,Вам уже объяснили что информация в файле появится только после выполнения close() или flush()
В Вашем коде нету flush()  есть только close() который сработает в лучшем случае при остановке скрипта.
Рекомендация остается прежней, добавьте команду file:flush()  сразу после file:write
 
 
#13
21.04.2015 07:38:19
и уберите message слишком частое их использование приводит к тормозам. Используйте для диагностики PrintDbgStr
 
 
#14
21.04.2015 08:11:50
Цитата
Sergey Gorokhov пишет:
Цитата
Николай Бехтерев пишет:
ЧО НЕ ТАК ТО?
Николай,Вам уже объяснили что информация в файле появится только после выполнения close() или flush()
В Вашем коде нету flush() есть только close() который сработает в лучшем случае при остановке скрипта.
Рекомендация остается прежней, добавьте команду file:flush() сразу после file:write
Я понимаю, что после выполнения close()! Поэтому посмотрел, увидел, что набежало пару нужных строк, жму стоп, останавливается скрипт И ТИШИНА. Даже файл не создан. Хотя команды всё выполнены и должен быть файл как минимум с одной строкой...
 
 
#15
21.04.2015 08:31:11
Добрый день.
Попробуйте так:

Код
... 
file = io.open(getScriptPath() .."\\res.txt", "w+t") 
assert(file) 
...
 
 
#16
21.04.2015 10:17:53
Цитата
Michael Bulychev пишет:
Добрый день.
Попробуйте так:
Код
 ... 
file = io.open(getScriptPath() .."\\res.txt", "w+t") 
assert(file) 
...
в чём идея команды assert? прост не нашёл документацию на русском, а на инглише туманно))))
 
 
#17
21.04.2015 10:20:04
и да, сработало.
 
 
#18
21.04.2015 20:35:02
Функция assert() выдает сообщение об ошибке, если значение её первого параметра равно false (то есть nil или false).
из одного блога, нашёл гуглем за 30 сек. по запросу "Lua assert"

А "зарабобтало" у вас потому, что добавили getScriptPath()
Беда в том, что QUIK из скриптов создаёт файлы в том каталоге, из которого вы последний раз открывали како-либо файл (со скриптом, згружали настройки  - и т.п.), либо в каталоге самого квика.

При добавке getScriptPath() файл гарантированно создаётся рядом со скриптом - вот вы его и нашли. До этого он тоже создавался, но где - ответ даст только поиск по диску.
 
 
#19
22.04.2015 16:04:21
Цитата
swerg пишет:
Функция assert() выдает сообщение об ошибке, если значение её первого параметра равно false (то есть nil или false ).
из одного блога , нашёл гуглем за 30 сек. по запросу "Lua assert"

А "зарабобтало" у вас потому, что добавили getScriptPath()
Беда в том, что QUIK из скриптов создаёт файлы в том каталоге, из которого вы последний раз открывали како-либо файл (со скриптом, згружали настройки - и т.п.), либо в каталоге самого квика.

При добавке getScriptPath() файл гарантированно создаётся рядом со скриптом - вот вы его и нашли. До этого он тоже создавался, но где - ответ даст только поиск по диску.
Спасибо! :) А я кинулся на оф. сайт, а там документалка на русском недоступна и про гугл даже не вспомнил.
 
 
Страницы: 1
Читают тему
Техническая поддержка
+7 383 219 1606
© 2000–2024,
ARQA Technologies
Наверх