按大小对数据排序和超级列表框中排序的源码

Logo黑星

  

子程序名	返回值类型	公开	备 注
子程序_排序	文本型
参数名	类 型	参考	可空	数组	备 注
参_升降序	整数型
排序数字	文本型
控件类型	整数型				0或省略代表标签，1代表列表框

变量名	类 型	静态	数组	备 注
A	整数型
B	整数型
临时text	文本型
text	文本型		0
i	整数型
j	整数型
newtext	文本型
计次	整数型

判断 (控件类型 ＝ 0)
text ＝ 分割文本 (排序数字, “，”, )
判断 (控件类型 ＝ 1)
计次循环首 (_列表框中排序.超级列表框1.取表项数 (), 计次)
加入成员 (text, _列表框中排序.超级列表框1.取标题 (计次 － 1, 0))
计次循环尾 ()


A ＝ 100  ' 100以内排序，如果数值范围更大，可以修改
B ＝ 多项选择 (参_升降序, 0, A ＋ 1)
计次循环首 (A, i)
计次循环首 (取数组成员数 (text), j)
如果真 (text [j] ＝ 到文本 (取绝对值 (B － i)))
临时text ＝ 临时text ＋ “，” ＋ text [j]

计次循环尾 ()
计次循环尾 ()
newtext ＝ 文本替换 (临时text, 1, 2, “”)
返回 (newtext)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 子程序_排序, 文本型<br /> .参数 参_升降序, 整数型<br /> .参数 排序数字, 文本型, 可空<br /> .参数 控件类型, 整数型, 可空, 0或省略代表标签，1代表列表框<br /> .局部变量 A, 整数型<br /> .局部变量 B, 整数型<br /> .局部变量 临时text, 文本型<br /> .局部变量 text, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 newtext, 文本型<br /> .局部变量 计次, 整数型<br /> <br /> .判断开始 (控件类型 ＝ 0)<br />     text ＝ 分割文本 (排序数字, “，”, )<br /> .判断 (控件类型 ＝ 1)<br />     .计次循环首 (_列表框中排序.超级列表框1.取表项数 (), 计次)<br />         加入成员 (text, _列表框中排序.超级列表框1.取标题 (计次 － 1, 0))<br />     .计次循环尾 ()<br /> .默认<br /> <br /> .判断结束<br /> A ＝ 100  ' 100以内排序，如果数值范围更大，可以修改<br /> B ＝ 多项选择 (参_升降序, 0, A ＋ 1)<br /> .计次循环首 (A, i)<br />     .计次循环首 (取数组成员数 (text), j)<br />         .如果真 (text [j] ＝ 到文本 (取绝对值 (B － i)))<br />             临时text ＝ 临时text ＋ “，” ＋ text [j]<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> newtext ＝ 文本替换 (临时text, 1, 2, “”)<br /> 返回 (newtext)

数字按大小排列.rar (2.63 KB, 下载次数: 113)

2014-10-12 09:04 上传

点击文件名下载附件
超级列表框应用

九零后小旭

好东西支持

aaa614537628

看一看啊666666666666

lyw1989

支持开源~！感谢分享

江楠

看一下，学习一下啊。

xi1516

谢谢分享啊

宇智波·佐助

递归    冒泡

sunhai1979

这个不错，支持一个！

等风的人

直接用数组排序

不要叫我老公了

支持楼主

Hwak

感谢楼主的分享啊