Scite Inplace Calculator

wiki

Script to execute an existing formula

function executeFormula()

    editor:BeginUndoAction()

    if not formula or formula =="" then 

        print('Please set formula first by ALT+SHIFT+F.')

        return

    end



    local expr = editor:GetSelText()

    local ss = editor.CurrentPos

    local se = editor.Anchor  

    if not expr or expr == "" then

        ss, se = editor:findtext("\-*[0-9]+[.0-9]*", SCFIND_REGEXP, ss)

    end

    

    if ss > se then ss,se = se, ss end

    local cs, ce

    if editor.SelectionIsRectangle then

        cs = editor.Column[ss]

        ce = editor.Column[se] 

        -- print (cs..' '..ce)

    end

    -- print (ss..' '..se)

      

    for m in editor:match("\-*[0-9]+[.0-9]*", SCFIND_REGEXP, ss) do

        local c = m.pos

        if c > se then break end

          

        local width = m.len

        local col = editor.Column[c]

        local chFlag

        -- print(col .. ' ' ..width ..'|'..cs..' '..ce)

        if not editor.SelectionIsRectangle or 

            (col >= cs and (col + width -1) <= ce) then 

            chFlag = true

        else

            chFlag = false      

        end

          

         if chFlag then

            expr = m.text

            local pt = string.find(expr, '.', 1, true)

            local acc, fmt

            if pt then

                acc = width - pt

                if acc < 0 then acc = 0 end

                fmt = "%"..width.."."..acc.."f"

            else

                fmt = "%"..width.."i"

            end

            -- print (expr .. "|" .. fmt.."|"..pt)

            expr = string.gsub(formula, '<>', expr)

            local f, msg = loadstring("return "..expr)

            if f then

                m:replace(string.format(fmt, f()))

            else

                print(">Execute Formula: cannot evaluate the formula")

            end

        end

    end

    editor:EndUndoAction()

end

Script to prompt for a formula and then execute the operation

local formula

local Init =loadlib('C:\\Program Files\\Scintilla Text Editor\\luawin.dll', 'Init')

Init()



function setFormula()

    local flag, msg = win.InputBox('Formula: <> as the place holder. e.g. <>*10')

    if flag and string.find(msg,'<>',1,true) then

        formula = msg

    end

    

    if formula then msg = formula else msg = "NONE" end

    print("FORMULA: "..msg)

    

    executeFormula()

end