Module:Link with country/sandbox - Revision history

Hohum at 10:27, 21 May 2024

2024-05-21T10:27:14Z

← Previous revision		Revision as of 10:27, 21 May 2024
Line 29:		Line 29:
	cstring = cstring .. ltrim(arr[i]) .. ", "		cstring = cstring .. ltrim(arr[i]) .. ", "
	end		end
	cstring = cstring .. ltrim(arr[#~~countryarray~~])		cstring = cstring .. ltrim(arr[#arr])
	return cstring		return cstring
	end		end

Hohum at 10:26, 21 May 2024

2024-05-21T10:26:10Z

← Previous revision		Revision as of 10:26, 21 May 2024
Line 25:		Line 25:

	local function to_str(arr)		local function to_str(arr)
	local ~~commastring~~ = ""		local cstring = ""
	for i = 1, #arr - 1 do		for i = 1, #arr - 1 do
	~~commastring~~ = ~~commastring~~ .. ltrim(arr[i]) .. ", "		cstring = cstring .. ltrim(arr[i]) .. ", "
	end		end
	~~commastring~~ = ~~commastring~~ .. ltrim(arr[#countryarray])		cstring = cstring .. ltrim(arr[#countryarray])
	return ~~commastring~~		return cstring
	end		end

Line 39:		Line 39:

	-- change comma list to array		-- change comma list to array
	~~countryarray~~ = split_with_comma(frame.args[1])		Countryarray = split_with_comma(frame.args[1])

	-- put each array entry {as a table} through Module:ISO 3166. If the result is null, keep original entry		-- put each array entry {as a table} through Module:ISO 3166. If the result is null, keep original entry
	to_ISO_3166(~~countryarray~~)		to_ISO_3166(Countryarray)

	-- change array back to comma string		-- change array back to comma string
	~~commastring~~ = to_str(~~countryarray~~)		Commastring = to_str(Countryarray)

	return ~~commastring~~		return Commastring
	end		end

Hohum: Undid revision 1224930636 by Hohum (talk)

2024-05-21T10:24:23Z

Undid revision 1224930636 by Hohum (talk)

← Previous revision		Revision as of 10:24, 21 May 2024
Line 39:		Line 39:

	-- change comma list to array		-- change comma list to array
	~~local~~ countryarray = split_with_comma(frame.args[1])		countryarray = split_with_comma(frame.args[1])

	-- put each array entry {as a table} through Module:ISO 3166. If the result is null, keep original entry		-- put each array entry {as a table} through Module:ISO 3166. If the result is null, keep original entry
Line 45:		Line 45:

	-- change array back to comma string		-- change array back to comma string
	~~local~~ commastring = to_str(countryarray)		commastring = to_str(countryarray)

	return commastring		return commastring

Hohum at 10:23, 21 May 2024

2024-05-21T10:23:50Z

← Previous revision		Revision as of 10:23, 21 May 2024
Line 39:		Line 39:

	-- change comma list to array		-- change comma list to array
	countryarray = split_with_comma(frame.args[1])		local countryarray = split_with_comma(frame.args[1])

	-- put each array entry {as a table} through Module:ISO 3166. If the result is null, keep original entry		-- put each array entry {as a table} through Module:ISO 3166. If the result is null, keep original entry
Line 45:		Line 45:

	-- change array back to comma string		-- change array back to comma string
	commastring = to_str(countryarray)		local commastring = to_str(countryarray)

	return commastring		return commastring

Hohum at 10:22, 21 May 2024

2024-05-21T10:22:46Z

← Previous revision		Revision as of 10:22, 21 May 2024
Line 18:		Line 18:
	local function to_ISO_3166(country)		local function to_ISO_3166(country)
	for i = 1, #country do		for i = 1, #country do
	shortname = ISO_3166.name({ country[i] })		local shortname = ISO_3166.name({ country[i] })
	if shortname ~= "" then country[i] = shortname end		if shortname ~= "" then country[i] = shortname end
	end		end

Hohum at 10:21, 21 May 2024

2024-05-21T10:21:40Z

← Previous revision		Revision as of 10:21, 21 May 2024
Line 25:		Line 25:

	local function to_str(arr)		local function to_str(arr)
	commastring = ""		local commastring = ""
	for i = 1, #arr - 1 do		for i = 1, #arr - 1 do
	commastring = commastring .. ltrim(arr[i]) .. ", "		commastring = commastring .. ltrim(arr[i]) .. ", "

Hohum at 10:17, 21 May 2024

2024-05-21T10:17:53Z

← Previous revision		Revision as of 10:17, 21 May 2024
Line 1:		Line 1:

	local p = {}		local p = {}

	local ISO_3166 = require('Module:ISO 3166')		local ISO_3166 = require('Module:ISO 3166')

	local function ltrim(s)		local function ltrim(s)
	return s:match'^%s(.)'		return s:match '^%s(.)'
	end		end

	local function split_with_comma(str)		local function split_with_comma(str)
	local fields = {}		local fields = {}
	for field in str:gmatch('([^,]+)') do		for field in str:gmatch('([^,]+)') do
	fields[#fields+1] = ltrim (field)		fields[#fields + 1] = ltrim(field)
	end		end
	return fields		return fields
	end		end

	local function to_ISO_3166(country)		local function to_ISO_3166(country)
	for i = 1, #country do		for i = 1, #country do
	shortname = ISO_3166.name({country[i]})		shortname = ISO_3166.name({ country[i] })
	if shortname ~= "" then country[i] = shortname end		if shortname ~= "" then country[i] = shortname end
	end		end
	return country		return country
	end		end

	local function to_str(arr)		local function to_str(arr)
	commastring = ""		commastring = ""
	for i = 1, #arr-1 do		for i = 1, #arr - 1 do
	commastring = commastring .. ltrim(arr[i]) .. ", "		commastring = commastring .. ltrim(arr[i]) .. ", "
	end		end
	commastring = commastring .. ltrim(arr[#countryarray])		commastring = commastring .. ltrim(arr[#countryarray])
	return commastring		return commastring
	end		end


	function p.countrynames( frame )		function p.countrynames(frame)
	-- local test = frame.args[1] .. ", " .. frame.args.property		-- local test = frame.args[1] .. ", " .. frame.args.property
	-- return test		-- return test

	-- change comma list to array		-- change comma list to array
	countryarray = split_with_comma( frame.args[1] )		countryarray = split_with_comma(frame.args[1])

	-- put each array entry {as a table} through Module:ISO 3166. If the result is null, keep original entry		-- put each array entry {as a table} through Module:ISO 3166. If the result is null, keep original entry
	to_ISO_3166(countryarray)		to_ISO_3166(countryarray)

	-- change array back to comma string		-- change array back to comma string
	commastring = to_str(countryarray)		commastring = to_str(countryarray)

	return commastring		return commastring
	end		end

Hohum at 00:37, 21 May 2024

2024-05-21T00:37:44Z

← Previous revision		Revision as of 00:37, 21 May 2024
Line 31:		Line 31:
	return commastring		return commastring
	end		end



Line 47:		Line 46:
	commastring = to_str(countryarray)		commastring = to_str(countryarray)

	--commastring = ""
	--for i = 1, #countryarray-1 do
	-- commastring = commastring .. ltrim(countryarray[i]) .. ", "
	--end
	--commastring = commastring .. ltrim(countryarray[#countryarray])
	--
	return commastring		return commastring

	end		end

Hohum at 00:36, 21 May 2024

2024-05-21T00:36:22Z

← Previous revision		Revision as of 00:36, 21 May 2024
Line 53:		Line 53:
	--commastring = commastring .. ltrim(countryarray[#countryarray])		--commastring = commastring .. ltrim(countryarray[#countryarray])
	--		--
	--return commastring		return commastring

	end		end

Hohum at 00:35, 21 May 2024

2024-05-21T00:35:21Z

@@ Line 22: / Line 22: @@
   return country
 end
 function p.countrynames( frame )
@@ Line 34: / Line 45: @@
 -- change array back to comma string
-commastring = ""
+commastring = to_str(countryarray)
-return commastring
+--commastring = ""
 end