КВИК знатный тормоз
КВИК тупо не выгружает таблицу всех сделок, тупит, глючит, виснет. На мышь не реагирует.
С каждой итерацией, направленной на совершенствование ПО, это ПО становится хреновее.
рано радовался https://smart-lab.ru/blog/623894.php
upd: причина найдена — не удалил лог файл odbc, он тормозил процесс, сорри.
Ins1 = «SiH0»
function main()
write = true
IsRun = true
— while IsRun do
s = getInfoParam («SERVERTIME»)
— if tonumber(string.sub(s,1,2)) == 23 and tonumber(string.sub(s,4,5)) > 49 and write then — если время сервера больше 23:50, окончание торгов
write_file();
write = false
— end
sleep(500)
— end
end
function write_file()
message(«Началась запись данных в файл», 1)
filename = "\\Si_"..tostring(getTradeDate().day).."_"..tostring(getTradeDate().month).."_"..tostring(getTradeDate().year)..".txt"
T = {}
T2 = {}
f = io.open(getScriptPath()..filename,«w»); — Создает файл в режиме «записи»
TradeDay = getTradeDate().day — сегодняшнее число, что бы не читать вчерашнюю вечернюю сессию
n = getNumberOf(«all_trades»)
if n > 0 then
for i=1, n-1, 1 do
if getItem(«all_trades», i).sec_code == Ins1 and TradeDay == getItem(«all_trades», i).datetime.day then
T.hour = getItem(«all_trades», i).datetime.hour
T.min = getItem(«all_trades», i).datetime.min
T.sec = getItem(«all_trades», i).datetime.sec
T.price = getItem(«all_trades», i).price
T.qty = getItem(«all_trades», i).qty
T.flags = bit.band(getItem(«all_trades», i).flags, 0x3);
f:write(tostring(T.hour)..":"..tostring(T.min)..":"..tostring(T.sec)..", "..tostring(T.price)..", "..tostring(T.qty)..", "..tostring(T.flags).."\n")
end
end
end
f:close();
message(«Запись данных завершена», 1)
end
function OnStop()
IsRun = false
end
function OnClose()
IsRun = false
end
а.2. Действительно поковырять настройки.