打开/关闭菜单
60
73
29
1.1K
武外梗百科
打开/关闭外观设置菜单
打开/关闭个人菜单
未登录
未登录用户的IP地址会在进行任意编辑后公开展示。

Module:Cite:修订间差异

武外梗百科 爱国好学自强图新的百科全书
无编辑摘要
无编辑摘要
 
(未显示同一用户的4个中间版本)
第2行: 第2行:


function p.include(frame)
function p.include(frame)
     local page = mw.text.trim(frame.args[1] or frame.args.page or "")
     local pageName = mw.text.trim(frame.args[1] or frame.args.page or "")
     local section = mw.text.trim(frame.args[2] or frame.args.section or "")
     local section = mw.text.trim(frame.args[2] or frame.args.section or "")
    if pageName == "" or section == "" then return "" end


    if page == "" or section == "" then
     local title = mw.title.new(pageName)
        return ""
     if not title or not title.exists then return "" end
    end
 
    -- 获取条目内容(沿用你给的方式)
     local title = mw.title.new(page)
     if not title or not title.exists then
        return ""
    end


     local content = title:getContent()
     local content = title:getContent()
     if not content then
     if not content then return "" end
        return ""
    end
 
    -- 转义标题名,防正则问题
    local safeSection = mw.ustring.gsub(
        section,
        "([%^%$%(%)%%%.%[%]%*%+%-%?])",
        "%%%1"
    )
 
    ----------------------------------------------------------------
    -- 1. 找目标标题,并记录级别
    ----------------------------------------------------------------
    local startPos, endPos, eqs =
        mw.ustring.find(content,
            "\n(=+)%s*" .. safeSection .. "%s*%1%s*\n"
        )


     -- 兼容标题在页面开头
     -- 更安全的 section 提取:用 string.find 避免 gmatch 边缘 bug
    local safeSection = mw.text.encode(section)  -- 或手动逃逸
    local pattern = "\n(==+)%s*" .. mw.ustring.gsub(safeSection, "([%-%[%]%.%(%)%*%+%?%^%$])", "%%%1") .. "%s*%1%s*\n"
    local startPos, endPos = content:find(pattern)
     if not startPos then
     if not startPos then
         startPos, endPos, eqs =
         pattern = "^(==+)%s*" .. mw.ustring.gsub(safeSection, "([%-%[%]%.%(%)%*%+%?%^%$])", "%%%1") .. "%s*%1%s*\n"
            mw.ustring.find(content,
        startPos, endPos = content:find(pattern)
                "^(=+)%s*" .. safeSection .. "%s*%1%s*\n"
            )
    end
 
    if not endPos or not eqs then
        return ""
     end
     end
    if not endPos then return "" end


     local level = mw.ustring.len(eqs)
     local level = endPos - startPos + 1  -- 简化 level 计算
 
     local after = content:sub(endPos + 1)
    ----------------------------------------------------------------
    -- 2. 从标题结束后,顺序扫描后续标题
    --    第一个 level' <= level 的标题即为终点
    ----------------------------------------------------------------
     local after = mw.ustring.sub(content, endPos + 1)
 
    local cutPos = nil
    for pos, marks in mw.ustring.gmatch(after, "()\n(=+)") do
        local nextLevel = mw.ustring.len(marks)
        if nextLevel <= level then
            cutPos = pos
            break
        end
    end


     local body
    -- 用 split 代替 gmatch,避免潜在无限
     if cutPos then
     local lines = {}
         body = mw.ustring.sub(after, 1, cutPos - 1)
     for line in (after .. "\n"):gmatch("(.-)\n") do
    else
         local eqs, name = line:match("^(%=+)%s*(.-)%s*%1%s*$")
         body = after
        if eqs and #eqs <= level then break end
         table.insert(lines, line)
     end
     end


     ----------------------------------------------------------------
     local body = table.concat(lines, "\n")
    -- 3. 维基百科帽注样式
     local hatnote = '<div style="color:#555;font-size:80%;font-style:italic;margin-bottom:0.5em;">&nbsp;&nbsp;&nbsp;&nbsp;主条目:[[' .. pageName .. ']]</div>'
    ----------------------------------------------------------------
     return hatnote .. "\n\n" .. body
     local hatnote =
        '<div class="hatnote">主条目:[[' .. page .. ']]</div>\n\n'
 
     return hatnote .. body
end
end


return p
return p