Module:Links - 版本历史

DGCK81LNN：我草写错了

2025-10-05T04:39:43Z

我草写错了

←上一版本		2025年10月5日 (日) 12:39的版本
第6行：		第6行：
	local listout = {}		local listout = {}
	for codepoint in mw.ustring.gcodepoint(strin) do		for codepoint in mw.ustring.gcodepoint(strin) do
	table.~~append~~(listout, codepoint)		table.insert(listout, codepoint)
	end		end
	return listout		return listout

DGCK81LNN：谁家好人手搓 utf-8 编解码啊

2025-10-05T04:38:45Z

谁家好人手搓 utf-8 编解码啊

@@ 第2行： / 第2行： @@
 local getArgs = require('Module:Arguments').getArgs
--- 将输入字符串转换为由 Unicode 码位构成的数组，仅支持第一平面字符
+-- 将输入字符串转换为由 Unicode 码位构成的数组
 function p.str2codelist(strin)
      local listout = {}
-     local strk = 1
+     for codepoint in mw.ustring.gcodepoint(strin) do
-    local listk = 1
+    	table.append(listout, codepoint)
      end
      return listout
@@ 第35行： / 第14行： @@
 function p.codelist2str(unicodeCodes)
      local utf8Str = ""
-     if #unicodeCodes > 0 then
+     for _, code in ipairs(unicodeCodes) do
-        for _, code in ipairs(unicodeCodes) do
+    	utf8Str = utf8Str .. mw.ustring.char(code)
      end
      return utf8Str

2024年9月16日 (一) 17:01 雨音浅夏

2024-09-16T17:01:57Z

←上一版本		2024年9月17日 (二) 01:01的版本
第54行：		第54行：
	end		end

	-- ~~生成复杂的连接表~~		-- 生成复杂的链接表
	function p.links(frame)		function p.links(frame)
	local args = getArgs(frame)		local args = getArgs(frame)
第97行：		第97行：
	end		end
	end		end
	return frame:preprocess(outstr) -- ~~预处理结果~~		return frame:preprocess(outstr) -- 预处理 wikitext 结果
	end		end

	return p		return p

2024年9月16日 (一) 16:06 雨音浅夏

2024-09-16T16:06:09Z

←上一版本		2024年9月17日 (二) 00:06的版本
第2行：		第2行：
	local getArgs = require('Module:Arguments').getArgs		local getArgs = require('Module:Arguments').getArgs

	function p.str2codelist(strin) ~~--转换字符串到unicode码位构成的数组，仅支持第一平面字符~~		-- 将输入字符串转换为由 Unicode 码位构成的数组，仅支持第一平面字符
	local listout={}		function p.str2codelist(strin)
	local strk=1		local listout = {}
	local listk=1		local strk = 1
			local listk = 1

	while strk <= #strin do		while strk <= #strin do
	if(math.modf(string.byte(strin,strk)/16)==14)then		-- 处理三字节 UTF-8 字符
	listout[listk]=(string.byte(strin,strk)-224)4096+(string.byte(strin,strk+1)-128)64+(string.byte(strin,strk+2)-128)		if (math.modf(string.byte(strin, strk) / 16) == 14) then
	listk=listk+1		listout[listk] = (string.byte(strin, strk) - 224) * 4096 +
	strk=strk+3		(string.byte(strin, strk + 1) - 128) * 64 +
	elseif(math.modf(string.byte(strin,strk)/32)==6)then		(string.byte(strin, strk + 2) - 128)
	listout[listk]=(string.byte(strin,strk)-192)*64+(string.byte(strin,strk+1)-128)		listk = listk + 1
	listk=listk+1		strk = strk + 3
	strk=strk+2		-- 处理二字节 UTF-8 字符
			elseif (math.modf(string.byte(strin, strk) / 32) == 6) then
			listout[listk] = (string.byte(strin, strk) - 192) * 64 +
			(string.byte(strin, strk + 1) - 128)
			listk = listk + 1
			strk = strk + 2
			-- 单字节字符（ASCII 范围）
	else		else
	listout[listk]=string.byte(strin,strk)		listout[listk] = string.byte(strin, strk)
	listk=listk+1		listk = listk + 1
	strk=strk+1		strk = strk + 1
	end		end
	end		end
第24行：		第32行：
	end		end

			-- 将 Unicode 码位数组转换回 UTF-8 字符串
	function p.codelist2str(unicodeCodes)		function p.codelist2str(unicodeCodes)
	local utf8Str = ""		local utf8Str = ""
	if #unicodeCodes>0 then		if #unicodeCodes > 0 then
	for _, code in ipairs(unicodeCodes) do		for _, code in ipairs(unicodeCodes) do
	if code <= 0x7F then		-- 处理 ASCII 范围字符
	utf8Str = utf8Str .. string.char(code)		if code <= 0x7F then
	elseif code <= 0x7FF then		utf8Str = utf8Str .. string.char(code)
	utf8Str = utf8Str .. string.char(0xC0 + math.floor(code / 64), 0x80 + (code % 64))		-- 处理二字节字符
	else		elseif code <= 0x7FF then
	utf8Str = utf8Str .. string.char(0xE0 + math.floor(code / 4096), 0x80 + math.floor((code % 4096) / 64), 0x80 + (code % 64))		utf8Str = utf8Str .. string.char(0xC0 + math.floor(code / 64), 0x80 + (code % 64))
	end		-- 处理三字节字符
	end		else
			utf8Str = utf8Str .. string.char(0xE0 + math.floor(code / 4096),
			0x80 + math.floor((code % 4096) / 64),
			0x80 + (code % 64))
			end
			end
	end		end
	return utf8Str		return utf8Str
	end		end

	function p.links(frame) ~~--实现复杂连接表~~		-- 生成复杂的连接表
			function p.links(frame)
	local args = getArgs(frame)		local args = getArgs(frame)

			-- 计算 args 的长度 (由于某些神秘的原因不能用 #args)
	local count = 0		local count = 0
	for _, v in ipairs(args) do		for _, v in ipairs(args) do
	count = count + 1		count = count + 1
	end		end

	local outstr = ""		local outstr = ""
	for k,v in ipairs(args)do		-- 遍历每个参数
	strli = p.str2codelist(v)		for k, v in ipairs(args) do
	local flag=0		local strli = p.str2codelist(v)
	local tag=""		local flag = 0
	local itag=""		local tag = ""
	for k2,v2 in ipairs(strli)do		local itag = ""
	if v2==p.str2codelist("#")[1] then
	flag=1		-- 遍历字符转换后的 Unicode 码位
	else		for k2, v2 in ipairs(strli) do
	if flag==0 then		if v2 == p.str2codelist("#")[1] then
	tag=tag..p.codelist2str({v2})		flag = 1 -- 识别分隔符
	else		else
	itag=itag..p.codelist2str({v2})		-- 根据 flag 决定当前字符的标签存放位置
	end		if flag == 0 then
	end		tag = tag .. p.codelist2str({v2})
	end		else
	if flag==0 then		itag = itag .. p.codelist2str({v2})
	outstr = outstr.."[["..tag.."]]~~"..","..tostring(k)..","..tostring(count)..",~~"		end
	else		end
	outstr = outstr.."[["..tag.."\|"..itag.."]]"		end
	end
	if k < count then		-- 组装输出字符串
	outstr = outstr.." • "		if flag == 0 then
	end		outstr = outstr .. "[[" .. tag .. "]]"
			else
			outstr = outstr .. "[[" .. tag .. "\|" .. itag .. "]]"
			end
			-- 添加分隔符
			if k < count then
			outstr = outstr .. " • "
			end
	end		end
	return frame:preprocess(outstr) --~~预处理~~		return frame:preprocess(outstr) -- 预处理结果
	end		end

	return p		return p

2024年9月16日 (一) 16:02 雨音浅夏

2024-09-16T16:02:17Z

←上一版本		2024年9月17日 (二) 00:02的版本
第44行：		第44行：

	local count = 0		local count = 0
	for _, v in ipairs(~~frame~~) do		for _, v in ipairs(args) do
	count = count + 1		count = count + 1
	end		end

2024年9月16日 (一) 16:01 雨音浅夏

2024-09-16T16:01:33Z

←上一版本		2024年9月17日 (二) 00:01的版本
第42行：		第42行：
	function p.links(frame) --实现复杂连接表		function p.links(frame) --实现复杂连接表
	local args = getArgs(frame)		local args = getArgs(frame)

			local count = 0
			for _, v in ipairs(frame) do
			count = count + 1
			end

	local outstr = ""		local outstr = ""
	for k,v in ipairs(args)do		for k,v in ipairs(args)do
第60行：		第66行：
	end		end
	if flag==0 then		if flag==0 then
	outstr = outstr.."[["..tag.."]]"..","..tostring(k)..","..tostring(~~table.getn(args)~~)..","		outstr = outstr.."[["..tag.."]]"..","..tostring(k)..","..tostring(count)..","
	else		else
	outstr = outstr.."[["..tag.."\|"..itag.."]]"		outstr = outstr.."[["..tag.."\|"..itag.."]]"
	end		end
	if k < ~~#args~~ then		if k < count then
	outstr = outstr.." • "		outstr = outstr.." • "
	end		end

2024年9月16日 (一) 15:57 雨音浅夏

2024-09-16T15:57:11Z

←上一版本		2024年9月16日 (一) 23:57的版本
第60行：		第60行：
	end		end
	if flag==0 then		if flag==0 then
	outstr = outstr.."[["..tag.."]]"..","..tostring(k)..","..tostring(#args)..","		outstr = outstr.."[["..tag.."]]"..","..tostring(k)..","..tostring(table.getn(args))..","
	else		else
	outstr = outstr.."[["..tag.."\|"..itag.."]]"		outstr = outstr.."[["..tag.."\|"..itag.."]]"

2024年9月16日 (一) 15:56 雨音浅夏

2024-09-16T15:56:04Z

←上一版本		2024年9月16日 (一) 23:56的版本
第60行：		第60行：
	end		end
	if flag==0 then		if flag==0 then
	outstr = outstr.."[["..tag.."]]"..","..~~string~~(k)..","..tostring(#args)..","		outstr = outstr.."[["..tag.."]]"..","..tostring(k)..","..tostring(#args)..","
	else		else
	outstr = outstr.."[["..tag.."\|"..itag.."]]"		outstr = outstr.."[["..tag.."\|"..itag.."]]"

2024年9月16日 (一) 15:55 雨音浅夏

2024-09-16T15:55:38Z

←上一版本		2024年9月16日 (一) 23:55的版本
第60行：		第60行：
	end		end
	if flag==0 then		if flag==0 then
	outstr = outstr.."[["..tag.."]]".." • "		outstr = outstr.."[["..tag.."]]"..","..string(k)..","..tostring(#args)..","
	else		else
	outstr = outstr.."[["..tag.."\|"..itag.."]]~~".." •~~ "		outstr = outstr.."[["..tag.."\|"..itag.."]]"
	end		end
	if k < #args then		if k < #args then

2024年9月16日 (一) 15:50 雨音浅夏

2024-09-16T15:50:05Z

←上一版本		2024年9月16日 (一) 23:50的版本
第60行：		第60行：
	end		end
	if flag==0 then		if flag==0 then
	outstr = outstr.."[["..tag.."]]"		outstr = outstr.."[["..tag.."]]".." • "
	else		else
	outstr = outstr.."[["..tag.."\|"..itag.."]]"		outstr = outstr.."[["..tag.."\|"..itag.."]]".." • "
	end		end
	if k < #args then		if k < #args then