Lua数字转中文：进位读法的查表拼接

flowchart TD
A[数字逐位拆开] --> B[每位查数字表]
B --> C{这一位是零}
C -- 是 --> D[已拼了零就跳过 未拼补读零]
C -- 否 --> E[查数位表拼接进位单位]
D --> F[数字右移一位]
E --> F
F --> G{还有位吗}
G -- 是 --> B
G -- 否 --> H[输出中文读法]

 fx-numtocn

-- @file NumToCN.lua
-- 数字转中文 —— 进位读法的查表拼接

local NumToCN = {}

local CONST = {
    DIGITS        = { "零", "一", "二", "三", "四",
                      "五", "六", "七", "八", "九" },
    UNITS         = { "", "十", "百", "千", "万" },
    MAX_DIGITS    = 5,

    AUTOINC_BASE  = 1163000,
}

local _num       = 0
local _autoInc   = 0

local function GenID(prefix)
    _autoInc = _autoInc + 1
    return string.format("%s_%d", prefix or "NTC",
        CONST.AUTOINC_BASE + _autoInc)
end

local function ShowTip(msg)
    if msg and msg ~= "" then SL:ShowSystemTips(msg) end
end

function NumToCN.SetNum(n)
    _num = math.floor(math.max(0, n))
end

function NumToCN.Num()
    return _num
end

-- 逐位查表拼接：零位补读的完整账
function NumToCN.Convert()
    local n = _num
    if n == 0 then return CONST.DIGITS[1] end
    local out = ""
    local unit = 0
    local zeroPending = false
    while n > 0 do
        local d = n % 10
        if d == 0 then
            if not zeroPending and out ~= "" then
                zeroPending = true
            end
        else
            if zeroPending then
                out = CONST.DIGITS[1] .. out
                zeroPending = false
            end
            out = CONST.DIGITS[d] .. CONST.UNITS[unit + 1] .. out
        end
        n = math.floor(n / 10)
        unit = unit + 1
    end
    return out
end

SL:ScheduleOnce(function()
    SL:BindDebugButton("随机数", function()
        NumToCN.SetNum(math.random(0, 99999))
        ShowTip("随机数：" .. NumToCN.Num()
            .. " 读作 " .. NumToCN.Convert())
    end)
    ShowTip("技能已加载: 数字转中文 (调试按钮触发)")
end, 1.0)

function NumToCN.Unload()
    _num = 0
end

return NumToCN