ahk取重复前十的一种方法 Autohotkey

本脚本来来自于thinkai的blog。

;duplicate top10
src =
(
加
就
加
加
加
的
到
否
的
额
一
他
个
飞
的
的
他
的
对
额
额
他
哦
平
去
我
额
人
啊
是
的
飞
个
好
)
 
a := []
b =
loop, Parse, src, `n, `r
{
    if !a["" A_LoopField]
        a["" A_LoopField] := 1
    else
        a["" A_LoopField] += 1
}
 
for c,d in a
{
    d2 := SubStr("00000", 1, 5-strlen(d)) d
    str := d2 "_" c
    b .= b ? "`n" str : str
}
 
Sort, b, R
 
e := StrSplit(b,"`n","`r")
f =
loop 10
    f .= f ? "`n" e[A_index] : e[A_index]
 
MsgBox % f