文本排序的问题

jiajunchao

比如有下边这些文本

啊
啊啊
按不出
吃吧
维生素
我是谁
谁是我
我是小菜鸟
萌新
来帮我
谢谢你
你真好
好人啊
一生平安
财源滚滚
恭喜发财

怎么按照首字母a到z的顺序排列出来，如果首字母相同就判断第二个字的字母，以此类推，如果出现aac和aa这种形式的长度短的aa就在前边，有大神给解惑吗，论坛找半天也没啥思路

大漠小鸟

逐字分割，取首拼音、ASCII排序

afu45

文本_分割排序_快速（）

aipca

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
取字母	文本型		0
文本	文本型		0
i	整数型
ii	整数型
排序	文本型		0

文本 ＝ 分割文本 ( #常量1, #换行符, )
取字母 ＝ 分割文本 (文本_取首拼 ( #常量1 ), #换行符, )
数组_排序 (取字母, 0, 真)
计次循环首 (取数组成员数 (取字母), i)
计次循环首 (取数组成员数 (文本), ii)
判断 (取字母 [i] ＝ 文本_取首拼 (文本 [ii]))
编辑框1.加入文本 (文本 [ii] ＋ #换行符 )
加入成员 (排序, 文本 [ii])



计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 取字母, 文本型, , "0"<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 ii, 整数型<br /> .局部变量 排序, 文本型, , "0"<br /> <br /> 文本 ＝ 分割文本 (#常量1, #换行符, )<br /> 取字母 ＝ 分割文本 (文本_取首拼 (#常量1), #换行符, )<br /> 数组_排序 (取字母, 0, 真)<br /> .计次循环首 (取数组成员数 (取字母), i)<br />     .计次循环首 (取数组成员数 (文本), ii)<br />         .判断开始 (取字母 <i> ＝ 文本_取首拼 (文本 [ii]))<br />             编辑框1.加入文本 (文本 [ii] ＋ #换行符)<br />             加入成员 (排序, 文本 [ii])<br />         .默认<br /> <br />         .判断结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()

补充内容 (2025-1-16 12:16):
有BUG，单首字母一样的时候，会有重复取发生，需要剔出这部份重复的。

a45167039

数组_排序1

补充内容 (2025-1-16 12:29):
精易模块命令

jiajunchao

afu45 发表于 2025-1-16 11:47
文本_分割排序_快速（）

这个好像不大行，能拍出来但有的还是排的不对

aipca

jiajunchao 发表于 2025-1-16 12:46
这个好像不大行，能拍出来但有的还是排的不对

这个只能排首字母，第二个字母没参与排序

afu45

jiajunchao 发表于 2025-1-16 12:46
这个好像不大行，能拍出来但有的还是排的不对

啊
啊啊
按不出
财源滚滚
吃吧
恭喜发财
好人啊
来帮我
萌新
你真好
谁是我
维生素
我是谁
我是小菜鸟
谢谢你
一生平安

哪里不对？？

jiajunchao

aipca 发表于 2025-1-16 11:51
[e=1].版本 2

.程序集 窗口程序集_启动窗口

大佬你这个拍出来时这样的
翠兰
丛伊君
丛主任
大军
戴金艺
大蓝

不好意思我表达的有点问题这个排出来的不是我要的我想让他拍成这样大佬能改一下吗，我算的脑袋有点懵

丛伊君
丛主任
翠兰
戴金艺
大军
大蓝

jiajunchao

afu45 发表于 2025-1-16 13:11
啊
啊啊
按不出

不好意思大佬我给的例子给错了
翠兰
丛伊君
丛主任
大军
戴金艺
大蓝

我想让他变成这样的
丛伊君
丛主任
翠兰
戴金艺
大军
大蓝