モジュール:CheckMultipleVoting
表示
![](http://upload.wikimedia.org/wikipedia/commons/thumb/4/43/Test_Template_Info-Icon_-_Version_%282%29.svg/50px-Test_Template_Info-Icon_-_Version_%282%29.svg.png)
local p = {}
--[[投票所の二重投票を判定する
{{#invoke:CheckMultipleVoting|CheckMultipleVoting|page={{Wikipedia:メインページ新着投票所/新しい項目候補}}|section= 「新しい項目」候補と投票所 |level=3|line=1}}
]]
function p.CheckMultipleVoting(frame)
local page = frame.args.page
local section = frame.args.section
local level = frame.args.level - 0
local line = frame.args.line - 0
local text = ""
local tbl0 = mw.text.split(page, section)
local key = "\n"
for i = 1, level do
key = key .. "="
end
local tbl1 = mw.text.split(tbl0[2], key)
for i = 1, #tbl1 do
if i > line then
local tbl2 = mw.text.split(tbl1[i] .. '\n', '\n')
for j = 2, #tbl2 - 2 do
for k = j + 1, #tbl2 - 1 do
local textA = tbl2[j]:gsub("^#[%s ]*%p%p[%s ]*(.-)[%s ]*|.*", "%1")
local textB = tbl2[k]:gsub("^#[%s ]*%p%p[%s ]*(.-)[%s ]*|.*", "%1")
if textA == textB and textA ~= "" then
text = text .. "<br />\n<span style='color:red'>二重投票?</span> " .. tbl2[1]:gsub("==.*", "")
end
end
end
end
end
return text
end
return p