易语言实现比较两个字节集数据的大小并对字节集数组进行大小排序的方法

QAQ

字节集数据比较大小的方法
比较方法:
被比较的字节集A和B，长度选最长的进行计次循环。
A和B若尝试越界访问则必须经过判断返回0，否则会报错。
先比较A和B的第1字节、相同的则比较下1字节，直到不同为止，全部相同返回等于。
A和B若数据全为0(空字符)，长度不一致按长度判断，否则返回等于。

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 字节集数组, 字节集, , "10"
    
15. .局部变量 计数, 整数型
    
16. 
    
17. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
18. 置随机数种子 ()
    
19. .计次循环首 (10, 计数)
    
20.     字节集数组 [计数] ＝ 字节集_取随机 (取随机数 (1, 10))
    
21. .计次循环尾 ()
    
22. 字节集_数组排序 (字节集数组, 真)
    
23. 调试输出 (字节集数组)
    
24. 
    
25. .子程序 字节集_取随机, 字节集, , 返回一个由随机数值的乱码字节集数据，可指定值的返回，使用前请使用“置随机数种子”命令为随机数生成器初始化一个种子值。
    
26. .参数 字节长度, 整数型
    
27. .参数 最小值, 字节型, 可空, 默认0
    
28. .参数 最大值, 字节型, 可空, 默认255
    
29. .局部变量 字节集, 字节集
    
30. .局部变量 计数, 整数型
    
31. 
    
32. .如果真 (是否为空 (最大值))
    
33.     最大值 ＝ 255
    
34. .如果真结束
    
35. 字节集 ＝ 取空白字节集 (字节长度)
    
36. .如果真 (最小值 ＝ 0 且 最大值 ＝ 0)
    
37.     返回 (字节集)
    
38. .如果真结束
    
39. .计次循环首 (字节长度, 计数)
    
40.     字节集 [计数] ＝ 取随机数 (最小值, 最大值)
    
41. .计次循环尾 ()
    
42. 返回 (字节集)
    
43. 
    
44. 
    
45. .子程序 字节集_大小比较, 字节型, 公开, A等于B返回0 A小于B返回1 A大于B返回2 全部为0时按长度比较
    
46. .参数 字节集A, 字节集
    
47. .参数 字节集B, 字节集
    
48. .局部变量 A长度, 整数型
    
49. .局部变量 B长度, 整数型
    
50. .局部变量 计数, 整数型
    
51. .局部变量 A代码, 字节型
    
52. .局部变量 B代码, 字节型
    
53. 
    
54. A长度 ＝ 取字节集长度 (字节集A)
    
55. B长度 ＝ 取字节集长度 (字节集B)
    
56. .计次循环首 (选择 (A长度 ＞ B长度, A长度, B长度), 计数)
    
57.     .如果 (计数 ≤ A长度)
    
58.         A代码 ＝ 字节集A [计数]
    
59.     .否则
    
60.         A代码 ＝ 0
    
61.     .如果结束
    
62.     .如果 (计数 ≤ B长度)
    
63.         B代码 ＝ 字节集B [计数]
    
64.     .否则
    
65.         B代码 ＝ 0
    
66.     .如果结束
    
67.     .如果真 (A代码 ≠ B代码)
    
68.         返回 (选择 (A代码 ＜ B代码, 1, 2))
    
69.     .如果真结束
    
70. 
    
71. .计次循环尾 ()
    
72. .如果真 (A长度 ＝ B长度)
    
73.     返回 (0)
    
74. .如果真结束
    
75. 返回 (选择 (A长度 ＜ B长度, 1, 2))
    
76. 
    
77. 
    
78. .子程序 字节集_数组排序, , 公开
    
79. .参数 字节集数组, 字节集, 参考 数组
    
80. .参数 从小到大, 逻辑型, 可空
    
81. .局部变量 返回值, 字节集, , "0"
    
82. .局部变量 位置, 整数型
    
83. .局部变量 最大字节集, 字节集
    
84. .局部变量 计数, 整数型
    
85. .局部变量 成员数, 整数型
    
86. 
    
87. .循环判断首 ()
    
88.     最大字节集 ＝ {  }
    
89.     成员数 ＝ 取数组成员数 (字节集数组)
    
90.     .计次循环首 (成员数, 计数)
    
91.         .如果真 (字节集_大小比较 (字节集数组 [计数], 最大字节集) ＝ 2)
    
92.             最大字节集 ＝ 字节集数组 [计数]
    
93.             位置 ＝ 计数
    
94.         .如果真结束
    
95. 
    
96.     .计次循环尾 ()
    
97.     加入成员 (返回值, 最大字节集)
    
98.     删除成员 (字节集数组, 位置, 1)
    
99. .循环判断尾 (成员数 － 1 ＞ 0)
    
100. .如果 (从小到大)
     
101.     成员数 ＝ 取数组成员数 (返回值)
     
102.     .计次循环首 (成员数, 计数)
     
103.         加入成员 (字节集数组, 返回值 [成员数 － 计数 ＋ 1])
     
104.     .计次循环尾 ()
     
105. .否则
     
106.     字节集数组 ＝ 返回值
     
107. .如果结束
     
108. 
     

复制代码

新手上路

这又是什么鬼