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

Module:PageSummary:修订间差异

武外梗百科 爱国好学自强图新的百科全书
无编辑摘要
无编辑摘要
第1行: 第1行:
local p = {}
-- 剥离 [[File:]] [[文件:]] [[Category:]] 等结构
local function stripImages(text)
    if not text or text == "" then return "" end
   
    text = text:gsub("%[%[(文件|Image|图像):", "[[File:")
          :gsub("%[%[(分类|Category):", "[[Category:")
   
    local out = {}
    local i = 1
    local len = #text
   
    while i <= len do
        if text:byte(i) == 91 and text:byte(i+1) == 91 then
            local chunk = text:sub(i, i+15)
            if chunk:match("^%[%[File:") or chunk:match("^%[%[Category:") then
                local depth = 1
                local j = i + 2
                while j <= len and depth > 0 do
                    if text:byte(j) == 91 and text:byte(j+1) == 91 then
                        depth = depth + 1
                        j = j + 2
                    elseif text:byte(j) == 93 and text:byte(j+1) == 93 then
                        depth = depth - 1
                        j = j + 2
                    else
                        j = j + 1
                    end
                end
                i = j
            else
                table.insert(out, text:sub(i, i+1))
                i = i + 2
            end
        else
            table.insert(out, text:sub(i, i))
            i = i + 1
        end
       
        if i > 1200 then break end
    end
   
    return table.concat(out)
end
-- 清理模板、引用、注释、标题、列表等
local function cleanFinal(text)
    if not text or text == "" then return "" end
   
    text = text
        :gsub("{{[^{}]*}}", "")
        :gsub("<ref.-</?ref[^>]*>", "")
        :gsub("<!%-%-.-%-%->", "")
        :gsub("\n==+[^=]+==+", " ")
        :gsub("\n%s*[*#:;]+", " ")
        :gsub("%s*\n%s*", " ")
        :gsub("%s+", " ")
   
    return mw.text.trim(text)
end
function p.getSummaryAndImage(frame)
function p.getSummaryAndImage(frame)
     local pageName = mw.text.trim(frame.args[1] or "")
     local pageName = mw.text.trim(frame.args[1] or "")
第71行: 第9行:
     if not content or content == "" then return "" end
     if not content or content == "" then return "" end
      
      
     local rawExcerpt = mw.ustring.sub(content, 1, 500) or ""
     local rawExcerpt = mw.ustring.sub(content, 1, 600) or "" -- 再加大范围
      
      
     -- 提取第一张图片(多命名空间支持)
     -- 严格提取图片文件名(只取有效部分)
     local firstImage = nil
     local firstImage = nil
     for _, prefix in ipairs({"File:", "文件:", "Image:", "图像:"}) do
     for _, prefix in ipairs({"File:", "文件:", "Image:", "图像:"}) do
         firstImage = mw.ustring.match(rawExcerpt, "%[%[" .. prefix .. "([^|%]]+)")
         firstImage = mw.ustring.match(rawExcerpt, "%[%[" .. prefix .. "([^|%]]+)%f[|%]]")
         if firstImage then break end
         if firstImage then break end
     end
     end
      
      
     if not firstImage then
     -- 如果匹配失败,不 fallback 到页面名,保持 nil
        local full = mw.ustring.match(rawExcerpt, "%[%[([^%]]+)%]%]")
        if full then
            local ns, name = mw.ustring.match(full, "^([^:]+):(.+)$")
            if ns and (ns:lower() == "file" or ns == "文件" or ns:lower() == "image" or ns == "图像") then
                firstImage = ns .. ":" .. name
            end
        end
    end
   
     if firstImage then
     if firstImage then
         firstImage = mw.text.trim(firstImage)
         firstImage = mw.text.trim(firstImage)
        -- 清理非法字符(防止编码损坏)
         firstImage = mw.ustring.gsub(firstImage, "[%z%s<>\"]+", "")
         firstImage = mw.ustring.gsub(firstImage, "[%z%s<>\"]+", "")
         if firstImage == "" then firstImage = nil end
        -- 太短或空字符串视为无效
         if mw.ustring.len(firstImage) < 5 then
            firstImage = nil
        end
     end
     end
      
      
第117行: 第50行:
     summary = mw.text.trim(summary)
     summary = mw.text.trim(summary)
      
      
    -- 构建 HTML
     local container = mw.html.create('div')
     local container = mw.html.create('div')
         :css('margin-bottom', '25px')
         :css('margin-bottom', '25px')
         :css('display', 'flow-root')
         :css('display', 'flow-root')
      
      
    -- 标题
     container:tag('div')
     container:tag('div')
         :css('font-size', '1.3em')
         :css('font-size', '1.3em')
第133行: 第68行:
         :css('font-size', '14px')
         :css('font-size', '14px')
      
      
     -- 只有当提取到有效图片文件名时才输出图片代码
     -- 只有当 firstImage 是有效字符串时才添加图片(避免任何泄漏)
     if firstImage and firstImage ~= "" then
     if firstImage and firstImage ~= "" and mw.ustring.find(firstImage, ":") then
         textDiv:wikitext('[[' .. firstImage .. '|120px|right|link=' .. pageName .. ']]')
         local imgWikitext = '[[' .. firstImage .. '|120px|right|link=' .. pageName .. ']]'
        textDiv:wikitext(imgWikitext)
     end
     end
      
      
第142行: 第78行:
     return tostring(container)
     return tostring(container)
end
end
return p