Module:Cite：修订间差异

（未显示同一用户的8个中间版本）

第1行：

local p = {}

function p.~~main~~(frame)

function p.include(frame)

local ~~page~~ = ~~frame~~.~~args~~.~~page or~~ frame.args[1]

local pageName = mw.text.trim(frame.args[1] or frame.args.page or "")

local section = ~~frame~~.~~args~~.~~section or~~ frame.args[2]

local section = mw.text.trim(frame.args[2] or frame.args.section or "")

if pageName == "" or section == "" then return "" end

~~if not page or not section then~~

local title = mw.title.new(pageName)

~~return "❌ 参数不足（需要 page 和 section）"~~

if not title or not title.exists then return "" end

~~end~~

local title = mw.title.new(~~page~~)

if not title then

return "~~❌ 条目不存在~~"

end

local content = title:getContent()

if not content then

if not content then return "" end

return "~~❌ 无法读取条目内容~~"

end

-- ~~匹配 == 段落 =~~=

-- 更安全的 section 提取：用 string.find 避免 gmatch 边缘 bug

local pattern = "==%s*" .. mw.ustring.gsub(~~section~~, "([%~~^%$%(%)~~%%%.%[%]%*%+%-%?])", "%%%1") .. "%s*=="

local safeSection = mw.text.encode(section) -- 或手动逃逸

local pattern = "\n(==+)%s*" .. mw.ustring.gsub(safeSection, "([%-%[%]%.%(%)%*%+%?%^%$])", "%%%1") .. "%s*%1%s*\n"

local startPos = ~~mw.ustring.~~find(~~content,~~ pattern)

local startPos, endPos = content:find(pattern)

if not startPos then

~~return~~ "~~❌ 未找到段落：~~" .. ~~section~~

pattern = "^(==+)%s*" .. mw.ustring.gsub(safeSection, "([%-%[%]%.%(%)%*%+%?%^%$])", "%%%1") .. "%s*%1%s*\n"

startPos, endPos = content:find(pattern)

end

if not endPos then return "" end

-- ~~截取段落正文~~

local level = endPos - startPos + 1 -- 简化 level 计算

local after = ~~mw.ustring.~~sub(~~content, startPos + #section~~ + 4)

local after = content:sub(endPos + 1)

~~local nextHeader = mw.ustring.find(after, "\n==[^=]"~~)

local ~~sectionText~~

-- 用 split 代替 gmatch，避免潜在无限

~~if nextHeader then~~

local lines = {}

~~sectionText~~ = ~~mw.ustring~~.~~sub(after, 1, nextHeader~~ - 1)

for line in (after .. "\n"):gmatch("(.-)\n") do

~~else~~

local eqs, name = line:match("^(%=+)%s*(.-)%s*%1%s*$")

~~sectionText = after~~

if eqs and #eqs <= level then break end

table.insert(lines, line)

end

~~sectionText~~ = mw.~~text.trim~~(~~sectionText~~)

local body = table.concat(lines, "\n")

local hatnote = '<div style="color:#555;font-size:80%;font-style:italic;margin-bottom:0.5em;">    主条目：[[' .. pageName .. ']]</div>'

~~return string~~.~~format(~~

return hatnote .. "\n\n" .. body

"''~~'原条目：[[%s~~]]'''\n\n%s",

~~page,~~

~~sectionText~~

)

end

return p