Список проголосовавших за комментарий "Happyseller, Код для сохранения стакана из quik.<br/> <br/> function formatdate(dt) <br/> return string.format("%04d-%02d-%02d", dt.year, dt.month, dt.day) <br/> end <br/> <br/> function formatdatetime(dt) <br/> return string.format("%04d-%02d-%02d %02d:%02d:%02d.%03d", dt.year, dt.month, dt.day, dt.hour, dt.min, dt.sec, dt.ms) <br/> end <br/> <br/> function formattime(dt) <br/> return string.format("%02d:%02d:%02d.%03d", dt.hour, dt.min, dt.sec, dt.ms) <br/> end <br/> <br/> function log_filename(dt) <br/> return «c:\\Program Files\\QUIK_AD\\Quik\\scripts\\»… formatdate(dt)… "_all_quote.csv" <br/> end <br/> <br/> function print_table(name, tbl) <br/> message(«table: »… name) <br/> for key in pairs(tbl) do <br/> local val = tbl[key] <br/> if type(val) == «table» then <br/> print_table(".."… key, val) <br/> else <br/> message(" "… key… ": "… val) <br/> end <br/> end <br/> message(«end table: »… name) <br/> end <br/> <br/> function format_cup(cup) <br/> --message(t) <br/> local s = "" <br/> <br/> if cup == nil then <br/> return s <br/> end <br/> <br/> if type(cup) == «table» then <br/> for n in pairs(cup) do <br/> local bar = cup[n] <br/> s = s… bar[«price»]… ":"… bar[«quantity»]… "," <br/> end <br/> end <br/> <br/> return s <br/> end <br/> <br/> codes = {} <br/> codes[«FESH»] = 1 <br/> codes[«VTBR»] = 1 <br/> codes[«YNDX»] = 1 <br/> codes[«MTLRP»] = 1 <br/> codes[«MAGN»] = 1 <br/> codes[«CHMF»] = 1 <br/> <br/> last_dt = nil <br/> <br/> function OnAllTrade(tbl) <br/> --message(«OnAllTrade») <br/> last_dt = tbl.datetime <br/> end <br/> <br/> function OnQuote(cls, code) <br/> if codes[code] ~= nil and last_dt ~= nil then <br/> --message(«OnQuote »… code) <br/> local tm = formattime(last_dt) <br/> <br/> local quote = getQuoteLevel2(cls, code) <br/> <br/> — bids <br/> local csv_line = tm… ";"… code… ";" <br/> if quote.bid_count ~= «0» then <br/> --print_table(«bid», quote.bid) <br/> csv_line = csv_line… format_cup(quote.bid) <br/> end <br/> csv_line = csv_line… ";" <br/> <br/> — offers <br/> if quote.offer_count ~= «0» then <br/> csv_line = csv_line… format_cup(quote.offer) <br/> end <br/> csv_line = csv_line… "\n" <br/> <br/> <br/> local file = io.open(log_filename(last_dt), «a») <br/> file:write(csv_line) <br/> io.close(file) <br/> end <br/> end <br/> <br/> stopped = false <br/> <br/> function OnStop(s) <br/> stopped = true <br/> end <br/> <br/> function main() <br/> for code in pairs(codes) do <br/> Subscribe_Level_II_Quotes(«TQBR», code) <br/> end <br/> <br/> while not stopped do <br/> sleep(1000) <br/> end <br/> <br/> for code in pairs(codes) do <br/> Unsubscribe_Level_II_Quotes(«TQBR», code) <br/> end <br/> end"