模組:沙盒/逆襲的天邪鬼/talkpage
外观
本模塊用於統計討論頁上各位用戶的發言次數。目前不支持DYK等投票頁或VIP等比較特殊的討論頁面。另外,請不要用Flow來欺負我這個電腦高級中手。
{{ #invoke:沙盒/逆襲的天邪鬼/talkpage | analyse | Wikipedia:互助客栈/条目探讨 }}
效果(點此刷新)
用戶 | 發言次數 | 最後發言時間 |
---|---|---|
ThomasYehYeh | 1 | 2024年8月18日 (日) 02:19 (UTC) |
FreeePedia | 2 | 2024年8月8日 (四) 16:54 (UTC) |
Seanetienne | 3 | 2024年8月24日 (六) 08:55 (UTC) |
Happyseeu | 1 | 2024年8月12日 (一) 13:07 (UTC) |
Cwek | 2 | 2024年8月14日 (三) 04:18 (UTC) |
Z7504 | 7 | 2024年8月27日 (二) 05:09 (UTC) |
Gluo88 | 2 | 2024年8月22日 (四) 03:31 (UTC) |
RecoveryRing | 1 | 2024年8月13日 (二) 12:47 (UTC) |
Ericliu1912 | 13 | 2024年8月25日 (日) 15:56 (UTC) |
红渡厨 | 9 | 2024年8月25日 (日) 16:36 (UTC) |
Kcx36 | 1 | 2024年8月18日 (日) 16:40 (UTC) |
向史公哲曰 | 4 | 2024年8月2日 (五) 09:15 (UTC) |
自由雨日 | 52 | 2024年8月27日 (二) 05:25 (UTC) |
2001:B011:6C0C:3939:3989:3C2D:9075:B3F0 | 2 | 2024年8月27日 (二) 02:47 (UTC) |
Matt Zhuang | 2 | 2024年8月24日 (六) 20:41 (UTC) |
Milkypine | 1 | 2024年8月22日 (四) 04:38 (UTC) |
C9mVio9JRy | 7 | 2024年8月20日 (二) 13:29 (UTC) |
微肿头龙 | 8 | 2024年8月23日 (五) 23:02 (UTC) |
猫猫的日记本 | 1 | 2024年8月17日 (六) 16:22 (UTC) |
Nostalgiacn | 4 | 2024年8月22日 (四) 02:05 (UTC) |
Hoben7599 | 3 | 2024年8月27日 (二) 02:49 (UTC) |
WilliamSkyWalk | 7 | 2024年8月24日 (六) 08:32 (UTC) |
The Puki desu | 6 | 2024年8月23日 (五) 12:49 (UTC) |
Patrickov | 61 | 2024年8月25日 (日) 17:18 (UTC) |
CreeperDigital1903 | 3 | 2024年8月24日 (六) 12:57 (UTC) |
神秘悟饭 | 2 | 2024年8月23日 (五) 07:28 (UTC) |
NovaSpark451 | 1 | 2024年8月17日 (六) 02:11 (UTC) |
YFdyh000 | 4 | 2024年8月24日 (六) 18:00 (UTC) |
重庆轨交18 | 21 | 2024年8月20日 (二) 16:41 (UTC) |
EAP1221 | 2 | 2024年8月19日 (一) 04:46 (UTC) |
Kethyga | 5 | 2024年8月24日 (六) 09:49 (UTC) |
楫交 | 1 | 2024年8月23日 (五) 11:07 (UTC) |
Rastinition | 1 | 2024年8月14日 (三) 12:16 (UTC) |
Kone718 | 2 | 2024年8月18日 (日) 16:44 (UTC) |
Fferic | 5 | 2024年8月17日 (六) 06:20 (UTC) |
源義信 | 1 | 2024年8月24日 (六) 17:40 (UTC) |
其中User:Example是未能判斷出名字的用戶,例如簽名格式很不標準等。
如果只關心某一具體話題,可以
{{ #invoke:沙盒/逆襲的天邪鬼/talkpage | analyse | Wikipedia:互助客栈/条目探讨 | topic=某一話題}}
注意不支持簡繁轉換。
其他參數
[编辑]- topic:只統計某個話題。如果標題相同(或者多個標題被匹配),那麼這些話題都會被統計進去。
- ispattern:表示topic是一個lua的匹配字符串。請不要加括號。
- userlink、ipuserlink:指定用戶名的樣式,其中「$USER」會被換為真正的用戶名。例如{{User|$USER}}。
- type:可取user、topic和all。默認為user,即只統計各用戶的發言情況。
topic的表頭如下:
主題 | 發言次數 | 參與者人數 | 發起人 | 最後發言者 | 最後發言時間 |
---|
all的表頭如下:
主題 | 用戶 | 發言次數 | 最後發言時間 |
---|
其他函數
[编辑]lastsign
[编辑]獲取最後一個發言的人。例如:
{{ #invoke:沙盒/逆襲的天邪鬼/talkpage | lastsign | Wikipedia:互助客栈/条目探讨 }}
效果(刷新):自由雨日 2024年8月27日 (二) 05:25 (UTC)
同樣支持上面提到的各個參數。
lastname和lastdate
[编辑]只顯示最後發言人的名字或日期。
count和countuser
[编辑]顯示簽名和簽名者的數量。count函數支持user參數,即只顯示特定用戶的簽名數量。
示例一:
[[User:Peacearth]]的簽名檔上已經有{{ #invoke:沙盒/逆襲的天邪鬼/talkpage | count | User:Peacearth/訪客簽名區 }}個能被識別出來的簽名,這是由{{ #invoke:沙盒/逆襲的天邪鬼/talkpage | countuser | User:Peacearth/訪客簽名區 }}位用戶簽出來的。
效果:
User:Peacearth的簽名檔上已經有227個能被識別出來的簽名,這是由222位用戶簽出來的。
示例二:
小曹在Peacearth的討論頁上發了{{ #invoke:沙盒/逆襲的天邪鬼/talkpage | count | User talk:Peacearth | user=小曹2015 }}個留言。
效果:
小曹在Peacearth的討論頁上發了0個留言。
已知bug
[编辑]- 目前不支持DYK等投票頁,還有VIP這種標題比較特殊的頁面。
- 程序只是簡單地進行字符串識別。如果有人簽名格式不標準,或者故意搗蛋(例如这样),程序自然會出bug。
- 未簽名的話肯定不會被統計進去。這個沒法修復。
- 如果有人把時間設在1970年1月1日 (四) 00:00 (UTC)[1]前,有99.99%的機率會無法顯示。
上述文档嵌入自Module:沙盒/逆襲的天邪鬼/talkpage/doc。 (编辑 | 历史) 编者可以在本模块的沙盒 (编辑 | 差异)和测试样例 (创建)页面进行实验。 本模块的子页面。 |
local f = {}
f.DATEPATTERN = '(%d-)年(%d-)月(%d-)日 %([一二三四五六日]-%) (%d-):(%d-) %(UTC%)'
f.USERPREFIX = {
'user:', '用戶:', '用户:', '使用者:', 'u:', 'U:',
'user talk:', 'user_talk:', '用戶討論:', '用户讨论:', '使用者討論:', 'ut:','UT:','Ut:',
'special:用户贡献/', 'special:contributions/', 'special:用戶貢獻/', 'special:使用者貢獻/',
'特殊:用户贡献/', '特殊:用戶貢獻/', '特殊:使用者貢獻/', '特殊:contributions/'
}
f.MINDATE = '1970年1月1日 (四) 00:00 (UTC)'--{{#time:U|1970010100000000}} = 1
f.MAXDATE = mw.getContentLanguage():formatDate( 'Y年n月j日 (D) H:i (T)' ) --now
--- 反序尋找字符串
local function rfind(s, pattern, init)
local x, y
local i = init or #s
local len = #s
x, y = string.find(string.reverse(s), string.reverse(pattern), len-i+1, true)
if x then
return len-y+1, len-x+1
end
end
--- 生成用戶名鏈接。默認是指向用戶頁(IP用戶為貢獻頁)的鏈接。
-- @param name 用戶名
-- @param style 自定義樣式,其中$USER會被換成用戶名。
-- @param ipstyle IP用戶的自定義樣式。若未指定則與style相同。
-- @return 維基格式的用戶名鏈接
local function getuserlink(name, style, ipstyle)
if string.find(name, '^%d-%.%d-%.%d-%.%d-$') then
return string.gsub(ipstyle or style or '[[Special:用户贡献/$USER|$USER]]', '$USER', name)
else
return string.gsub(style or '[[User:$USER|$USER]]', '$USER', name)
end
end
--- TODO 去除掉影響分析的文字,例如「===」、「<pre>」等
-- @param orintext 原始討論串。
-- @return 經過預處理之後的討論串。去掉一些搗亂的內容。
local function preprocess(orintext, titlelevel)
local text = orintext
text = string.gsub(text, titlelevel .. '=', '---')
text = string.gsub(text, '<pre>.-</pre>', '')
text = string.gsub(text, '<nowiki>.-</nowiki>', '')
text = string.gsub(text, '{{移動至|.-}}', '')
text = string.gsub(text, '{{talkback|.-}}', '')
text = string.gsub(text, '{{deltalk|.-}}', '')
text = string.gsub(text, '{{移动自|.-}}', '')
return text
end
--- 從長長的討論串中找到特定主題。如果未指定主題則將所有主題分割開並存入table中。
-- @param orintext 原始討論串。
-- @param topic 待提取的主題。未指定的話則改為分割所有主題。
-- @param ispattern 表示topic是否為lua的匹配字符串。
-- @return 返回一個鍵為討論標題值為討論內容的table。如果沒有則返回nil。
local function extracttopic(args)
local orintext = args.text
local topic = args.topic
local ispattern = args.ispattern
local titlelevel = args.titlelevel=='3' and '===' or '=='
-- 預處理
local text = titlelevel .. '\n\n' .. preprocess(orintext, titlelevel) .. '\n' .. titlelevel
local result = {}
local found = nil
local topic2 = topic and mw.text.trim(topic)
for title, content in string.gmatch(text, '[ ]*(.-)[ ]*'..titlelevel..'[ ]*\n(.-)\n'..titlelevel) do
local ok = false
if topic2 and (not ispattern) and title == topic2 then
ok = true
elseif topic2 and ispattern and (string.match(title, topic2)) then
ok = true
elseif not topic2 then
ok = true
end
if ok then
found = true
local temptitle = title
local i = 1
while result[temptitle] do
i = i + 1
temptitle = title .. ' (' .. i .. ')'
end
result[temptitle] = content
end
end
return found and result
end
--- 將討論串上的日期轉為一個數字。
-- @param date 討論串格式的日期。
-- @return 將數字直接拼起來。不是時間戳。
local function date2num(date)
local y,m,d,h,min = string.gmatch(date, f.DATEPATTERN)()
if y and m and d and h and min then
return y*100000000+m*1000000+d*10000+h*100+min
else
return 0
end
end
--- 比較兩個日期的大小。
-- @param date1
-- @param date2
-- @return 若date1<date2則返回true。
local function comparedate(date1, date2)
return date2num(date1) < date2num(date2)
end
--- 統計討論串中各個簽名的次數和最後發言時間。
-- @param orintext 原始討論串
-- @return @todo TODO 需要重寫
function f._count(orintext)
-- 預處理
local text = '\n' .. orintext
local lowertext = string.lower(text)
-- 尋找日期
local result = {}
local x, y
y = 1
repeat
x, y = text.find(text, f.DATEPATTERN, y+1)
if not x then
break
end
local date = string.sub(text, x, y)
-- 截取當前行以便於尋找用戶名
local t1, t2 = rfind(text, '\n', x)
local curtalk = string.sub(lowertext, t1, x-1)
-- 尋找用戶名
local name = nil
for i, v in ipairs(f.USERPREFIX) do
local t3, t4 = rfind(curtalk, '[[' .. v)
if t4 then
local t5 = (string.find(curtalk, '[/#|%]]', t4+1))
if t5 then
-- 確定用戶名
name = string.sub(text, t1+t4, t1+t5-2)
-- 首字母大寫
local firstletter = string.byte(name, 1, 1)
if firstletter >= 97 and firstletter <=122 then
name = string.upper(string.sub(name, 1, 1)) .. string.sub(name, 2, -1)
end
break
end
end
end
name = name or 'Example'
if not result[name] then
result[name] = {count = 1, firstdate = date, lastdate = date}
else
result[name].count = result[name].count + 1
if comparedate(result[name].lastdate, date) then
result[name].lastdate = date
end
if comparedate(date, result[name].firstdate) then
result[name].firstdate = date
end
end
until false
return result
end
local function maketable(counttable, args)
local tabletype = args.tabletype and mw.text.trim(args.tabletype) or 'user'
local top = '{| class="wikitable sortable"\n|-'
local header
if tabletype == 'all' then
top = '{| class="wikitable"\n|-'
end
local result = { top }
if tabletype == 'topic' then
table.insert(result, '! 主題 !! 發言次數 !! 參與者人數 !! 發起人 !! 最後發言者 !! data-sort-type="number" | 最後發言時間')
for k, v in pairs(counttable.topics) do
if v.count > 0 then
table.insert(result, string.format('|-\n| %s || %s || %s || %s || %s || data-sort-value="%s" | %s',
k, v.count, v.usercount, getuserlink(v.firstname, args.userlink, args.ipuserlink),
getuserlink(v.lastname, args.userlink, args.ipuserlink), date2num(v.lastdate), v.lastdate))
end
end
elseif tabletype == 'topicsimple' then
table.insert(result, '! 主題 !! 發言次數 !! 最後發言者 !! data-sort-type="number" | 最後發言時間')
for k, v in pairs(counttable.topics) do
if v.count > 0 then
table.insert(result, string.format('|-\n| %s || %s || %s || data-sort-value="%s" | %s',
k, v.count, getuserlink(v.lastname, args.userlink, args.ipuserlink), date2num(v.lastdate), v.lastdate))
end
end
elseif tabletype == 'all' then
table.insert(result, '! 主題 !! 用戶 !! 發言次數 !! data-sort-type="number" | 最後發言時間')
for k, v in pairs(counttable.topics) do
if v.count > 0 then
local first = k .. ' || '
if v.usercount > 1 then
first = 'rowspan=' .. v.usercount .. ' | ' .. first
end
for k2, v2 in pairs(v.users) do
table.insert(result, string.format('|-\n| %s%s || %s || data-sort-value="%s" | %s',
first, getuserlink(k2, args.userlink, args.ipuserlink), v2.count, date2num(v2.lastdate), v2.lastdate))
first = ''
end
end
end
else
table.insert(result, '! 用戶 !! 發言次數 !! data-sort-type="number" | 最後發言時間')
for k, v in pairs(counttable.users) do
table.insert(result, string.format('|-\n| %s || %s || data-sort-value="%s" | %s', getuserlink(k, args.userlink, args.ipuserlink), v.count, date2num(v.lastdate), v.lastdate))
end
end
table.insert(result, '|}')
return table.concat(result, '\n')
end
--- 對簽名數據進行匯總
-- @param stat 通過count函數得到的統計數據
-- @return 一個table,發言數、發言人數、最後發言者、最後發言時間
local function getstat(data)
local count = 0
local usercount = 0
local lastdate = f.MINDATE
local lastname = nil
local firstdate = f.MAXDATE
local firstname = nil
for username, userinfo in pairs(data) do
count = count + userinfo.count
usercount = usercount + 1
if comparedate(lastdate, userinfo.lastdate) then
lastdate = userinfo.lastdate
lastname = username
end
if comparedate(userinfo.firstdate, firstdate) then
firstdate = userinfo.firstdate
firstname = username
end
end
return {
count = count,
usercount = usercount,
firstdate = firstdate,
firstname = firstname,
lastdate = lastdate,
lastname = lastname
}
end
--- 統計討論串中各個簽名的次數和最後發言時間。
-- @param args
-- @return
local function getcount(args)
local talk = string.gsub(args.text, '\r', '\n')
local userdata = {}
local result = { users = userdata, topics = {} }
local topics = extracttopic(args) or {}
for title, content in pairs(topics) do
local topicdata = f._count(content)
for username, userinfo in pairs(topicdata) do
local dat = userdata[username] or { count = 0, lastdate = f.MINDATE }
dat.count = dat.count + userinfo.count
dat.lastdate = comparedate(dat.lastdate, userinfo.lastdate) and userinfo.lastdate or dat.lastdate
userdata[username] = dat
end
result.topics[title] = getstat(topicdata)
result.topics[title].users = topicdata
end
return result
end
--- 獲取最後簽名。
-- @param args
-- @return 一個table,包含用戶名和日期。
local function getlastsign(args)
local r = getcount(args)
local lastname = nil
local lastdate = f.MINDATE
for k, v in pairs(r.users) do
if comparedate(lastdate, v.lastdate) then
lastname = k
lastdate = v.lastdate
end
end
return {name=lastname, date=lastdate}
end
--- 將維基百科模板上的參數轉為lua的table。
-- @param frame 維基百科模板上的參數。
-- @return 一個table,包括各個參數。
local function getargs(frame)
return {
text = mw.title.new(frame.args[1]):getContent(),
topic = frame.args.topic,
ispattern = frame.args.ispattern,
userlink = frame.args.userlink,
ipuserlink = frame.args.ipuserlink,
tabletype = frame.args.type,
titlelevel = frame.args.titlelevel
}
end
--- 統計討論頁發言情況。詳情見文檔頁。
-- @param frame 維基百科頁面名。
-- @return 一張表格。
function f.analyse(frame)
local args = getargs(frame)
return maketable(getcount(args), args)
end
--- 獲取最後一個發言的用戶。
-- @param frame 維基百科頁面名。
-- @return 一個用戶名,不使用鏈接。
function f.lastname(frame)
return getlastsign(getargs(frame)).name
end
--- 獲取最後一個發言的日期。
-- @param frame 維基百科頁面名。
-- @return 一個日期。
function f.lastdate(frame)
return getlastsign(getargs(frame)).date
end
--- 獲取最後一個簽名。
-- @param frame 維基百科頁面名。
-- @return 一個簽名鏈接附上一個日期。
function f.lastsign(frame)
local args = getargs(frame)
local lastsign = getlastsign(args)
if lastsign.name then
return string.format('%s %s', getuserlink(lastsign.name, args.userlink, args.ipuserlink), lastsign.date)
end
end
--- 統計簽名數量。
-- @param frame 維基百科頁面名。
-- @return 一個數字。
function f.count(frame)
local data = getcount(getargs(frame))
local username = frame.args.user and mw.text.trim(frame.args.user)
if not username then
local num = 0
for k, v in pairs(data.topics) do
num = num + v.count
end
return num
elseif data.users[username] then
return data.users[username].count
else
return 0
end
end
--- 統計簽名者數量。
-- @param frame 維基百科頁面名。
-- @return 一個數字。
function f.countuser(frame)
local data = getcount(getargs(frame)).users
local count = 0
for _ in pairs(data) do
count = count + 1
end
return count
end
-- 以下用於本地測試
--[[
f.countsigns = getcount
f.lastsign = getlastsign
f.maketable = maketable
]]
f.getcount = getcount
return f