编辑框文本，按照每行字数排序问题

a718422052

加入数组，然后取文本长度用冒泡排序法，发现取出的长度不固定，自带的取文本长度和精易取文本长度都不稳定，而且排序后也是错乱的。求大神们附一个源码给我谢谢，最好在原编辑框内操作

傻蛋

a718422052

C:\Users\Administrator\Desktop\QQ截图20200924105228.jpg

a718422052

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 字数排序
   
5. .局部变量 处理数据, 文本型
   
6. .局部变量 行数, 整数型
   
7. .局部变量 n, 整数型
   
8. .局部变量 FG, 文本型, , "0"
   
9. .局部变量 文本数组, 文本型, , "0"
   
10. .局部变量 S, 整数型
    
11. .局部变量 文本长度, 整数型
    
12. .局部变量 临时, 文本型
    
13. .局部变量 x, 整数型
    
14. .局部变量 文本长度1, 整数型
    
15. .局部变量 W, 整数型
    
16. 
    
17. 清除数组 (FG)
    
18. 清除数组 (文本数组)
    
19. 
    
20. 处理数据 ＝ 文本_删除空行 (超级编辑框1.内容)
    
21. 行数 ＝ 文本_取行数 (处理数据)
    
22. FG ＝ 分割文本 (处理数据, #换行符, )
    
23. 
    
24. .计次循环首 (行数, n)
    
25.     加入成员 (文本数组, FG [n])
    
26. .计次循环尾 ()
    
27. 
    
28. .计次循环首 (行数, S)
    
29.     处理事件 ()
    
30.     .计次循环首 (行数 － S, x)
    
31.         文本长度 ＝ 文本_取长度 (文本数组 [S])
    
32.         文本长度1 ＝ 文本_取长度 (文本数组 [x ＋ 1])
    
33.         临时 ＝ 文本数组 [S]
    
34.         .如果 (文本长度 ＞ 文本长度1)
    
35.             调试输出 (文本长度1)
    
36.             文本数组 [S] ＝ 文本数组 [x ＋ 1]
    
37.             文本数组 [x ＋ 1] ＝ 临时
    
38.         .否则
    
39. 
    
40.         .如果结束
    
41. 
    
42.         处理事件 ()
    
43.     .计次循环尾 ()
    
44. .计次循环尾 ()
    
45. 
    
46. 超级编辑框1.内容 ＝ “”
    
47. 
    
48. .计次循环首 (行数, W)
    
49.     处理事件 ()
    
50.     超级编辑框1.加入文本 (文本数组 [W] ＋ #换行符)
    
51. .计次循环尾 ()
    

复制代码

a718422052

.版本 2
.支持库 spec

.子程序 字数排序
.局部变量 处理数据, 文本型
.局部变量 行数, 整数型
.局部变量 n, 整数型
.局部变量 FG, 文本型, , "0"
.局部变量 文本数组, 文本型, , "0"
.局部变量 S, 整数型
.局部变量 文本长度, 整数型
.局部变量 临时, 文本型
.局部变量 x, 整数型
.局部变量 文本长度1, 整数型
.局部变量 W, 整数型

清除数组 (FG)
清除数组 (文本数组)

处理数据 ＝ 文本_删除空行 (超级编辑框1.内容)
行数 ＝ 文本_取行数 (处理数据)
FG ＝ 分割文本 (处理数据, #换行符, )

.计次循环首 (行数, n)
    加入成员 (文本数组, FG [n])
.计次循环尾 ()

.计次循环首 (行数, S)
    处理事件 ()
    .计次循环首 (行数 － S, x)
        文本长度 ＝ 文本_取长度 (文本数组 [S])
        文本长度1 ＝ 文本_取长度 (文本数组 [x ＋ 1])
        临时 ＝ 文本数组 [S]
        .如果 (文本长度 ＞ 文本长度1)
            调试输出 (文本长度1)
            文本数组 [S] ＝ 文本数组 [x ＋ 1]
            文本数组 [x ＋ 1] ＝ 临时
        .否则

        .如果结束

        处理事件 ()
    .计次循环尾 ()
.计次循环尾 ()

超级编辑框1.内容 ＝ “”

.计次循环首 (行数, W)
    处理事件 ()
    超级编辑框1.加入文本 (文本数组 [W] ＋ #换行符)
.计次循环尾 ()

a718422052

傻蛋 发表于 2020-9-24 11:01

如果要反过来字数少的在前面怎么弄