WikiBot：从 zhwiki 导入完整版

2026-06-23T15:53:26Z

从 zhwiki 导入完整版

新页面

local p={
replace_data = {
"%[%[[Cc][Aa][Tt].-%]%]",
"%[%[分類.-%]%]",
"%[%[分类.-%]%]",
"%[%[[Cc]ategory.-%]%]",
"%[%[CATEGORY.-%]%]",
--"其他例外", --直接新增即可
},
nullstr = ''
}
local strings = require( 'Module:String' )
local TlParLib = {}
local lib_arg = {}
--主函数
function p.main(frame)
if not getArgs then
getArgs = require('Module:Arguments').getArgs
end
get_args = getArgs(frame, {parentFirst=true})

--__DISAMBIG__
other_replace = {}
to_replace = ''
rep_type = "category"
for arg_name, arg_value in pairs( get_args ) do
if arg_name == 1 or arg_name == '1' then
--要处理的字符串
to_replace = arg_value
elseif arg_name == "type" then
rep_type = mw.ustring.lower(arg_value)
else
other_replace[arg_name] = arg_value
end
end
if rep_type == "category" then
return p.delete_category(to_replace, other_replace)
elseif rep_type == "link" then
return p.dellink(get_args)
elseif rep_type == "list_category" or rep_type == "listcategory" or rep_type == "list category" then
return p.list_category(get_args)
else
return to_replace
end
end

function p.list_category(frame)
if not getArgs then
getArgs = require('Module:Arguments').getArgs
end
get_args = getArgs(frame, {parentFirst=true})
category_list = p.find_category((get_args[1] or get_args['1']) or '')
format = mw.ustring.gsub((get_args[2] or get_args['2']) or "*{{{1}}}\\n", "%{%{%{.-%}%}%}", "%%s" );
it = mw.ustring.find(format, "%%s", 1)
if it == nil then format = format .. "%s" end
format = mw.ustring.gsub(format, "\\\\n", "\\n")

body = ''
for i, category in pairs( category_list ) do
body = body .. mw.ustring.gsub(format, "%%s", category)
end
return body
end
function p.deltitle(input)
str = mw.text.trim(mw.ustring.gsub(input,"\\127\\'\\\"`UNIQ%-%-.-QINU`\\\"\\'\\127", p.nullstr))

begin_, end_ = mw.ustring.find(str, "=+", 1)
if begin_==nil then return input end
begin_2 = mw.ustring.find(str, "=+ *\\n", end_ + 1)
count = end_ - begin_ + 1

title_name = mw.text.trim(mw.ustring.sub(str, end_ + 1, begin_2-1 ))
result = "\\n;<span id=\\\"" .. title_name .. "\\\" style=\\\"font-size:" .. (({24,20,18,16,14})[count] or 14) .. "px;\\\">" .. title_name .. "</span>"

if count < 1 then return str
elseif count < 3 then result = result .. "\\n----" end
return result .. '\\n'
end
function p.bytelen(frame)
local args
if frame == mw.getCurrentFrame() then
-- We're being called via #invoke. The args are passed through to the module
-- from the template page, so use the args that were passed into the template.
args = frame.args
else
-- We're being called from another module or from the debug console, so assume
-- the args are passed in directly.
args = frame
if type(args) ~= type({}) then args = {frame} end
end
return string.len(args[1] or args['1'])
end
function p.getcjk(frame)
local args
if frame == mw.getCurrentFrame() then
-- We're being called via #invoke. The args are passed through to the module
-- from the template page, so use the args that were passed into the template.
args = frame.args
else
-- We're being called from another module or from the debug console, so assume
-- the args are passed in directly.
args = frame
if type(args) ~= type({}) then args = {frame} end
end
local str = args[1] or args['1']
str = mw.ustring.gsub(str, "<%s*div.-<%s*%/div%s*>",'')
mw.ustring.gsub(mw.ustring.gsub(args[1] or args['1'],
"[%c%l%u%d%p%s%z" ..
"%>%<%=%{%}%|%[%]%`%+%-%*%/%\\\\"
.. "↑↓←→№©⦸⁄"
.. "%~%~!%@%#%$%^%&%_×÷ºª±∓"
.. "]"
,'.'),"%.+",args['gap'] or '')
return str
end

function p.dellink(frame)
if not getArgs then
getArgs = require('Module:Arguments').getArgs
end
get_args = getArgs(frame, {parentFirst=true})
input = (get_args[1] or get_args['1']) or ''
input = mw.ustring.gsub(input,"\\127\\'\\\"`UNIQ%-%-ref.-QINU`\\\"\\'\\127", p.nullstr)
body = p.delete_category(input, {})
get_link = mw.ustring.gmatch( body, "%[%[.-%]%]" )
i = 1 j = 1 while mw.ustring.find(body, "\\n=+ *[^\\n]* *=+ *\\n") and j do
if i>=10 then j = nil end
body = mw.ustring.gsub(body, "\\n=+ *[^\\n]* *=+ *\\n", p.deltitle)
i = i + 1
end

catbody = mw.ustring.gsub(input,'<',"<")
catbody = mw.ustring.gsub(catbody,'>',">")
category_list = p.find_category(catbody)

link_str = get_link()
while link_str do
link_url = mw.ustring.sub(link_str, 3, -3)
--^$()%.[]*+-?
link_matcher = mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(link_url,
"%%", "%%%%"), "%)", "%)"), "%-", "%-"), "%^", "%^"), "%$", "%$"), "%(", "%("), "%.", "%."), "%*", "%*"), "%+", "%+"), "%|", "%|")
link_matcher = mw.ustring.gsub(mw.ustring.gsub(link_matcher, "%[", "%[") , "%]", "%]")
link_matcher = mw.ustring.gsub(mw.ustring.gsub(link_matcher, "%{", "%{") , "%}", "%}")
first_split = mw.ustring.find(link_url, "%|", 1) or 0
get_link_inner = mw.ustring.gsub(mw.ustring.sub(link_url, 1, first_split - 1), "%%", "%%%%")

body = mw.ustring.gsub( body, "%[%[" .. link_matcher .. "%]%]", get_link_inner );
link_str = get_link()
end
body = mw.text.trim(body) .. '\\n'

body = mw.ustring.gsub( body, "[Ii][Ss][Bb][Nn]", "ISBN" );
body = mw.ustring.gsub( body, "__[A-Z]+__", p.nullstr );
for i, category in pairs( category_list ) do
body = body .. category .. " "
end
return body
end

function p.delete_category(source_str, other)
local body = source_str
for i, categorys in pairs( p.replace_data ) do
body = mw.ustring.gsub( body, categorys, p.nullstr );
end
for i, categorys in pairs( other ) do
body = mw.ustring.gsub( body, categorys, p.nullstr );
end
--Category:使用ISBN魔术连结的页面
body = mw.ustring.gsub( body, "[Ii][Ss][Bb][Nn]", "ISBN" );
body = mw.text.trim(body) --消除多余空行
return body
end

function p.find_category(source_str)
local body = ''
input = mw.ustring.gsub(source_str,'<',"<")
input = mw.ustring.gsub(input,'>',">")
cat_counting = {}
for i, category_matcher in pairs( p.replace_data ) do
get_cat = mw.ustring.gmatch( input, category_matcher )
cat_str = get_cat()
while cat_str do
cat_name_it = mw.ustring.find(cat_str, ':', 1, false)
first_split = mw.ustring.find(cat_str, "%|", 1) or -2

category = mw.ustring.sub(cat_str, cat_name_it + 1, first_split - 1)
cat_counting[category] = category
cat_str = get_cat()
end
end
if mw.ustring.find(body, "[Ii][Ss][Bb][Nn]") then category_list["使用ISBN魔术连结的页面"] = "使用ISBN魔术连结的页面" end
cat_list = {}
i=1
for _, category_name in pairs( cat_counting ) do
cat_list[i] = "Category:" .. category_name

i = i + 1
end
return cat_list
end

function p.test(frame)
if not getArgs then
getArgs = require('Module:Arguments').getArgs
end
get_args = getArgs(frame, {parentFirst=true})

text = mw.ustring.gsub( ((get_args[1] or get_args['1']) or ''), '\\n', "\\n ")

input = mw.ustring.gsub(text,'<',"<")
input = mw.ustring.gsub(input,'>',">")

--return mw.ustring.gsub( input .. "\\n*匹配数:", "\\127\\'\\\"`UNIQ%-%-ref.-QINU`\\\"\\'\\127", p.nullstr );
input = mw.ustring.gsub( input, "\\127\\'\\\"`", p.nullstr );
return mw.ustring.gsub( input, "`\\\"\\'\\127", p.nullstr );
end
function p.get_title(frame)
if not getArgs then
getArgs = require('Module:Arguments').getArgs
end
get_args = getArgs(frame, {parentFirst=true})
for arg_name, arg_value in pairs( get_args ) do
if arg_name == 1 or arg_name == '1' then
--要处理的字符串
input = arg_value
elseif arg_name == "title" or arg_name == "2" or arg_name == 2 then
title = arg_value
elseif arg_name == "keep" or arg_name == "keep_title" or arg_name == "keep title" or
arg_name == "3" or arg_name == 3 then
keep_title = mw.ustring.lower(arg_value)
end
end
return p.find_title(input or '', title or '', keep_title)
end
function p.get_chapter(frame)
if not getArgs then
getArgs = require('Module:Arguments').getArgs
end
get_args = getArgs(frame, {parentFirst=true})
input = (get_args[1] or get_args['1']) or ''

chapter_begin, chapter_end = mw.ustring.find(input, '#', 1)
if chapter_begin ~= nil then
return mw.ustring.sub(input, chapter_begin + 1)
end

return ''
end
-- @deprecated
function p.delnowiki(frame)
mw.addWarning('[[Module:Delcat]]: Deprecated method <code>[[Module:Delcat]]#delnowiki</code> is called. Please replace with <code>{{tlm|#invoke|Unstrip|unstripNoWiki|text}}</code> (wikitext) or <syntaxhighlight lang="lua" inline>mw.text.unstripNoWiki(text)</syntaxhighlight> (lua).')
-- For calling from #invoke.
local get_args
if frame == mw.getCurrentFrame() then
-- We're being called via #invoke. The args are passed through to the module
-- from the template page, so use the args that were passed into the template.
if not getArgs then
getArgs = require('Module:Arguments').getArgs
end
get_args = getArgs(frame, {parentFirst=true})
else
-- We're being called from another module or from the debug console, so assume
-- the args are passed in directly.
get_args = frame
if type(get_args) ~= type({}) then get_args = {frame} end
end
local input_str=nil,get_args[1] or get_args['1'] or ''
return mw.text.unstripNoWiki(input_str)
end

function p.getData(data,data_path)
local path_items = mw.text.split(data_path, "%.")
local result = data
for _, path_item in ipairs(path_items) do
if type(result) == type(nil) then break end
result = result[path_item]
end
return result
end

function p.include(frame)
local args, working_frame
if frame == mw.getCurrentFrame() then
-- We're being called via #invoke. The args are passed through to the module
-- from the template page, so use the args that were passed into the template.
if lib_arg.getArgs == nil then lib_arg = require('Module:Arguments') end
args = lib_arg.getArgs(frame, {parentFirst=true})
working_frame = frame
else
-- We're being called from another module or from the debug console, so assume
-- the args are passed in directly.
args = frame
working_frame = mw.getCurrentFrame()
if type(args) ~= type({}) then args = {frame} end
end

local keep_title
local pagename
local full_include = false
local preprocess = true
local new_args = { args["\\1"] or '' }
for arg_name, arg_value in pairs( args ) do
if arg_name == 1 or arg_name == '1' then
pagename = arg_value
elseif arg_name == "keep" or arg_name == "keep_title" or arg_name == "keep title" then
keep_title = mw.ustring.lower(arg_value)
elseif arg_name == "full_include" or arg_name == "full include" or arg_name == "full" then
if yesno == nil then yesno = require('Module:Yesno') end
full_include = yesno(mw.ustring.lower(arg_value) or 'no')
elseif arg_name == "\\1" then new_args["1"] = arg_value
elseif frame ~= mw.getCurrentFrame() and arg_name == "NoPreprocess" then preprocess = not require('Module:Yesno')(arg_value) -- lua专用，使目标暂时不展开，不允许直接呼叫避免惨案发生
else new_args[arg_name] = arg_value end
end
local hide_first_title = false
local show_t = true
if keep_title ~= nil then
if yesno == nil then yesno = require('Module:Yesno') end
if keep_title == "hide" then show_t, hide_first_title = false, true
else show_t = yesno(keep_title or "yes") end
else
show_t = true
end
if mw.text.trim(pagename or '') == '' then return '' end

local chaptername = ''
local input_fullpagename = tostring(pagename)
local InIsSubst, InIsSSubst, InIsMsgnw
pagename, InIsSubst = mw.ustring.gsub(pagename, "^subst:","")
pagename, InIsMsgnw = mw.ustring.gsub(pagename, "^msgnw:","")
pagename, InIsSSubst = mw.ustring.gsub(pagename, "^safesubst:","")
pagename = mw.ustring.gsub(pagename, "^raw:","")
pagename = mw.ustring.gsub(pagename, "^int:","MediaWiki:")
InIsSubst = InIsSubst > 0 or InIsMsgnw > 0
InIsMsgnw = InIsMsgnw > 0
local mark_pos,_ = mw.ustring.find(pagename, '%#') --分析章节语法(#)
if mark_pos then
chaptername = mw.ustring.sub(pagename,mark_pos+1,#pagename)
pagename = mw.ustring.sub(pagename,1,mark_pos-1)
end
local chapterfullname = tostring(chaptername)
local chapterid = 1
mark_pos = mw.ustring.find(chapterfullname, "%_%d+$") --分析章节语法(_)
if mark_pos then
chaptername = mw.ustring.sub(chapterfullname,1,mark_pos-1)
chapterid = tonumber(mw.ustring.sub(chapterfullname,mark_pos+1,#chapterfullname)) or 1
end
local chapterothername = tostring(chaptername)
local body = ''

if mw.text.trim(pagename) == '' then return '' end

--取得引用页名称
local check_includetitle, is_namespace0 = mw.text.trim(pagename), 0
check_includetitle, is_namespace0 = mw.ustring.gsub(check_includetitle, "^%s-:","")
local check_includetitle_obj = (mw.title.new( check_includetitle ) or {})
local check_includetitle_namespace = check_includetitle_obj.namespace or 10
local check_isExternal = check_includetitle_obj.isExternal
if check_isExternal == nil then check_isExternal = false end
if check_includetitle_namespace == 0 and is_namespace0 > 0 and not check_isExternal then --有冒号表示指名名字空间(预设是 Template )
check_includetitle = mw.title.new( check_includetitle )
elseif check_includetitle_namespace == 0 and not check_isExternal then --没有冒号表示预设是 Template
check_includetitle = mw.title.new( "Template:" .. check_includetitle )
else --其余情况就用解析到的名字空间
check_includetitle = mw.title.new( check_includetitle )
end
if check_includetitle == nil then check_includetitle = check_includetitle or {
fullText = mw.text.trim(pagename) , text = mw.text.trim(pagename), isErrorTitle=true
} end
--建立解析器，解析模板语法
local include_frame = mw.getCurrentFrame()
local include_parent_frame = include_frame:getParent()
if include_parent_frame and not mw.isSubsting() then include_frame = include_parent_frame end
--定位为由呼叫者直接执行
if not mw.isSubsting() then
working_frame = include_frame:newChild{ title = include_frame:getTitle(), args = new_args }
end

local input_str = working_frame:preprocess( "{{msgnw:" .. pagename .. "}}" ) --析出页面源码
local redirectTarget = check_includetitle.redirectTarget
if redirectTarget ~= false and redirectTarget ~= nil then check_includetitle = redirectTarget end

-- [[Module:Delcat]] include --包含
-- 将模板源码以源码形式包含进来，并试图节选特定章节内容

--去除扩展标签之前，由于章节(== XX ==)也是一种列入strip的扩展标签，因此要先储存起来，避免资料遗失
local htagstrip_table = {}
if not mw.isSubsting() then --subst需保留扩展标签 (subst后会自动还原)
local htagstrip_matcher = "\\127\\'\\\"`UNIQ%-%-h%-.-QINU`\\\"\\'\\127%s-[^\\n]-%s-=+%s-\\n"
local htagstrip_start, htagstrip_end = mw.ustring.find(input_str, htagstrip_matcher, 1)

while htagstrip_start do
local temp_htagstrip = mw.ustring.sub(input_str, htagstrip_start, htagstrip_end)
local htagstrip_str = mw.ustring.match(temp_htagstrip, "\\127\\'\\\"`UNIQ%-%-h%-.-QINU`\\\"\\'\\127")
local htag_tail = mw.ustring.gsub(temp_htagstrip, "\\127\\'\\\"`UNIQ%-%-h%-.-QINU`\\\"\\'\\127", "")
local begin_, end_ = mw.ustring.find(htag_tail, "=+", 1)
local htag_name = mw.text.trim(mw.ustring.gsub(htag_tail, '=', ''))
htagstrip_table[#htagstrip_table+1] = {
name=mw.text.trim(htag_name),
level=end_ - begin_ + 1,
htagstrip=htagstrip_str
}
htagstrip_start, htagstrip_end = mw.ustring.find(input_str, htagstrip_matcher, htagstrip_end+1)
end
input_str = mw.text.killMarkers( input_str ) --去除扩展标签
end

input_str = '\\n\\n' .. input_str .. '\\n\\n' --使规表达式不会在首行和末行出现边界情况
if TlParLib._getEscapeString == nil then TlParLib = require('Module:TemplateParameters') end
local chapterfullname_regex_pattern = TlParLib._getEscapeString(chapterfullname)
local chaptername_regex_pattern = TlParLib._getEscapeString(chaptername)

local is_htag = false
local function htag_regex(chname)
--用于处理subst不同的载入方式
if mw.isSubsting() then return "\\n=+ -" .. chname .. " -=+ -\\n" end
return "\\n=+%s-" .. chname .. "%s-=+%s-\\n"
end
local function spantag_regex(chname) return "%<%s-span[^%>]+id=[%\\\"%\\']" .. chname .. "[%\\\"%\\']" end
local function anchortag_regex(chname) return "%{%{[Aa][Nn][Cc][Hh][Oo][Rr][^%}]-%|%s-" .. chname .. "%s-[%|%}]" end
local function find_chtag(chname, alltext)
is_htag = true
local finded_title_begin, finded_title_end = mw.ustring.find(input_str, htag_regex(chname), 1)
if finded_title_begin then return finded_title_begin, finded_title_end end
is_htag = false
finded_title_begin, finded_title_end = mw.ustring.find(input_str, spantag_regex(chname), 1)
if finded_title_begin then return finded_title_begin, finded_title_end end
finded_title_begin, finded_title_end = mw.ustring.find(input_str, anchortag_regex(chname), 1)
if finded_title_begin then return finded_title_begin, finded_title_end end
end
local next_title_matcher = htag_regex("[^\\n]-")

if mw.text.trim(chapterfullname) ~= '' then
local finded_title_begin, finded_title_end = find_chtag(chapterfullname_regex_pattern, input_str)
local next_title_begin, next_title_end = #input_str, nil; next_title_end = next_title_begin
if finded_title_begin then --匹配全名
else --从非全名寻找
finded_title_begin, finded_title_end =find_chtag(chaptername_regex_pattern, input_str)
end
if chapterid > 1 then
local cutted_title_matcher = htag_regex(chaptername_regex_pattern)
for index = 2, chapterid do
if finded_title_end ~= nil then
finded_title_begin, finded_title_end = mw.ustring.find(input_str, cutted_title_matcher, finded_title_end + 1)
end
end
end

local finded_title_string = mw.ustring.sub(input_str, finded_title_begin, finded_title_end)

if chapterfullname == "__FIRST_SECTION__" then finded_title_begin = -1;is_htag=true end
local htag_level = nil
if finded_title_begin then --找到了
if chapterfullname == "__FIRST_SECTION__" then
finded_title_string = ''
htag_level = 9007199254740991 --lua max int
finded_title_end = 1
else
if is_htag == false then --分析章节标题
local re_find = mw.ustring.sub(input_str, 1, finded_title_begin)
re_find = re_find:reverse()
local temp_title_begin, temp_title_end
if(mw.ustring.isutf8(re_find) == true )then
temp_title_begin, temp_title_end = mw.ustring.find(re_find, htag_regex("[^\\n]-"), 1)
if temp_title_begin then finded_title_string = mw.ustring.sub(re_find, temp_title_begin, temp_title_end) end
else
temp_title_begin, temp_title_end = re_find:find(htag_regex("[^\\n]-"), 1)
if temp_title_begin then finded_title_string = re_find:sub(temp_title_begin, temp_title_end) end
end
finded_title_string = finded_title_string:reverse()
if(mw.ustring.isutf8(finded_title_string) == true )then
chapterothername = mw.ustring.gsub(finded_title_string,"=",'')
else
chapterothername = finded_title_string:gsub("=",'')
end
end
--获得章节标题的级数
if htag_level==nil then
local begin_, end_ = mw.ustring.find(finded_title_string, "=+", 1)
htag_level = end_ - begin_ + 1
end
end

local next_title_find_begin, next_title_find_end = mw.ustring.find(input_str, next_title_matcher, finded_title_end + 1)
local flag = true while next_title_find_begin and flag do
local next_title_find = mw.ustring.sub(input_str, next_title_find_begin, next_title_find_end)
local find_begin_, find_end_ = mw.ustring.find(next_title_find, "=+", 1)
local find_count = find_end_ - find_begin_ + 1
if find_count <= htag_level then
next_title_begin = next_title_find_begin
next_title_end = next_title_find_end
flag = nil
end
next_title_find_begin, next_title_find_end = mw.ustring.find(input_str, next_title_matcher, next_title_find_end + 1)
end
if next_title_begin == nil then next_title_begin = 0 end

local ch_start = finded_title_end + 1
if is_htag == false then ch_start = finded_title_begin end
body = mw.ustring.sub(input_str, ch_start, next_title_begin - 1)

if show_t == false then --不显示章节标头者，移除章节标头
local i = 1 j = 1 while mw.ustring.find(body, "\\n=+ *[^\\n]* *=+ *\\n") and j do if i>=10 then j = nil end
body = mw.ustring.gsub(body, "\\n=+ *[^\\n]* *=+ *\\n", p.deltitle)
i = i + 1
end
end
if hide_first_title==false then
if show_t then body = finded_title_string .. body
else body = p.deltitle(finded_title_string) .. body end
end
end
else
body = input_str
end
if full_include==true then --设定为 "全面引用" 将noinclude等标记移除
--匹配noinclude等标记的规表达式 (适用lua的版本)
local include_pattern = "[Ii][Nn][Cc][Ll][Uu][Dd][Ee]"
local only_pattern = "[Oo][Nn][Ll][Yy]"
local no_pattern = "[Nn][Oo]"
local taghead_pattern = "%<[%s/]-"
local tagtail_pattern = "[^%>]-%>"
local tagdel_pattern = ""
body = mw.ustring.gsub(body, taghead_pattern .. no_pattern .. include_pattern .. tagtail_pattern, tagdel_pattern)
body = mw.ustring.gsub(body, taghead_pattern .. only_pattern .. include_pattern .. tagtail_pattern, tagdel_pattern)
body = mw.ustring.gsub(body, taghead_pattern .. include_pattern .. only_pattern .. tagtail_pattern, tagdel_pattern)
end

local min_title = 0
if show_t == true and not mw.isSubsting() then --显示章节标头者，须使章节标头正常运作
--将扩展标签 (== XX ==) 摆回去
body = '\\n\\n' .. body .. '\\n\\n' --使规表达式不会在首行和末行出现边界情况
local back_title_start, back_title_end = mw.ustring.find(body, next_title_matcher, 1)
local title_first_match = true
while back_title_start do --逐一搜索标题
local check_title=mw.ustring.sub(body, back_title_start, back_title_end)
check_title=mw.text.trim(mw.ustring.gsub(check_title, '=', ''))
check_title=mw.text.trim(check_title) --确定标题名称
local check_title_matcher=TlParLib._getEscapeString(check_title)
local htagstrip_table_item={} --获得原始标题的扩展标签strip标记符号
for ik, iv in ipairs(htagstrip_table) do
if iv.name == check_title or iv.name == chapterothername then
htagstrip_table_item = iv
if title_first_match == true then
min_title = ik
title_first_match = false
end
break
end
end

--将扩展标签strip标记符号放回内文
if htagstrip_table_item.htagstrip then
body = mw.ustring.gsub(body, "(=+)(%s-" .. check_title_matcher .. "%s-=+)", "%1" .. htagstrip_table_item.htagstrip .. "%2")
end
back_title_start, back_title_end = mw.ustring.find(body, next_title_matcher, back_title_end+1)
end
end

body = mw.text.trim(body)
--subst无须复位
if mw.isSubsting() then return body end

if min_title > 1 then body = "\\127\\'\\\"`UNIQ____TITLE__TAG__PATTERN____QINU`\\\"\\'\\127\\n" .. body
for _=2,min_title do body = "== ==\\n" .. body end
end
working_frame = include_frame:newChild{ title = check_includetitle.fullText, args = new_args }
if preprocess then -- lua专用，使目标暂时不展开
body = working_frame:preprocess( body )
end
if min_title > 1 then local start;_,start = mw.ustring.find(body,"\\127\\'\\\"`UNIQ____TITLE__TAG__PATTERN____QINU`\\\"\\'\\127\\n")
if start then body =mw.ustring.sub(body, start+1, #body) end
body = mw.text.trim(body)
end

return body
end

function p.find_title(str, title, keep_title)
if title == nil then return '' end
if title == '' then return str end
settion_data_begin, settion_data_end = mw.ustring.find(title, "_[0-9]+$", 1)

find_count = 1
if settion_data_begin ~= nil then
cutted_title = mw.ustring.sub(title, 1, settion_data_begin - 1)
find_count = tonumber(mw.ustring.sub(title, settion_data_begin + 1, settion_data_end))
else
cutted_title = title
end
if find_count < 1 then
find_count = 1
cutted_title = title
end
show_t = true
if keep_title ~= nil then
if yesno == nil then yesno = require('Module:Yesno') end
if keep_title == "hide" then show_t = false end
keep_t = yesno(keep_title)
else
keep_t = false
end

str = '\\n'..mw.text.trim(mw.ustring.gsub(str,"\\127\\'\\\"`UNIQ%-%-h%-.-QINU`\\\"\\'\\127", p.nullstr))

--^$()%.[]*+-?
title_matcher = mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(title,
"%%", "%%%%"), "%)", "%)"), "%-", "%-"), "%^", "%^"), "%$", "%$"), "%(", "%("), "%.", "%."), "%*", "%*"), "%+", "%+"), "%|", "%|")
title_matcher = mw.ustring.gsub(mw.ustring.gsub(title_matcher, "%[", "%[") , "%]", "%]")
title_matcher = mw.ustring.gsub(mw.ustring.gsub(title_matcher, "%{", "%{") , "%}", "%}")

cutted_title_matcher = mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(cutted_title,
"%%", "%%%%"), "%)", "%)"), "%-", "%-"), "%^", "%^"), "%$", "%$"), "%(", "%("), "%.", "%."), "%*", "%*"), "%+", "%+"), "%|", "%|")
cutted_title_matcher = mw.ustring.gsub(mw.ustring.gsub(cutted_title_matcher, "%[", "%[") , "%]", "%]")
cutted_title_matcher = mw.ustring.gsub(mw.ustring.gsub(cutted_title_matcher, "%{", "%{") , "%}", "%}")

cutted_title_matcher = "\\n=+ *" .. cutted_title_matcher .. " *=+ *\\n"
title_matcher = "\\n=+ *" .. title_matcher .. " *=+ *\\n"

finded_title_begin, finded_title_end = mw.ustring.find(str, title_matcher, 1)
if finded_title_begin == nil then
finded_title_begin, finded_title_end = mw.ustring.find(str, cutted_title_matcher, 1)
for index = 2, find_count do
if finded_title_end ~= nil then
finded_title_begin, finded_title_end = mw.ustring.find(str, cutted_title_matcher, finded_title_end + 1)
end
end
end

if title == "__FIRST_SECTION__" then finded_title_begin = -1 end
if finded_title_begin ~= nil then
if title == "__FIRST_SECTION__" then
finded_title = ''
count = 99999
finded_title_end = 1
else
finded_title = mw.ustring.sub(str, finded_title_begin, finded_title_end)

begin_, end_ = mw.ustring.find(finded_title, "=+", 1)
begin_2, end_2 = mw.ustring.find(finded_title, "=+ *\\n", end_ + 1)
count = end_ - begin_ + 1

end
next_title_matcher = "\\n=+ *[^=\\n]* *=+ *\\n"
next_title_find_begin, next_title_find_end = mw.ustring.find(str, next_title_matcher, finded_title_end + 1)
flag = true while next_title_find_begin and flag do
next_title_find = mw.ustring.sub(str, next_title_find_begin, next_title_find_end)
find_begin_, find_end_ = mw.ustring.find(next_title_find, "=+", 1)
find_count = find_end_ - find_begin_ + 1
if find_count <= count then
next_title_begin = next_title_find_begin
next_title_end = next_title_find_end
flag = nil
end
next_title_find_begin, next_title_find_end = mw.ustring.find(str, next_title_matcher, next_title_find_end + 1)
end

--title_name = mw.text.trim(mw.ustring.sub(str, end_ + 1, begin_2-1 ))
if next_title_begin == nil then next_title_begin = 0 end

body = mw.ustring.sub(str, finded_title_end + 1, next_title_begin - 1)
i = 1 j = 1 while mw.ustring.find(body, "\\n=+ *[^\\n]* *=+ *\\n") and j do if i>=10 then j = nil end
body = mw.ustring.gsub(body, "\\n=+ *[^\\n]* *=+ *\\n", p.deltitle)
i = i + 1
end

if show_t then if keep_title then body = finded_title .. body else body = p.deltitle(finded_title) .. body end end
return mw.text.trim(body)
end
return ''
end

function p.delcat_specific(frame)
if frame == mw.getCurrentFrame() then
if not getArgs then
getArgs = require('Module:Arguments').getArgs
end
get_args = getArgs(frame, {parentFirst=true})
else
-- From [[Module:TemplateParameters]], Thank [[User:A2569875|A2569875]]
if type(frame) ~= type({}) then
get_args = {frame}
else
get_args = frame
end
end
local wt = ''
local delcat = {}
local i = 1
for k, v in pairs( get_args ) do
if k == 1 or k == '1' then
--要处理的字符串
to_replace = v
else
delcat[i] = v
i = i + 1
end
end
for _, cat in ipairs( delcat ) do
wt = mw.ustring.gsub(wt, "%[%[([Cc][Aa][Tt]|[Cc]ategory|CATEGORY|分类|分類):" .. cat .. "(%|.|)%]%]", "")
end
return wt
end

return p

Module:Delcat - 版本历史

WikiBot：​从 zhwiki 导入完整版

WikiBot：从 zhwiki 导入完整版