| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 文本_长度排序 | 文本型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 参_排序文本 | 文本型 | ||||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 局_文本行数组 | 文本型 | 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 | 通用对象支持库 |
