在来分享一个算法---按文本长度-排序

超级菜鸟王

直接上源码  希望对各位基友有所帮助 嘎嘎

  

子程序名	返回值类型	公开	备 注
文本_长度排序	文本型
参数名	类 型	参考	可空	数组	备 注
参_排序文本	文本型

变量名	类 型	静态	数组	备 注
局_文本行数组	文本型		0
局_文本行数	整数型
I
II
局_快速文本	快速文本对象
局_返回文本	文本型

' ------------------------------------------------------
' 当前的排序算法 是按照文本长度来排
' 例子：源文本
' --------------------
' A2
' AA3
' 1
' QQQ4
' WWWW5
' --------------------
' 排序结果：
' --------
' 1
' A2
' AA3
' QQQ4
' WWWW5
' ------------------------------------------------------
清除数组 (局_文本行数组)
连续赋值 (0, I, II)
局_文本行数组 ＝ 分割文本 (参_排序文本, #换行符, )
计次循环首 (取数组成员数 (局_文本行数组), I)  ' 循环判断次数
判断循环首 (II ≠ 取数组成员数 (局_文本行数组))  ' 判断源文本数组 是否循环一轮了
II ＝ II ＋ 1
如果真 (取文本长度 (局_文本行数组 [II]) ＝ I)
局_快速文本.添加 (局_文本行数组 [II] ＋ #换行符 )  ' 这里可用加入数组 也可以用放指定变量 自己搞
删除成员 (局_文本行数组, II, 1)
' -------------------------友情提示：这里一定要删除数组中指定的成员 否则会资源浪费在大把没必应的循环判断上
II ＝ II － 1

判断循环尾 ()
II ＝ 0
计次循环尾 ()
局_返回文本 ＝ 局_快速文本.取文本 (, )
局_快速文本.清除文本 ()
返回 (局_返回文本)

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 文本_长度排序, 文本型, 公开<br /> .参数 参_排序文本, 文本型<br /> .局部变量 局_文本行数组, 文本型, , "0"<br /> .局部变量 局_文本行数, 整数型<br /> .局部变量 I<br /> .局部变量 II<br /> .局部变量 局_快速文本, 快速文本对象<br /> .局部变量 局_返回文本, 文本型<br /> <br /> ' ------------------------------------------------------<br /> ' 当前的排序算法 是按照文本长度来排<br /> ' 例子：源文本<br /> ' --------------------<br /> ' A2<br /> ' AA3<br /> ' 1<br /> ' QQQ4<br /> ' WWWW5<br /> ' --------------------<br /> ' 排序结果：<br /> ' --------<br /> ' 1<br /> ' A2<br /> ' AA3<br /> ' QQQ4<br /> ' WWWW5<br /> ' ------------------------------------------------------<br /> 清除数组 (局_文本行数组)<br /> 连续赋值 (0, I, II)<br /> <br /> 局_文本行数组 ＝ 分割文本 (参_排序文本, #换行符, )<br /> <br /> .计次循环首 (取数组成员数 (局_文本行数组), I)  ' 循环判断次数<br /> <br />     .判断循环首 (II ≠ 取数组成员数 (局_文本行数组))  ' 判断源文本数组 是否循环一轮了<br />         II ＝ II ＋ 1<br />         .如果真 (取文本长度 (局_文本行数组 [II]) ＝ I)<br />             局_快速文本.添加 (局_文本行数组 [II] ＋ #换行符)  ' 这里可用加入数组 也可以用放指定变量 自己搞<br />             删除成员 (局_文本行数组, II, 1)<br />             ' -------------------------友情提示：这里一定要删除数组中指定的成员 否则会资源浪费在大把没必应的循环判断上<br />             II ＝ II － 1<br />         .如果真结束<br /> <br />     .判断循环尾 ()<br />     II ＝ 0<br /> .计次循环尾 ()<br /> 局_返回文本 ＝ 局_快速文本.取文本 (, )<br /> 局_快速文本.清除文本 ()<br /> 返回 (局_返回文本)

974778504

支持开源~！感谢分享

freecrown

看不懂！！！

超级菜鸟王

Ava 发表于 2016-12-2 00:03
你明白我的意思吗

嗯嗯 谢谢  发现了 我现在才想到问题在那里 对行文本的长度大过文本的总行数 这里没处理好

Copo

超级菜鸟王 发表于 2016-12-1 08:36
你觉得 jjj 长过 j ?  还是说 字节集中 jjj 字节集 小过 j 字节集

你明白我的意思吗

超级菜鸟王

Ava 发表于 2016-11-30 10:53
一看就知道有BUG
jjj
j

你觉得 jjj 长过 j ?  还是说 字节集中 jjj 字节集 小过 j 字节集  

Copo

一看就知道有BUG
jjj
j
排序这个试试

小李吊炸天

互相讨论，共同进步

2446789312

看不懂！！！

执着

谢谢分享！加油！