Module:Cite - 版本历史

2026年2月17日 (二) 08:50 Zelda110

2026-02-17T08:50:57Z

←上一版本		2026年2月17日 (二) 16:50的版本
第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")~~

	~~-- 找目标标题~~
	~~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,~~ "^(=+)%s" .. safeSection .. "%s%1%s*\n")		startPos, endPos = content:find(pattern)
	end		end
			if not endPos then return "" end

	~~if not~~ endPos ~~or not eqs then~~		local level = endPos - startPos + 1 -- 简化 level 计算
	~~return ""~~		local after = content:sub(endPos + 1)
	~~end~~

	~~local level = mw.ustring.len(eqs)~~		-- 用 split 代替 gmatch，避免潜在无限

	-- ~~从标题结束后开始逐行扫描~~
	~~local after = mw.ustring.sub(content, endPos + 1)~~
	local lines = {}		local lines = {}
	for line in mw.~~ustring~~.gmatch(~~after,~~ "([^\n]*)\n?") do		for line in (after .. "\n"):gmatch("(.-)\n") do
	~~-- 检查是否是标题行~~		local eqs, name = line:match("^(%=+)%s(.-)%s%1%s*$")
	local ~~m_eqs~~, ~~m_name~~ = ~~mw.ustring.~~match(~~line,~~ "^(=+)%s(.-)%s%1%s*$")		if eqs and #eqs <= level then break end
	if ~~m_eqs then~~
	~~local nextLevel = mw.ustring.len(m_eqs)~~
	~~if nextLevel~~ <= level then
	break ~~-- 遇到同级或更高级标题就停止~~
	~~end~~
	end
	table.insert(lines, line)		table.insert(lines, line)
	end		end

	local body = table.concat(lines, "\n")		local body = table.concat(lines, "\n")
			local hatnote = '<div style="color:#555;font-size:80%;font-style:italic;margin-bottom:0.5em;">    主条目：[[' .. pageName .. ']]</div>'
	~~----------------------------------------------------------------~~
	~~-- 帽注样式：灰色、斜体、小字号、开头空一点~~
	~~----------------------------------------------------------------~~
	local hatnote = '<div style="color:#555;font-size:80%;font-style:italic;margin-bottom:0.5em;">    主条目：[[' .. ~~page~~ .. ']]</div>'

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

	return p		return p

2026年2月10日 (二) 03:20 Zelda110

2026-02-10T03:20:49Z

←上一版本		2026年2月10日 (二) 11:20的版本
第57行：		第57行：
	-- 帽注样式：灰色、斜体、小字号、开头空一点		-- 帽注样式：灰色、斜体、小字号、开头空一点
	----------------------------------------------------------------		----------------------------------------------------------------
	local hatnote = '<div style="color:#555;font-size:90%;font-style:italic;margin-bottom:0.5em;">  主条目：[[' .. page .. ']]</div>'		local hatnote = '<div style="color:#555;font-size:80%;font-style:italic;margin-bottom:0.5em;">    主条目：[[' .. page .. ']]</div>'

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

2026年2月10日 (二) 03:20 Zelda110

2026-02-10T03:20:10Z

←上一版本		2026年2月10日 (二) 11:20的版本
第57行：		第57行：
	-- 帽注样式：灰色、斜体、小字号、开头空一点		-- 帽注样式：灰色、斜体、小字号、开头空一点
	----------------------------------------------------------------		----------------------------------------------------------------
	local hatnote = '<div style="color:#555;font-size:90%;font-style:italic;margin-bottom:0.5em;"> 主条目：[[' .. page .. ']]</div>'		local hatnote = '<div style="color:#555;font-size:90%;font-style:italic;margin-bottom:0.5em;">  主条目：[[' .. page .. ']]</div>'

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

2026年2月9日 (一) 14:27 Zelda110

2026-02-09T14:27:37Z

←上一版本		2026年2月9日 (一) 22:27的版本
第54行：		第54行：
	local body = table.concat(lines, "\n")		local body = table.concat(lines, "\n")

	-- ~~维基帽注样式~~		----------------------------------------------------------------
	local hatnote = '<div ~~class~~="~~hatnote~~">主条目：[[' .. page .. ']]</div>~~\n\n~~'		-- 帽注样式：灰色、斜体、小字号、开头空一点
			----------------------------------------------------------------
			local hatnote = '<div style="color:#555;font-size:90%;font-style:italic;margin-bottom:0.5em;"> 主条目：[[' .. page .. ']]</div>'

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

	return p		return p

2026年2月9日 (一) 14:21 Zelda110

2026-02-09T14:21:20Z

←上一版本		2026年2月9日 (一) 22:21的版本
第9行：		第9行：
	end		end

	~~-- 获取条目内容（沿用你给的方式）~~
	local title = mw.title.new(page)		local title = mw.title.new(page)
	if not title or not title.exists then		if not title or not title.exists then
第20行：		第19行：
	end		end

	-- ~~转义标题名，防正则问题~~		-- 转义标题名
	local safeSection = mw.ustring.gsub(		local safeSection = mw.ustring.gsub(section, "([%^%$%(%)%%%.%[%]%*%+%-%?])", "%%%1")
	section,
	"([%^%$%(%)%%%.%[%]%*%+%-%?])",
	"%%%1"
	)

	--~~--------------------------------------------------------------~~		-- 找目标标题
	~~-- 1. 找目标标题，并记录级别~~
	~~----------------------------------------------------------------~~
	local startPos, endPos, eqs =		local startPos, endPos, eqs =
	mw.ustring.find(content,		mw.ustring.find(content, "\n(=+)%s" .. safeSection .. "%s%1%s*\n")
	"\n(=+)%s" .. safeSection .. "%s%1%s*\n"
	)

	~~-- 兼容标题在页面开头~~
	if not startPos then		if not startPos then
	startPos, endPos, eqs =		startPos, endPos, eqs =
	mw.ustring.find(content,		mw.ustring.find(content, "^(=+)%s" .. safeSection .. "%s%1%s*\n")
	"^(=+)%s" .. safeSection .. "%s%1%s*\n"
	)
	end		end

第49行：		第37行：
	local level = mw.ustring.len(eqs)		local level = mw.ustring.len(eqs)

	--~~--------------------------------------------------------------~~		-- 从标题结束后开始逐行扫描
	~~-- 2. 从标题结束后，顺序扫描后续标题~~
	~~-- 第一个 level' <= level 的标题即为终点~~
	~~----------------------------------------------------------------~~
	local after = mw.ustring.sub(content, endPos + 1)		local after = mw.ustring.sub(content, endPos + 1)
			local lines = {}
	local ~~cutPos~~ = ~~nil~~		for line in mw.ustring.gmatch(after, "([^\n]*)\n?") do
	for ~~pos, marks~~ in mw.ustring.gmatch(after, "()\n(=+)") do		-- 检查是否是标题行
	local nextLevel = mw.ustring.len(~~marks~~)		local m_eqs, m_name = mw.ustring.match(line, "^(=+)%s(.-)%s%1%s*$")
	if nextLevel <= level then		if m_eqs then
	~~cutPos = pos~~		local nextLevel = mw.ustring.len(m_eqs)
	~~break~~		if nextLevel <= level then
			break -- 遇到同级或更高级标题就停止
			end
	end		end
			table.insert(lines, line)
	end		end

	local ~~body~~		local body = table.concat(lines, "\n")
	~~if cutPos then~~
	body = mw.~~ustring.sub~~(~~after~~, ~~1, cutPos - 1~~)
	~~else~~
	~~body = after~~
	~~end~~

	--~~--------------------------------------------------------------~~		-- 维基帽注样式
	~~-- 3. 维基百科帽注样式~~		local hatnote = '<div class="hatnote">主条目：[[' .. page .. ']]</div>\n\n'
	~~----------------------------------------------------------------~~
	local hatnote =
	'<div class="hatnote">主条目：[[' .. page .. ']]</div>\n\n'

	return hatnote .. body		return hatnote .. body

2026年2月9日 (一) 14:18 Zelda110

2026-02-09T14:18:17Z

←上一版本		2026年2月9日 (一) 22:18的版本
第9行：		第9行：
	end		end

	-- ~~和你给的示例一致：直接用 title + getContent~~		-- 获取条目内容（沿用你给的方式）
	local title = mw.title.new(page)		local title = mw.title.new(page)
	if not title or not title.exists then		if not title or not title.exists then
第20行：		第20行：
	end		end

	-- ~~转义标题名（防正则炸）~~		-- 转义标题名，防正则问题
	local safeSection = mw.ustring.gsub(		local safeSection = mw.ustring.gsub(
	section,		section,
第28行：		第28行：

	----------------------------------------------------------------		----------------------------------------------------------------
	-- 1. ~~匹配任意级别标题，并捕获 '=' 数量~~		-- 1. 找目标标题，并记录级别
	----------------------------------------------------------------		----------------------------------------------------------------
	~~local headerPattern = "\n(=+)%s" .. safeSection .. "%s%1%s*\n"~~
	local startPos, endPos, eqs =		local startPos, endPos, eqs =
	mw.ustring.find(content, ~~headerPattern~~)		mw.ustring.find(content,
			"\n(=+)%s" .. safeSection .. "%s%1%s*\n"
			)

	-- ~~兼容标题在页面最开头~~		-- 兼容标题在页面开头
	if not startPos then		if not startPos then
	~~headerPattern = "^(=+)%s" .. safeSection .. "%s%1%s*\n"~~
	startPos, endPos, eqs =		startPos, endPos, eqs =
	mw.ustring.find(content, ~~headerPattern~~)		mw.ustring.find(content,
			"^(=+)%s" .. safeSection .. "%s%1%s*\n"
			)
	end		end

第48行：		第50行：

	----------------------------------------------------------------		----------------------------------------------------------------
	-- 2. ~~从标题结束后开始，找下一个“级别 ≤ 当前级别”的标题~~		-- 2. 从标题结束后，顺序扫描后续标题
			-- 第一个 level' <= level 的标题即为终点
	----------------------------------------------------------------		----------------------------------------------------------------
	local after = mw.ustring.sub(content, endPos + 1)		local after = mw.ustring.sub(content, endPos + 1)

	local ~~nextHeaderPattern~~ = ~~"\n={1~~,~~" .. level~~ .. "~~}[^=].-~~\n"		local cutPos = nil
	local ~~nextStart~~ = mw.ustring.~~find~~(~~after, nextHeaderPattern~~)		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		local body
	if ~~nextStart~~ then		if cutPos then
	body = mw.ustring.sub(after, 1, ~~nextStart~~ - 1)		body = mw.ustring.sub(after, 1, cutPos - 1)
	else		else
	body = after		body = after
第63行：		第72行：

	----------------------------------------------------------------		----------------------------------------------------------------
	-- 3. ~~维基百科式帽注 + 原样正文~~		-- 3. 维基百科帽注样式
	----------------------------------------------------------------		----------------------------------------------------------------
	local hatnote =		local hatnote =

2026年2月9日 (一) 13:54 Zelda110

2026-02-09T13:54:27Z

←上一版本		2026年2月9日 (一) 21:54的版本
第9行：		第9行：
	end		end

	-- ~~获取标题对象（和你给的代码一致）~~		-- 和你给的示例一致：直接用 title + getContent
	local title = mw.title.new(page)		local title = mw.title.new(page)
	if not title or not title.exists then		if not title or not title.exists then
第15行：		第15行：
	end		end

	~~-- 获取完整 wikitext~~
	local content = title:getContent()		local content = title:getContent()
	if not content then		if not content then
第21行：		第20行：
	end		end

	-- ~~转义段落名，防止正则炸~~		-- 转义标题名（防正则炸）
	local safeSection = mw.ustring.gsub(		local safeSection = mw.ustring.gsub(
	section,		section,
第28行：		第27行：
	)		)

	-- ~~只匹配二级标题：== 段落 =~~=		----------------------------------------------------------------
	local headerPattern = "\n==%s" .. safeSection .. "%s==%s*\n"		-- 1. 匹配任意级别标题，并捕获 '=' 数量
	local startPos, endPos = mw.ustring.find(content, headerPattern)		----------------------------------------------------------------
			local headerPattern = "\n(=+)%s" .. safeSection .. "%s%1%s*\n"
			local startPos, endPos, eqs =
			mw.ustring.find(content, headerPattern)

	-- ~~兼容段落在页面开头的情况~~		-- 兼容标题在页面最开头
	if not startPos then		if not startPos then
	headerPattern = "^==%s" .. safeSection .. "%s==%s*\n"		headerPattern = "^(=+)%s" .. safeSection .. "%s%1%s*\n"
	startPos, endPos = mw.ustring.find(content, headerPattern)		startPos, endPos, eqs =
			mw.ustring.find(content, headerPattern)
	end		end

	if not endPos then		if not endPos or not eqs then
	return ""		return ""
	end		end

	-- ~~从标题结束后开始~~		local level = mw.ustring.len(eqs)

			----------------------------------------------------------------
			-- 2. 从标题结束后开始，找下一个“级别 ≤ 当前级别”的标题
			----------------------------------------------------------------
	local after = mw.ustring.sub(content, endPos + 1)		local after = mw.ustring.sub(content, endPos + 1)

	-~~- 找下一个二级标题~~		local nextHeaderPattern = "\n={1," .. level .. "}[^=].-\n"
	local ~~nextHeader~~ = mw.ustring.find(after, ~~"\n==[^=]"~~)		local nextStart = mw.ustring.find(after, nextHeaderPattern)

	local body		local body
	if ~~nextHeader~~ then		if nextStart then
	body = mw.ustring.sub(after, 1, ~~nextHeader~~ - 1)		body = mw.ustring.sub(after, 1, nextStart - 1)
	else		else
	body = after		body = after
	end		end

	-- ~~原样返回，不清洗、不 trim~~		----------------------------------------------------------------
	~~return string~~.~~format(~~		-- 3. 维基百科式帽注 + 原样正文
	"''~~'原条目：[[%s~~]]~~'''~~\n\n~~%s",~~		----------------------------------------------------------------
	~~page,~~		local hatnote =
	body		'<div class="hatnote">主条目：[[' .. page .. ']]</div>\n\n'
	)
			return hatnote .. body
	end		end

	return p		return p

2026年2月9日 (一) 13:50 Zelda110

2026-02-09T13:50:20Z

←上一版本		2026年2月9日 (一) 21:50的版本
第1行：		第1行：
	local p = {}		local p = {}

	function p.~~main~~(frame)		function p.include(frame)
	local page = ~~frame~~.~~args~~.~~page or~~ frame.args[1]		local page = 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 ~~not~~ page or ~~not~~ section then		if page == "" or section == "" then
	return "~~❌ 参数不足（需要 page 和 section）~~"		return ""
	end		end

			-- 获取标题对象（和你给的代码一致）
	local title = mw.title.new(page)		local title = mw.title.new(page)
	if not title or not title.exists then		if not title or not title.exists then
	return "~~❌ 条目不存在：~~" ~~.. page~~		return ""
	end		end

			-- 获取完整 wikitext
	local content = title:getContent()		local content = title:getContent()
	if not content then		if not content then
	return "~~❌ 无法读取条目内容~~"		return ""
	end		end

	-- ~~转义段落名中的特殊字符~~		-- 转义段落名，防止正则炸
	local safeSection = mw.ustring.gsub(		local safeSection = mw.ustring.gsub(
	section,		section,
第26行：		第28行：
	)		)

	-- 匹配 == 段落 ==		-- 只匹配二级标题：== 段落 ==
	local ~~pattern~~ = "==%s" .. safeSection .. "%s=="		local headerPattern = "\n==%s" .. safeSection .. "%s==%s*\n"
	local startPos, endPos = mw.ustring.find(content, ~~pattern~~)		local startPos, endPos = mw.ustring.find(content, headerPattern)

			-- 兼容段落在页面开头的情况
	if not startPos then		if not startPos then
	~~return~~ "~~❌ 未找到段落：~~" .. ~~section~~		headerPattern = "^==%s" .. safeSection .. "%s==%s*\n"
			startPos, endPos = mw.ustring.find(content, headerPattern)
	end		end

	-- ~~从标题结束后开始截取~~		if not endPos then
			return ""
			end

			-- 从标题结束后开始
	local after = mw.ustring.sub(content, endPos + 1)		local after = mw.ustring.sub(content, endPos + 1)

第40行：		第48行：
	local nextHeader = mw.ustring.find(after, "\n==[^=]")		local nextHeader = mw.ustring.find(after, "\n==[^=]")

	local ~~sectionText~~		local body
	if nextHeader then		if nextHeader then
	~~sectionText~~ = mw.ustring.sub(after, 1, nextHeader - 1)		body = mw.ustring.sub(after, 1, nextHeader - 1)
	else		else
	~~sectionText~~ = after		body = after
	end		end

	~~sectionText = mw.text.~~trim~~(sectionText)~~		-- 原样返回，不清洗、不 trim

	return string.format(		return string.format(
	"'''原条目：[[%s]]'''\n\n%s",		"'''原条目：[[%s]]'''\n\n%s",
	page,		page,
	~~sectionText~~		body
	)		)
	end		end

	return p		return p

2026年2月9日 (一) 13:23 Zelda110

2026-02-09T13:23:27Z

←上一版本		2026年2月9日 (一) 21:23的版本
第10行：		第10行：

	local title = mw.title.new(page)		local title = mw.title.new(page)
	if not title then		if not title or not title.exists then
	return "❌ ~~条目不存在~~"		return "❌ 条目不存在：" .. page
	end		end

第18行：		第18行：
	return "❌ 无法读取条目内容"		return "❌ 无法读取条目内容"
	end		end

			-- 转义段落名中的特殊字符
			local safeSection = mw.ustring.gsub(
			section,
			"([%^%$%(%)%%%.%[%]%*%+%-%?])",
			"%%%1"
			)

	-- 匹配 == 段落 ==		-- 匹配 == 段落 ==
	local pattern = "==%s" .. mw.~~ustring~~.~~gsub(section,~~ "~~([%^%$%(%)%%%.%[%]~~%~~%+%-%?])~~", ~~"%%%1")~~ .. ~~"%s*=="~~		local pattern = "==%s" .. safeSection .. "%s=="
			local startPos, endPos = mw.ustring.find(content, pattern)

	~~local startPos = mw.ustring.find(content, pattern)~~
	if not startPos then		if not startPos then
	return "❌ 未找到段落：" .. section		return "❌ 未找到段落：" .. section
	end		end

	-- ~~截取段落正文~~		-- 从标题结束后开始截取
	local after = mw.ustring.sub(content, ~~startPos~~ + ~~#section + 4~~)		local after = mw.ustring.sub(content, endPos + 1)

			-- 找下一个二级标题
	local nextHeader = mw.ustring.find(after, "\n==[^=]")		local nextHeader = mw.ustring.find(after, "\n==[^=]")

Zelda110：创建页面，内容为“local p = {} function p.main(frame) local page = frame.args.page or frame.args[1] local section = frame.args.section or frame.args[2] if not page or not section then return "❌ 参数不足（需要 page 和 section）" end local title = mw.title.new(page) if not title then return "❌ 条目不存在" end local content = title:getContent() if not content then return "❌ 无法读取条目内容"…”

2026-02-09T13:18:50Z

创建页面，内容为“local p = {} function p.main(frame) local page = frame.args.page or frame.args[1] local section = frame.args.section or frame.args[2] if not page or not section then return "❌ 参数不足（需要 page 和 section）" end local title = mw.title.new(page) if not title then return "❌ 条目不存在" end local content = title:getContent() if not content then return "❌ 无法读取条目内容"…”

新页面

local p = {}

function p.main(frame)
local page = frame.args.page or frame.args[1]
local section = frame.args.section or frame.args[2]

if not page or not section then
return "❌ 参数不足（需要 page 和 section）"
end

local title = mw.title.new(page)
if not title then
return "❌ 条目不存在"
end

local content = title:getContent()
if not content then
return "❌ 无法读取条目内容"
end

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

local startPos = mw.ustring.find(content, pattern)
if not startPos then
return "❌ 未找到段落：" .. section
end

-- 截取段落正文
local after = mw.ustring.sub(content, startPos + #section + 4)
local nextHeader = mw.ustring.find(after, "\n==[^=]")

local sectionText
if nextHeader then
sectionText = mw.ustring.sub(after, 1, nextHeader - 1)
else
sectionText = after
end

sectionText = mw.text.trim(sectionText)

return string.format(
"'''原条目：[[%s]]'''\n\n%s",
page,
sectionText
)
end

return p