求助：去重，合计、降序

清华博士 · 发表于 2013-4-7 08:45:32

求助：去重，合计、降序

罪儿 · 发表于 2013-4-7 08:45:33

[e]
.版本 2
.支持库 iext
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 name, 文本型, , "0"
.局部变量 Money, 整数型, , "0"
.局部变量 metering, 整数型
.局部变量 metering1, 整数型

.计次循环首 (超级列表框1.取表项数 (), metering)
.判断开始 (取数组成员数 (name) ＝ 0)
      加入成员 (name, 超级列表框1.取标题 (metering － 1, 1))
      加入成员 (Money, 到整数 (超级列表框1.取标题 (metering － 1, 2)))
.默认
      .计次循环首 (取数组成员数 (name), metering1)
         .如果真 (超级列表框1.取标题 (metering － 1, 1) ＝ name [metering1])
            Money [metering1] ＝ Money [metering1] ＋到整数 (超级列表框1.取标题 (metering － 1, 2))
            跳出循环 ()
         .如果真结束
         .如果真 (取数组成员数 (name) ＝ metering1)
            加入成员 (name, 超级列表框1.取标题 (metering － 1, 1))
            加入成员 (Money, 到整数 (超级列表框1.取标题 (metering － 1, 2)))
         .如果真结束

      .计次循环尾 ()
.判断结束

.计次循环尾 ()
metering ＝ 0
.计次循环首 (取数组成员数 (name), metering)
超级列表框1.置标题 (metering － 1, 3, name [metering])
超级列表框1.置标题 (metering － 1, 4, 到文本 (Money [metering]))
.计次循环尾 ()
调试输出 (name)
调试输出 (Money)
[/e]

清华博士 · 发表于 2013-4-7 11:31:06

顶起来..........................................

清华博士 · 发表于 2013-4-7 12:41:42

帮忙呀..............................

doudou4631 · 发表于 2013-4-7 12:57:38

以前写的一个文本对比，你看下吧

清华博士 · 发表于 2013-4-7 13:36:49

doudou4631 发表于 2013-4-7 12:57
以前写的一个文本对比，你看下吧

清华博士 · 发表于 2013-4-7 14:59:28

请老师们帮忙呀

清华博士 · 发表于 2013-4-7 18:58:48

顶起来..........................................

清华博士 · 发表于 2013-4-7 20:30:50

罪儿发表于 2013-4-7 19:49
[e]
.版本 2
.支持库 iext

请帮忙还有最后一个工资降序，环节了，谢谢

清华博士 · 发表于 2013-4-8 20:29:57

罪儿发表于 2013-4-7 19:49
[e]
.版本 2
.支持库 iext

求助把降序给搞好吧

		自动登录	找回密码
密码			注册

[已解决] 求助：去重，合计、降序

最佳答案

点评

评分

点评