Форум QUIK [тема: Разделитель разрядов в QTABLE_DOUBLE_TYPE]

Разделитель разрядов в QTABLE_DOUBLE_TYPE

Mon, 30 May 2016 16:57:11 +0300

Разделитель разрядов в QTABLE_DOUBLE_TYPE в форуме Программирование на языке Lua.
Ага, процесс пошёл... ))
Должен извиниться, в моём примере была допущена ошибка (не сразу проявилась), также слегка оптимизировал время выполнения для небольших чисел. Исправленный вариант (прежний прошу считать недействительным):

Скрытый текст
function mf(data) local t=1000 local n=data-data%0.01 local g0=(n%1)*100 local g1=(n-n%1)%t local n=data/t local g2=n-n%1 if g2==0 then return string.format("%d.%02d", g1,g0) else n=n/t local g3=n-n%1 g2=g2%t if g3==0 then return string.format("%d %03d.%02d", g2,g1,g0) else n=n/t local g4=n-n%1 g3=g3%t if g4==0 then return string.format("%d %03d %03d.%02d", g3,g2,g1,g0) else return string.format("%d %03d %03d %03d.%02d", g4,g3,g2,g1,g0) end end end end

Скрытый текст

Вроде всё работает. Всё же "простая арифметика" пошустрее обработки строк, хотя внешне и не столь элегантна и загадочна.))
30.05.2016 16:57:11, mikr.

Разделитель разрядов в QTABLE_DOUBLE_TYPE

Mon, 30 May 2016 13:19:12 +0300

Разделитель разрядов в QTABLE_DOUBLE_TYPE в форуме Программирование на языке Lua.
Другой вариант
30.05.2016 13:19:12, s_mike@rambler.ru.

Разделитель разрядов в QTABLE_DOUBLE_TYPE

Mon, 30 May 2016 12:10:29 +0300

Разделитель разрядов в QTABLE_DOUBLE_TYPE в форуме Программирование на языке Lua.
Да, спасибо, действительно короткое по записи решение. Мне мозгов сразу не хватило столь эффектно с шаблонами разобраться - получалось значительно длиннее. Но изначально я пошёл иным, "арифметическим" путём. По записи также длиннее, но выполняется процентов на 10-15 быстрее (не критично, и всё же...):

-- Вывод в "денежном формате"
-- (2 знака после запятой + разделитель разрядов, до 1 трлн.):
function mf(data)
local g0=data%1000
local n=data/1000
local g1=(n-n%1)%1000
n=n/1000
local g2=(n-n%1)%1000
n=n/1000
local g3=(n-n%1)%1000
if (g3==0)and(g2==0)and(g1==0) then
return string.format("%.2f", g0)
elseif (g3==0)and(g2==0) then
return string.format("%1.f %.2f", g1, g0)
elseif (g3==0) then
return string.format("%1.f %1.f %.2f", g2, g1, g0)
else
return string.format("%1.f %1.f %1.f %.2f", g3, g2, g1, g0)
end
end

А вообще, начинающему луа-программеру вот таких простых вещей и не хватает: как циферки разделить, как табличку вывести, чтобы можно было её на место подвинуть, размерчик подогнать, и при следующем пуске она "ни ногой" и т. п. - то, что в "купайле" делалось на автомате, было скрыто от глаз пользователя. Ваш же пример в документации с вращающимися "нунчаками" - на мой взгляд, не слишком удачен. Ну это так, мысли вслух... Ещё раз спасибо за решение.
30.05.2016 12:10:29, mikr.

Разделитель разрядов в QTABLE_DOUBLE_TYPE

Mon, 30 May 2016 07:19:02 +0300

Разделитель разрядов в QTABLE_DOUBLE_TYPE в форуме Программирование на языке Lua.
Здравствуйте,
Автоматическая установка разделителей для QLUA таблиц не поддерживается.
Вы можете самостоятельно добавить разделители следующей функцией:
====code====

function comma_value(n)
   local left,num,right = string.match(n,'^([^%d]*%d)(%d*)(.-)$')
   return left..(num:reverse():gsub('(%d%d%d)','%1 '):reverse())..right
end

=============
30.05.2016 07:19:02, Sergey Gorokhov.

Разделитель разрядов в QTABLE_DOUBLE_TYPE

Sat, 28 May 2016 19:58:40 +0300

Разделитель разрядов в QTABLE_DOUBLE_TYPE в форуме Программирование на языке Lua.
Разделитель разрядов (он же - "сепаратор" или просто "пробел") в QTABLE_DOUBLE_TYPE - забыли, не захотели или не смогли?
28.05.2016 19:58:40, mikr.