Владимир (Все сообщения пользователя)

T=AllocTable();   -- ID таблицы визуализации
SetTableNotificationCallback(T,E);
AddColumn(T,0,"",true,QTABLE_STRING_TYPE,0);
AddColumn(T,1,"Тикер",true,QTABLE_STRING_TYPE,8);
AddColumn(T,2,"Кол",true,QTABLE_STRING_TYPE,5);
AddColumn(T,3,"Курс",true,QTABLE_STRING_TYPE,10);
AddColumn(T,4,"%",true,QTABLE_STRING_TYPE,6);
AddColumn(T,5,"Цена",true,QTABLE_STRING_TYPE,10);
AddColumn(T,6,"%",true,QTABLE_STRING_TYPE,6);
CreateWindow(T);   -- создаем таблицу визуализации результатов
SetWindowPos(T,10,0,800,500);   -- положение и размер таблицы

local i;   -- параметр цикла
Clear(T);   -- обнуляем таблицу
for i=1,N do -- цикл по тикерам
 a[i][6]=InsertRow(T,-1);end;

for i=1,N do -- цикл по тикерам (прорисовка таблицы)
 s=a[i][4];   -- предыдущее и последнее значение курса
a[i][4]=tonumber(getParamEx(a[i][0][0],a[i][0][1],"LAST").param_value);

SetColor(T,a[i][6],-1,k,l,-1,-1);
SetCell(T,a[i][6],0,i);   -- нулевой столбец
SetCell(T,a[i][6],3,string.format("%1.2f",a[i][4]));

for l in F:lines() do    -- цикл по строкам файла данных
 _=_+1;   -- считана очередная строка
 s=l:sub(1,1);   -- первый символ строки может быть командой
 if s=="_" then loadstring(l:sub(2))();goto Q;end;
 if s=="-" then goto Q;end;    -- строка закомментирована
 i=l:find("\9");   -- разделитель кода класса и кода тикера
 if i==nil then goto q;end;   -- обязан быть во входном файле
 N=N+1;   -- добавлена строка нового тикера
 a[N]={};   -- общая информация по тикеру
 a[N][0]={};   -- справочная информация по тикеру
 a[N][0][0]=l:sub(1,i-1);   -- первым должен идти код класса тикера
 l=l:sub(i+1);   -- остаток строки из файла
 i=l:find("\9");   -- разделитель кода тикера и количества лотов
 if i==nil then goto q;end;
 a[N][0][1]=tonumber(l:sub(1,i-1));
 l=l:sub(i+1);   -- остаток строки из файла
 i=l:find("\9");   -- разделитель количества лотов и средней цены
 if i==nil then goto q;end;
 a[N][1]=tonumber(l:sub(1,i-1));
 l=l:sub(i+1);   -- остаток строки из файла
 i=l:find("\9");   -- разделитель последнего столбца
 if i==nil then goto q;end;
 a[N][2]=tonumber(l:sub(1,i-1));   -- средняя цена по всем лотам тикера
 if l:sub(i+1,1)~="#" then goto q;end;   -- контроль, что это именно наш файл
-- остальные данные добираем из ТТТ
 a[N][3]=0;   -- сумма затрат по тикеру
 a[N][0][2]=tonumber(getParamEx(a[N][0][0],a[N][0][1],"LOTSIZE").param_value);
 if a[N][0][2]==0 then a[N][0][2]=1;end;
 a[N][4]=tonumber(getParamEx(a[N][0][0],a[N][0][1],"LAST").param_value);
 a[N][5]=tonumber(getParamEx(a[N][0][0],a[N][0][1],"LASTCHANGE").param_value);
 a[N][6]=0;   -- код строки тикера в таблице визуализации
::Q::   -- метка эмуляции continue в цикле по строкам
end;   -- конец цикла по строкам входного файла
F:close();   -- закрываем входной файл

Сделка 3699451517 по заявке 23096891843 Покупка SNGS: 36.21*1=3621.0
Сделка 3700211939 по заявке 23101571931 Покупка NLMK: 208.34*1=2083.4
Сделка 3700217106 по заявке 23101608106 Продажа OZON: 3914.0*1=3914.0
Сделка 3700698360 по заявке 23104613958 Продажа RUAL: 41.125*10=4112.5
Сделка 3700712138 по заявке 23104724596 Покупка LKOH: 6147.0*1=6147.0

_AC="<торговый счёт>";   -- торговый счёт
_CC="<код клиента>";   -- код клиента
_M=1000;      -- количество свободной валюты
- это забугорные акции, торгующиеся за рубли
FQBR   AMD-RM   0   7012   #
FQBR   CSCO-RM   0   3789   #
FQBR   IBM-RM   1   9526   #
FQBR   INTC-RM   2   4154.33   #
FQBR   KHC-RM   0   2782   #
FQBR   TWTR-RM   3   4253   #
FQBR   UBER-RM   0   2973   #
FQBR   VTRS-RM   4   1183.17   #
- это рублёвые акции
TQBR   AFLT   1   70.44   #
TQBR   ALRS   0   141.9   #
TQBR   CHMF   1   1697   #
TQBR   GAZP   0   322.2   #
TQBR   GMKN   1   23152   #
TQBR   LKOH   2   6928   #
TQBR   MGNT   0   5303   #
TQBR   MTLR   15   138.75   #
TQBR   NLMK   1   275.7   #
TQBR   OZON   2   4362   #
TQBR   RASP   1   412.82   #
TQBR   RUAL   0   64.3   #
TQBR   SBER   1   333.33   #
TQBR   VSMO   0   24140   #
TQBR   VTBR   2   0.05129   #
TQBR   YNDX   0   4874.4   #
- акции с повышенным инвестиционным риском
TQPI   GRNT   50   0.6259   #
TQPI   SIBG   10   0.4305   #
TQPI   TUCH   42   1.684   #

function OnStop()   -- вызов по нажатию кнопки "Остановка скрипта"
 F:close();   -- закрываем лог-файл и сообщаем юзеру
 WriteDump();   -- записываем дамп состояния
 message("Файл результатов записан!");
 f=false;   -- признак окончания бесконечного цикла
 DestroyTable(T);   -- убиваем таблицу визуализаци и меню
 if m~=0 then DestroyTable(t);end;
 return 500;   -- чтобы заканчивал работу скрипта побыстрее
end;   -- конец функции OnStop()
function OnStop()      -- вызов по нажатию кнопки "Остановка скрипта"
end;            -- конец функции OnStop()

f=true;   -- признак работы скрипта (false - завершение)
N=0;   -- количество доступных тикеров
m=0;   -- флаг состояния контекстного меню
T=0;   -- ID таблицы визуализации результатов
t=0;   -- ID таблицы контекстного (всплывающего) меню
CC="?";   -- код клиента
AC="?";   -- торговый счёт

f=true;   -- признак работы скрипта (false - завершение)
N=0;   -- количество доступных тикеров

function main()   -- головная программа
 local i,j,k,l,s,_;   -- переменные для текущих надобностей
 F=io.open(getScriptPath().."//IN.TXT","r");
 i=F;   -- костыль от дебилизма с goto
::q::   -- метка аварийного выхода
 if i==nil then f=false;message("Файл бракованный, строка ".._);return;end;
 _=0;   -- счётчик строк входного файла
 for l in F:lines() do    -- цикл по строкам файла данных
  _=_+1;   -- считана очередная строка
  s=l:sub(1,1);   -- первый символ строки может быть командой
  if s=="_" then loadstring(l:sub(2))();goto Q;end;
  if s=="-" then goto Q;end;    -- строка закомментирована
  i=l:find("\1");   -- разделитель кода класса и кода тикера
  if i==nil then goto q;end;   -- обязан быть во входном файле
  N=N+1;   -- добавлена строка нового тикера
-- здесь должен быть парсер - пора определяться оо структурами
::Q::   -- метка эмуляции continue в цикле по строкам
 end;   -- конец цикла по строкам входного файла
 F:close();   -- закрываем входной файл
 TC=os.time()-1615141312;   -- идентификаторы транзакций
 F=io.open(getScriptPath().."//LOG.TXT","a");
 if F==nil then goto q;end;   -- не удалось открыть лог-файл - авария
 message("Скрипт запущен, акций: "..N);
 while f do       -- бесконечный цикл до остановки скрипта
  sleep(500);   -- величина самого быстрого прерывания по таймеру
 end;   -- конец бесконечного цикла
end;   -- конец функции main()

function OnStop()   -- вызов по нажатию кнопки "Остановка скрипта"
 F:close();   -- закрываем лог-файл и сообщаем юзеру
 WriteDump();   -- записываем дамп состояния
 message("Файл результатов записан!");
 f=false;   -- признак окончания бесконечного цикла
 return 500;   -- чтобы заканчивал работу скрипта побыстрее
end;   -- конец функции OnStop()

function WriteDump()   -- запись текущего состояния портфеля в файл
 local i;   -- дескриптор файла
 i=io.open(getScriptPath().."//OUT.TXT","w");
 if i==nil then return;end;   -- не удалось открыть файл - авария
 i:write("Нужно определиться со структурами данных файла и ОЗУ\n");
 i:close();   -- закрываем выходной файл
end;   -- конец функции WriteDump()

Как Иванушка-дурачок на Хабр приходил

Захотелось однажды Иванушке
Пообщаться с профессионалами,
Поделиться своими мыслишками,
Да послушать советы их мудрые.

И погуглил немного Иванушка,
И увидел он ссылки рекламные
На сообщество оф разработчиков
Высочайшепрофессиональное.

Дескать, люди собрались здесь умные,
Уникальнейшим делятся опытом,
Хорошо тут живётся рекламщикам,
Аналитикам и дизайнерам,

Что равны все на Хабре участники,
Что контент только высшего качества,
Что само всё собой регулируют,
В общем, враки масштабов невиданных!

Осмотрелся немного Иванушка,
Почитал публикации местные,
Отобрал для себя интересные
И попробовал прокомментировать.

Но софтина в сообществе строгая!
Ваньке ХРЯСЬ промеж глаз сообщением:
И куда же ты прёшь, деревенщина?
Прямо с рылом свиным, да в калашный ряд!

Сброд ваш в статусе премодерации,
Комментировать вам не положено!
Стань сперва полноправным участником,
Опосля уж писульки подкидывай!

Напиши-ка статью интересную,
Да полезную для разработчиков.
Если выйдет она из Песочницы,
То позволят тебе комментировать.

Написал наш Ванюша статеечку
Про сортир всё про свой, про мочилово.
Не понравилось судьям название
(а ведь Ванька цитировал Путина!)

Что же делать - поправил заглавие,
Пропустили статью модераторы,
День лежит, два лежит, пятый день лежит...
Никому она не интересная!

Посмотрел тогда Ваня статистику
Чем же дышит всё это сообщество?
Оказалось, оно с наслаждением
Интеллект обсуждает искусственный.

Ванька накопипастил заметочек
По такой популярной тематике,
И собрал он их в здоровенный файл
До восьми мегов текста чистого!

И нарезал из файла великого
Сразу три статьи, для надёжности.
Тем же часом пришло приглашение,
Стал Иван-дурак полноправый член!

Комментаторы хлынули сотнями!
Комментарии хлынули тыщами!
Рейтинг Ваньки в топ-300 вскарабкался
(это при миллионе участников)!

Благодарности даже посыпались
За добротный стиль изложения.
Но недолго длилась идиллия:
Написал наш Иван про сортир опять.

То не тёмная туча затучилася,
То не громы ужасные грянули,
То не полчища злобных ворогов -
Налетело на Ваньку сообщество!

Интеллект из них прямо так и прёт!
И кричат, и ногами топают!
Описание, дескать, нечёткое,
И неправильно, дескать, считает он,

Алгоритм его - говно полное,
И он сложность имеет квадратную,
Тесты не репрезентативные,
Интервалы не доверительные,

Алгоритм этот он украл,
И подправил его в hex-редакторе,
А подходы все эти изложены
В документах столетней давности.

Кроме этого, стало сообщество
Оскорбляться взводами и ротами,
Всё засыпали антилайками,
Флудом, визгами поросячьими.

Тычут пальцами в третий том Кнута,
Прочитать его строго наказывают,
Да исходники требуют в студию,
С псевдокодами и блок-схемами.

Но ведь Ванька Кнута уже читывал
Тридцать лет тому и три года как,
И придурков, к Кнуту отсылающих,
Он гонял уж не раз хворостиною.

И поторкал Ванюша сообщество,
Да носами, да прямо по тезисам!
Что же пишете здесь вы бредятину?
Да Кнута-то вы сами читали ли?

Пуще прежнего стадо озлобилось.
Так и гадят ему антилайками,
Так и лепят постами сердитыми
(про Кнута, правда, больше не вякают).

Опустило Ивана сообщество
Вплоть до полной ему невозможности
Ни одной статьи в Хабре написать
И один только коммент в суточки.

А потом пришли модераторы
И немедленно Ваньку забанили.
На неделю забанили целую,
За слова его нецензурные.

Ванька, правда, обычно цитировал
Перл министра свово иностранного.
Но министра на Хабре не банили
Потому как туда он не хаживал.

Пригорюнился Ваня немножечко,
Глядь - а снова открыта Песочница!
За заметку туда - полноправный член!
А заметок у Ваньки - НЕМЕРЯНО!

Двое суток Иван в бане просидел
(ведь заметка на премодерации)
И вот снова он пред сообществом,
Птица-феникс, из пепла восставшая!

Двое суток Иван полноправный член,
Но потом его снова забанили
Тоже, вроде, за нецензурщину,
Но на этот раз дан бессрочный бан!

Двое суток Иван в бане просидел,
Но заметка, опять же, сработала.
А ещё пару дней - и бан месячный.
А ещё пару дней - полноправный член!

В настоящее время одиннадцать
Полнокровных у Ваньки заметочек.
И сегодня он - полноправный член.
Неизвестно, каким станет к вечеру.

Но теперь у него алгоритм простой:
Захотел написать ты заметочку?
Так пошли ты кого-нить подалее,
Получи ты свой "Read Only",

И Песочница снова откроется!
Зашарашишь туда ты заметочку,
Пара дней - и ты вновь полноправный член!
А заметок у Ваньки - НЕМЕРЯНО!

Кто же в нынешней Битве Эпической
Завоюет Победу Великую?
Наш Иванушка или сообщество?
Не проверить ли тотализатором?

Ставки Ванькою принимаются
Прям на карту его инвалютную.
Ваши выигрыши безразмерные
Вам заплатит Ванюша (наверное).

f=true;   -- признак работы скрипта (false - завершение)
function main()   -- головная программа
 while f do       -- бесконечный цикл до остановки скрипта
  sleep(500);   -- величина самого быстрого прерывания по таймеру
 end;   -- конец бесконечного цикла
end;   -- конец функции main()

function OnStop()   -- вызов по нажатию кнопки "Остановка скрипта"
 f=false;   -- признак окончания бесконечного цикла
 return 500;   -- чтобы заканчивал работу скрипта побыстрее
end;   -- конец функции OnStop()

function main()   -- головная программа
 message("Hello, World!");
end;      -- конец функции main()