JasonHK：导入1个版本

2025-02-03T14:28:25Z

导入1个版本

←上一版本		2025年2月3日 (一) 14:28的版本
（没有差异）

wikipedia:zh>TKsdik8900：繁簡處理

2021-05-18T02:15:49Z

繁簡處理

新页面

local p = {}

local getArgs = require('Module:Arguments').getArgs
local yesno = require('Module:Yesno')

local function varCase(t)
local case = 'CHT'

if t.cn == '' or t.tw == '' then
case = ''

elseif t.hk == '' or t.hk == 'tw' or t.hk == t.tw then
case = 'CTT'

elseif t.hk == 'cn' or t.hk == t.cn then
case = 'CCT'

elseif t.tw == 'cn' or t.tw == t.cn then
case = 'CHC'

elseif t.cn == 'tw' or t.cn == t.tw then
case = 'THT'
end

return case
end

local function chi(t)
local ret = ''
local _list = {}
local case = varCase(t)

local list = {
{'C', "中國大陸", t.cn},
{'H', "香港", t.hk},
{'T', "臺灣", t.tw},
{'CH', "中國大陸和香港", t.cn},
{'HT', "香港和臺灣", t.tw},
{'CT', "中國大陸和臺灣", t.cn},
{'CT2', "中國大陸和臺灣", t.tw},
}
local varTag = {}

for i, v in ipairs(list) do
if v[3] == "en" then
varTag[v[1]] = v[2] .. "使用英文"
else
varTag[v[1]] = v[2] .. "譯作“" .. v[3] .. '”'
end
end

local function gen(a)
local listVar = { '', '-hans', '-hant', '-cn', '-hk', '-mo', '-sg', '-tw', }
local r = '-{ '
for i, v in ipairs(listVar) do
r = r .. 'zh' .. v .. ':-{zh; zh-hans; zh-hant;|' .. a[i] .. '}-; '
end
r = r .. '}-'

return r
end

if case == '' then
return ''
elseif case == 'CHT' then
_list = {
varTag.C .. '，' .. varTag.H .. '，' .. varTag.T, -- zh
varTag.C .. '，' .. varTag.H .. '，' .. varTag.T, -- zh-hans
varTag.C .. '，' .. varTag.H .. '，' .. varTag.T, -- zh-hant
varTag.H .. '，' .. varTag.T, -- zh-cn
varTag.C .. '，' .. varTag.T, -- zh-hk
varTag.C .. '，' .. varTag.T, -- zh-mo
varTag.C .. '，' .. varTag.H .. '，' .. varTag.T, -- zh-sg
varTag.C .. '，' .. varTag.H -- zh-tw
}

elseif case == 'CTT' then
_list = {
varTag.C .. '，' .. varTag.HT, -- zh
varTag.C .. '，' .. varTag.HT, -- zh-hans
varTag.C .. '，' .. varTag.HT, -- zh-hant
varTag.HT, -- zh-cn
varTag.C, -- zh-hk
varTag.C, -- zh-mo
varTag.C .. '，' .. varTag.HT, -- zh-sg
varTag.C -- zh-tw
}

elseif case == 'CCT' then
_list = {
varTag.CH .. '，' .. varTag.T, -- zh
varTag.CH .. '，' .. varTag.T, -- zh-hans
varTag.CH .. '，' .. varTag.T, -- zh-hant
varTag.T, -- zh-cn
varTag.T, -- zh-hk
varTag.T, -- zh-mo
varTag.CH .. '，' .. varTag.T, -- zh-sg
varTag.CH -- zh-tw
}

elseif case == 'CHC' then
_list = {
varTag.CT .. '，' .. varTag.H, -- zh
varTag.CT .. '，' .. varTag.H, -- zh-hans
varTag.CT .. '，' .. varTag.H, -- zh-hant
varTag.H, -- zh-cn
varTag.CT, -- zh-hk
varTag.CT, -- zh-mo
varTag.CT .. '，' .. varTag.H, -- zh-sg
varTag.H -- zh-tw
}

elseif case == 'THT' then
_list = {
varTag.CT2 .. '，' .. varTag.H, -- zh
varTag.CT2 .. '，' .. varTag.H, -- zh-hans
varTag.CT2 .. '，' .. varTag.H, -- zh-hant
varTag.H, -- zh-cn
varTag.CT2, -- zh-hk
varTag.CT2, -- zh-mo
varTag.CT2 .. '，' .. varTag.H, -- zh-sg
varTag.H -- zh-tw
}
end

return gen(_list)
end

local function link(cont)

if yesno(_link, true) then
if yesno(_lead) then
cont = '[[' .. cont .. ']]'
end
cont = cont .. '：'
else
cont = ''
end

return cont

end

function p.nihongo_title(frame)

local ret
local _ret

local args = getArgs(frame, {
frameOnly= true;
valueFunc = function (key, value)
if value == nil and value ~= 'no' then
return ''
else
return value
end
end;
})

_link = args.link
_lead = args.lead

if args[1] ~= '' and args[2] ~= '' then

ret = '《' .. args[1] .. '》' .. '（' .. link('日語') .. '-{' .. args[2] .. '}-'

if args[3] ~= '' then

ret = ret .. '，' .. link('英語') .. '-{' .. args[3] .. '}-'

end

if args.cn ~= '' and args.tw ~= '' then

ret = ret .. '，' .. chi(args)

end

if args[4] ~= '' then

ret = ret .. '，' .. args[4]

end

ret = ret .. '）'

if args[5] ~= '' then

ret = ret .. '　' .. args[5]

end

ret = ret .. ''
end

return ret

end

return p

Module:Nihongo title - 版本历史

JasonHK：​导入1个版本

wikipedia:zh>TKsdik8900：​繁簡處理

JasonHK：导入1个版本

wikipedia:zh>TKsdik8900：繁簡處理