文本数组排序模块

.子程序 文本数组排序
.参数 要排序的数组, 文本型, 数组
.参数 排序后的数组, 文本型, 参考 数组
.参数 排序方向是否为从a到z, 逻辑型, 可空, 如果参数值为真，排序将从z到a排序。如果本参数被省略，将从a-z排序
.局部变量 局部_计次, 整数型
.局部变量 局部_数目, 整数型
.局部变量 局部_大计次, 整数型

局部_数目 ＝ 取数组成员数 (要排序的数组)
.如果 (排序方向是否为从a到z)
.变量循环首 (90, 65, -1, 局部_大计次)
.计次循环首 (局部_数目, 局部_计次)
.如果真 (取代码 (到大写 (取文本左边 (要排序的数组 [局部_计次], 1)), ) ＝ 局部_大计次)
加入成员 (排序后的数组, 要排序的数组 [局部_计次])
到循环尾 ()
.如果真结束
.如果真 (取声母 (取文本左边 (要排序的数组 [局部_计次], 2), 1) ≠ “” 且 取代码 (到大写 (取声母 (取文本左边 (要排序的数组 [局部_计次], 2), 1)), ) ＝ 局部_大计次)
加入成员 (排序后的数组, 要排序的数组 [局部_计次])
.如果真结束

.计次循环尾 ()
.变量循环尾 ()

.否则
.变量循环首 (65, 90, 1, 局部_大计次)
.计次循环首 (局部_数目, 局部_计次)
.如果真 (取代码 (到大写 (取文本左边 (要排序的数组 [局部_计次], 1)), ) ＝ 局部_大计次)
加入成员 (排序后的数组, 要排序的数组 [局部_计次])
到循环尾 ()
.如果真结束
.如果真 (取声母 (取文本左边 (要排序的数组 [局部_计次], 2), 1) ≠ “” 且 取代码 (到大写 (取声母 (取文本左边 (要排序的数组 [局部_计次], 2), 1)), ) ＝ 局部_大计次)
加入成员 (排序后的数组, 要排序的数组 [局部_计次])
.如果真结束

.计次循环尾 ()
.变量循环尾 ()
BREAK 设置或清除扩展式 CTRL+C 检查。
CACLS 显示或修改文件的访问控制列表(ACLs)。
CALL 从另一个批处理程序调用这一个。
当前目录的名称或将其更改。
CHCP 显示或设置活动代码页数。易语言文本数组排序模块例子。