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

Module:PageSummary:修订间差异

武外梗百科 爱国好学自强图新的百科全书
无编辑摘要
无编辑摘要
第1行: 第1行:
local p = {}
local p = {}


-- ────────────────────────────────────────────────
-- 剥离 [[File:]] [[文件:]] [[Category:]] 等,防止出现在摘要文本中
-- 剥离图片、分类等 [[File:]] [[Category:]] 结构,避免出现在摘要中
-- ────────────────────────────────────────────────
local function stripImages(text)
local function stripImages(text)
     if not text or text == "" then return "" end
     if not text or text == "" then return "" end
      
      
     -- 统一常见命名空间写法,减少匹配分支
     -- 统一常见前缀写法,方便后续匹配
     text = text:gsub("%[%[(文件|File|Image|图像):", "[[File:")
     text = text:gsub("%[%[(文件|Image|图像):", "[[File:")
           :gsub("%[%[(分类|Category):", "[[Category:")
           :gsub("%[%[(分类|Category):", "[[Category:")
      
      
第19行: 第17行:
             local chunk = text:sub(i, i+15)
             local chunk = text:sub(i, i+15)
             if chunk:match("^%[%[File:") or chunk:match("^%[%[Category:") then
             if chunk:match("^%[%[File:") or chunk:match("^%[%[Category:") then
                -- 跳过整段嵌套链接 [[ ... ]]
                 local depth = 1
                 local depth = 1
                 local j = i + 2
                 local j = i + 2
第33行: 第30行:
                     end
                     end
                 end
                 end
                 i = j -- 跳到 ]] 之后或文本末尾
                 i = j
             else
             else
                -- 普通内部链接,保留
                 table.insert(out, "[[")
                 table.insert(out, "[[")
                 i = i + 2
                 i = i + 2
             end
             end
         else
         else
             table.insert(out, text:sub(i,i))
             table.insert(out, text:sub(i, i))
             i = i + 1
             i = i + 1
         end
         end
          
          
         if i > 1200 then break end -- 极端安全阀
         if i > 1200 then break end
     end
     end
      
      
第50行: 第46行:
end
end


-- ────────────────────────────────────────────────
-- 清理模板、引用、注释、标题、列表等
-- 清理模板、参考文献、标题、列表等,得到纯文本摘要
-- ────────────────────────────────────────────────
local function cleanFinal(text)
local function cleanFinal(text)
     if not text or text == "" then return "" end
     if not text or text == "" then return "" end
      
      
     text = text
     text = text
         :gsub("{{[^{}]*}}", "")                 -- 模板(简单版,够用)
         :gsub("{{[^{}]*}}", "")
         :gsub("<ref.-</?ref[^>]*>", "")         -- 参考文献
         :gsub("<ref.-</?ref[^>]*>", "")
         :gsub("<!%-%-.-%-%->", "")               -- HTML 注释
         :gsub("<!%-%-.-%-%->", "")
         :gsub("\n==+[^=]+==+", " ")             -- 各级标题
         :gsub("\n==+[^=]+==+", " ")
         :gsub("\n%s*[*#:;]+", " ")               -- 列表、定义列表
         :gsub("\n%s*[*#:;]+", " ")
         :gsub("%s*\n%s*", " ")                   -- 所有换行 → 单个空格
         :gsub("%s*\n%s*", " ")
         :gsub("%s+", " ")                       -- 压缩连续空格
         :gsub("%s+", " ")
      
      
     return mw.text.trim(text)
     return mw.text.trim(text)
end
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 "")
第81行: 第72行:
     if not content or content == "" then return "" end
     if not content or content == "" then return "" end
      
      
    -- 安全取前 300 个 unicode 字符(避免字节截断中文)
     local rawExcerpt = mw.ustring.sub(content, 1, 300) or ""
     local rawExcerpt = mw.ustring.sub(content, 1, 300)
      
      
     -- 提取第一张图片(优先标准写法)
     -- 提取第一张图片 - 分开匹配各种常见写法,减少编码问题
     local firstImage = mw.ustring.match(rawExcerpt, "%[%[(File|文件|Image|图像):([^|%]]+)")
     local firstImage =
        mw.ustring.match(rawExcerpt, "%[%[File:([^|%]]+)") or
        mw.ustring.match(rawExcerpt, "%[%[文件:([^|%]]+)") or
        mw.ustring.match(rawExcerpt, "%[%[Image:([^|%]]+)") or
        mw.ustring.match(rawExcerpt, "%[%[图像:([^|%]]+)")
      
      
     -- 备选:更宽松匹配,但只接受文件类
     -- 备用方案:抓完整链接再校验命名空间
     if not firstImage then
     if not firstImage then
         local candidate = mw.ustring.match(rawExcerpt, "%[%[([^|%]]+)%]")
         local full = mw.ustring.match(rawExcerpt, "%[%[([^%]]+)%]%]")
         if candidate then
         if full then
             local ns = candidate:match("^([^:]+):")
             local ns, name = mw.ustring.match(full, "^([^:]+):(.+)$")
             if ns and (ns:lower() == "file" or ns == "文件" or ns:lower() == "image" or ns == "图像") then
             if ns and (ns == "File" or ns == "文件" or ns == "Image" or ns == "图像") then
                 firstImage = candidate
                 firstImage = ns .. ":" .. name
             end
             end
         end
         end
    end
   
    -- 额外清理文件名(去除隐藏字符、两端空格等)
    if firstImage then
        firstImage = mw.text.trim(firstImage or "")
        firstImage = mw.ustring.gsub(firstImage, "^[%z%s]+", "")
        firstImage = mw.ustring.gsub(firstImage, "[%z%s]+$", "")
     end
     end
      
      
第108行: 第109行:
         summary = mw.ustring.sub(summary, 1, targetLen) or ""
         summary = mw.ustring.sub(summary, 1, targetLen) or ""
          
          
        -- 尽量避免截在中文单词/句子中间
         local rev = summary:reverse()
         local rev = summary:reverse()
         local lastBreak = rev:find("[ %s%p,。!?;:,…]") or 1
         local lastBreak = rev:find("[ %s%p,。!?;:,…]") or 1
第120行: 第120行:
     summary = mw.text.trim(summary)
     summary = mw.text.trim(summary)
      
      
     -- ── HTML 输出 ───────────────────────────────────
     -- 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行: 第132行:
         :wikitext('[[' .. pageName .. ']]')
         :wikitext('[[' .. pageName .. ']]')
      
      
    -- 内容区(右浮图 + 文字)
     local textDiv = container:tag('div')
     local textDiv = container:tag('div')
         :css('line-height', '1.6')
         :css('line-height', '1.6')
第140行: 第138行:
      
      
     if firstImage and firstImage ~= "" then
     if firstImage and firstImage ~= "" then
        firstImage = mw.text.trim(firstImage)
         local imgWikitext = '[[' .. firstImage .. '|120px|right|link=' .. pageName .. ']]'
         local img = '[[' .. firstImage .. '|120px|right|link=' .. pageName .. ']]'
         textDiv:wikitext(imgWikitext)
         textDiv:wikitext(img)
     end
     end