.版本 2
.支持库 RegEx
.局部变量 编号, 整数型, 静态
.版本 2
.支持库 iext
.如果真 (文件名 ≠ -1)
编号 = 编号 + 1
索引值 = 超级列表框1.插入表项 (, 到文本 (编号), , , , )
超级列表框1.置标题 (索引值, 1,文件名, )
.版本 2
.程序集 窗口程序集1
.程序集变量 分割的数字, 整数型, , "0"
.子程序 整数排列
.参数 大小排列, 逻辑型
.局部变量 计次, 整数型
清除数组 (分割的数字) ' 先把数组归零以清除上次的数据
.计次循环首 (取文本长度 (编辑框1.内容), 计次)
加入成员 (分割的数字, 到数值 (取文本中间 (编辑框1.内容, 计次, 1))) ' 把文本数字分割并存入数组
.计次循环尾 ()
编辑框1.内容 = “”
.判断开始 (大小排列 = 真)
数组排序 (分割的数字, 假) ' 排序
.默认
数组排序 (分割的数字, )
.判断结束
.计次循环首 (取数组成员数 (分割的数字), 计次)
编辑框1.内容 = 编辑框1.内容 + 到文本 (分割的数字 [计次]) ' 显示
.计次循环尾 ()
.子程序 _从大到小_被单击
整数排列 (真)
.子程序 _从小到大_被单击
整数排列 (假)