Question

求易语言取数组成员的出现计次源码

每位成员以6位数学号代表,学号范围从000000--999999.统计编辑框1.内容出现的次数.如下图:希望统计出来的更专业一点,谢谢!

Answer 1

文本组 = 分割文本（编辑框。内容）
设置数组变量 文本型数组 记录当前没有分组的内容 分组内容
设置数组变量 整数型数组 记录当前个数
是否存在 =假
计次循环首（取数组成员数（文本组），i）
是否存在 =假
计次循环首（取数组成员数（分组内容），j）
如果真（分组内容【j】=文本组【i】）
是否存在=真
记录个数【j】=记录个数【j】+1
计次循环尾（）
如果真（是否存在=假）
加入成员（分组内容，文本组【i】）
加入成员（记录个数,1）

计次循环尾（）

调试输出（记录个数，分组内容）
好了……

追问

您好，统计出来的数据可不可以依次分层排列。
如下：
1次：。。。。。
2次：。。。。。
3次：。。。。。

追答

自己写个排序不就好了吗

追问

请高手详细修改以上源码,经我复制后无法调试,提示错误...谢谢!

追答

.版本 2

.支持库 spec

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

.局部变量 分组内容, 文本型, , "0"

.局部变量 记录个数, 整数型, , "0"

.局部变量 是否存在, 逻辑型

.局部变量 i, 整数型

.局部变量 j, 整数型

文本组 ＝ 分割文本 (编辑框1.内容, “,”, )

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

    是否存在 ＝ 假

    .计次循环首 (取数组成员数 (分组内容), j)

        .如果真 (分组内容 [j] ＝ 文本组 [i])

            是否存在 ＝ 真

            记录个数 [j] ＝ 记录个数 [j] ＋ 1

        .如果真结束

    .计次循环尾 ()

    .如果真 (是否存在 ＝ 假)

        加入成员 (记录个数, 1)

        加入成员 (分组内容, 文本组 [i])

    .如果真结束

.计次循环尾 ()

调试输出 (记录个数, 分组内容)

'自己改改代码就好了吧……