树形打印table

    1. function table.print (val)
    3.     local function loop (val, keyType, _indent)
    4.         _indent = _indent or 1
    5.         keyType = keyType or "string"
    6.         local res = ""
    7.         local indentStr = "     " -- 缩进空格
    8.         local indent = string.rep(indentStr, _indent)
    9.         local end_indent = string.rep(indentStr, _indent - 1)
    10.         local putline = function (...)
    11.             local arr = { res, ... }
    12.             for i = 1, #arr do
    13.                 if type(arr[i]) ~= "string" then arr[i] = tostring(arr[i]) end
    14.             end
    15.             res = table.concat(arr)
    16.         end
    18.         if type(val) == "table" then
    19.             putline("{ ")
    21.             if #val > 0 then
    22.                 local index = 0
    23.                 local block = false
    25.                 for i = 1, #val do
    26.                     local n = val[i]
    27.                     if type(n) == "table" or type(n) == "function" then
    28.                         block = true
    29.                         break
    30.                     end
    31.                 end
    33.                 if block then
    34.                     for i = 1, #val do
    35.                         local n = val[i]
    36.                         index = index + 1
    37.                         if index == 1 then putline("\n") end
    38.                         putline(indent, loop(n, type(i), _indent + 1), "\n")
    39.                         if index == #val then putline(end_indent) end
    40.                     end
    41.                 else
    42.                     for i = 1, #val do
    43.                         local n = val[i]
    44.                         index = index + 1
    45.                         putline(loop(n, type(i), _indent + 1))
    46.                     end
    47.                 end
    49.             else
    50.                 putline("\n")
    51.                 for k, v in pairs(val) do
    52.                     putline(indent, k, " = ", loop(v, type(k), _indent + 1), "\n")
    53.                 end
    54.                 putline(end_indent)
    55.             end
    57.             putline("}, ")
    58.         elseif type(val) == "string" then
    59.             val = string.gsub(val, "\a", "\\a") -- 响铃(BEL)
    60.             val = string.gsub(val, "\b", "\\b") -- 退格(BS),将当前位置移到前一列
    61.             val = string.gsub(val, "\f", "\\f") -- 换页(FF),将当前位置移到下页开头
    62.             val = string.gsub(val, "\n", "\\n") -- 换行(LF),将当前位置移到下一行开头
    63.             val = string.gsub(val, "\r", "\\r") -- 回车(CR),将当前位置移到本行开头
    64.             val = string.gsub(val, "\t", "\\t") -- 水平指标(HT),(调用下一个TAB位置)
    65.             val = string.gsub(val, "\v", "\\v") -- 垂直指标(VT)
    66.             putline("\"", val, "\", ")
    67.         elseif type(val) == "boolean" then
    68.             putline(val and "true, " or "false, ")
    69.         elseif type(val) == "function" then
    70.             putline(tostring(val), ", ")
    71.         elseif type(val) == "nil" then
    72.             putline("nil, ")
    73.         else
    74.             putline(val, ", ")
    75.         end
    77.         return res
    78.     end
    80.     local res = loop(val)
    81.     res = string.gsub(res, ",(%s*})", "%1")
    82.     res = string.gsub(res, ",(%s*)$", "%1")
    83.     res = string.gsub(res, "{%s+}", "{}")
    85.     return res
    86. end