iCode – код параметра, выводимого в колонке

local function savetable ( tbl, fname, separator )
    local file, errmsg = io.open ( fname, "w" )
    if not file then error ( errmsg ) end

    local nr, nc = GetTableSize ( tbl )
    if not nr or not nc then error ( "Invalid table handler: " .. tostring ( tbl ) ) end

    if not separator then separator = "," end
    local replace = "\\" .. separator

    local data = { }
    for r = 1, nr do
        for c = 1, nc do
            local v = GetCell ( tbl, r, c )
            data[ #data + 1 ] = tostring ( v.value == 0 and v.image or tostring ( v.value ) ):gsub ( separator, replace )
            data[ #data + 1 ] = separator
        end
        data[ #data ] = "\n"
    end
    file:write ( table.concat ( data ) )
    file:close ( )
end

local function loadtable ( tbl, fname, separator )
    local file, errmsg = io.open ( fname, "r" )
    if not file then error ( errmsg ) end

    local nr, nc = GetTableSize ( tbl )
    if not nr or not nc then error ( "Invalid table handler: " .. tostring ( tbl ) ) end

    if not separator then separator = "," end
    local replace = "\\" .. separator
    local pattern =  "[^" .. separator .. "]*"

    local r, c= 0, 0
    for line in file:lines ( ) do
        c = 0
        r = r + 1
        for tok in line:gmatch ( pattern ) do
            col = col + 1
            tok = tok:gsub ( replace, separator )
            local num = tonumber ( tok )
            if num then
                SetCell ( tbl, r, c, tok, num )
            else
                SetCell ( tbl, r, c, tok )
            end
        end
    end
end