易语言统计重复数教学

.版本 2

.支持库 EDataStructure

.局部变量 zcf, 文本型, , "0"

.局部变量 i, 整数型

.局部变量 ii, 整数型

.局部变量 个数, 整数型

.局部变量 节点, 节点

zcf ＝ 分割文本 (编辑框1.内容, #换行符, )

.计次循环首 (取数组成员数 (zcf), i)

 个数 ＝ 0

 .计次循环首 (取数组成员数 (zcf), ii)

  .如果真 (zcf [i] ＝ zcf [ii])

   个数 ＝ 个数 ＋ 1

  .如果真结束

 .计次循环尾 ()

 .如果真 (节点.加入属性 (到文本 (zcf [i]), 0))

  .如果真 (个数 ≠ 1)

   .如果 (选择框2.选中 ＝ 真)

    编辑框2.加入文本 (zcf [i] ＋ “----重复” ＋ 到文本 (个数) ＋ “次” ＋ #换行符)

   .否则

    编辑框2.加入文本 (zcf [i] ＋ #换行符)

   .如果结束

  .如果真结束

 .如果真结束

.计次循环尾 ()