LOCAL Опции

[Sirocco]

Решил я попробовать, что такое 56 сфера.Скажите мне как вы живете с local, которые не string?
я раньше проверял открыт ли local или нет. А теперь он всегда 0.и дату в нем хранить тоже нельзя.
local.txt = "2019/01/09"
он сразу делить пытается


ладно нашел dlocal. вроде хоть эта часть отпала.
тогда по аналогии надо еще
slocal.
plocal. - это как ref, только поименованный

однако все равно вопрос, куда сохранять что-то вроде

local. = "123.456.789"

пару часов угробил на разбитие числа на разряды.

[Sirocco]

Ладно, я разобрался. Это какая-то кривая версия сферы была. На работе кривая, дома нормальная. Я чуть с ума не сошел.
Ей плевать было на скобки, она все время считала что у меня hex.

Код

[FUNCTION f_math_2cathegory] //делит число на разряды
if strlen(<argn>) <= 3
    return <eval <argn>>
endif
local.argn = <argn>
if (<local.argn> < 0)
    local.mod = 1
    local.argn = <eval(abs(<argn>))>
endif
local.lng = <eval(strlen(<dlocal.argn>))>
local.cut = 3
WHILE <local.lng> > 0
    local.lng -= 3
    if <local.lng> <= 0
        local.cut = 3 + <local.lng>
        local.lng = 0
    endif
    local.char = "<STRSUB <local.lng> <local.cut> <dlocal.argn>>"
    if <local.emp> == 0
        local.cat = "<local.char>"
        local.emp = 1
    else
        local.cat = "<local.char>.<local.cat>"
    endif
ENDFOR
if 0<local.mod>
    local.cat = "-<local.cat>"
endif
return <local.cat>

Как написать раза в 3 меньше кода?