|
发表于 2013-5-26 17:49:53
|
显示全部楼层
湖北省鄂州市
完美实现了。
用了冒泡排序法。
你看看就明白了。
大小排序 就改一个符号
[e]
.版本 2
.程序集 窗口程序集1
.程序集变量 计数结果, 整数型, , "0"
.程序集变量 节名数组, 文本型, , "0"
.程序集变量 项名数组, 文本型, , "0"
.子程序 __启动窗口_创建完毕
.局部变量 配置文件名, 文本型
.局部变量 计数器甲, 整数型
.局部变量 计数器乙, 整数型
配置文件名 = 取当前目录 () + “\QQ.ini”
文件_取配置节名数组 (配置文件名, 节名数组)
重定义数组 (计数结果, 假, 取数组成员数 (节名数组))
.计次循环首 (取数组成员数 (节名数组), 计数器甲)
文件_取配置项名数组 (配置文件名, 节名数组 [计数器甲], 项名数组)
.计次循环首 (取数组成员数 (项名数组), 计数器乙)
计数结果 [计数器甲] = 计数结果 [计数器甲] + 到整数 (读配置项 (配置文件名, 节名数组 [计数器甲], 项名数组 [计数器乙], ))
.计次循环尾 ()
.计次循环尾 ()
.子程序 _按钮1_被单击
冒泡排序法 ()
.子程序 冒泡排序法
.局部变量 临时变量甲, 整数型
.局部变量 临时变量乙, 文本型
.局部变量 计数器甲, 整数型
.局部变量 计数器乙, 整数型
.局部变量 局部节名数组, 文本型, , "0"
.局部变量 计数器, 整数型
局部节名数组 = 节名数组
.变量循环首 (1, 取数组成员数 (计数结果), 1, 计数器甲)
.变量循环首 (计数器甲 + 1, 取数组成员数 (计数结果), 1, 计数器乙)
.如果真 (计数结果 [计数器甲] > 计数结果 [计数器乙]) ' 升序就是> 降序就是<
临时变量甲 = 计数结果 [计数器甲]
计数结果 [计数器甲] = 计数结果 [计数器乙]
计数结果 [计数器乙] = 临时变量甲
临时变量乙 = 局部节名数组 [计数器甲]
局部节名数组 [计数器甲] = 局部节名数组 [计数器乙]
局部节名数组 [计数器乙] = 临时变量乙
.如果真结束
.变量循环尾 ()
.变量循环尾 ()
.计次循环首 (取数组成员数 (计数结果), 计数器)
编辑框1.加入文本 (局部节名数组 [计数器] + “=” + 到文本 (计数结果 [计数器]) + #换行符)
.计次循环尾 ()[/e] |
|