主要功能是处理一个包含重复姓名的字符串，计算每个姓名的出现次数，然后将姓名按出现次数降序排序，并显示出现次数最多的前10个姓名。

 

;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

 

声明：站内资源为整理优化好的代码上传分享与学习研究，如果是开源代码基本都会标明出处，方便大家扩展学习路径。请不要恶意搬运，破坏站长辛苦整理维护的劳动成果。本站为爱好者分享站点，所有内容不作为商业行为。如若本站上传内容侵犯了原著者的合法权益，请联系我们进行删除下架。