查看“模块:测试调用数据”的源代码

local p = {}
local db = mw.loadData('模块:角色属性数据')
local dataList = db.char_self_data
local elements = {"HP", "SP", "ATK", "DEF", "MAG", "MDEF", "CRT", "SPD"}

p["测试调用"] = function(frame)
    local query_num = frame.args['角色编号']
    local html = mw.html.create()  -- 创建 HTML 构建器对象

    -- 计算排名的函数
    local function numvalue(char, attr)
        -- 提取所有非 nil 的 Data_jp[attr] 值
        local attrValues = {}
        for _, data in ipairs(dataList) do
            if data.Data_jp[attr] then
                table.insert(attrValues, tonumber(data.Data_jp[attr]))
            end
        end

        -- 排序
        table.sort(attrValues, function(a, b) return a > b end)

        -- 找到 char 在排序后的 attrValues 中的位置
        local charValue = tonumber(char.Data_jp[attr])
        for i, value in ipairs(attrValues) do
            if value == charValue then
                return i
            end
        end
        return "无排名"  -- 如果找不到排名，返回"无排名"
    end

    -- 执行测试输出
    for _, char in ipairs(dataList) do
        if query_num == char.owner_order then
            html:tag('p'):wikitext("查询角色编号: " .. query_num):done()
            local tableHtml = mw.html.create('table'):addClass('wikitable'):css('width', '100%')

            tableHtml:tag('tr')
                :tag('th'):wikitext('属性'):done()
                :tag('th'):wikitext('Base'):done()
                :tag('th'):wikitext('MAX'):done()
                :done()

            for _, element in ipairs(elements) do
                local maxAttr = "MAX" .. element
                local maxAttrValue = char.Data_jp[maxAttr] or "数据不存在"
                
                local baseAttr = "Base" .. element
                local baseAttrValue = char.Data_jp[baseAttr] or "数据不存在"

                -- 获取排名
                local maxRank = numvalue(char, maxAttr)
                local baseRank = numvalue(char, baseAttr)

                tableHtml:tag('tr')
                    :tag('td'):wikitext(element):done()
                    :tag('td'):wikitext(baseAttrValue .. " (" .. baseRank .. ")"):done()
                    :tag('td'):wikitext(maxAttrValue .. " (" .. maxRank .. ")"):done()
                    :done()
            end

            html:node(tableHtml)
        end
    end

    return tostring(html)
end

return p