易语言实现框架排序器举例，自定义数据的快速排序源码

底层算法都已经写好了，基本数据类型的排序器也有了，缺少一个自定义数据类型，
由于我没有骚操作，教大家如何老老实实对【自定义数据】进行排序。

1、私有成员的类型
2、重构你的【比较】函数，我这里举了个例子，是先对参数二排序，再对参数三排序。

1. .版本 2
   
2. 
   
3. .程序集 排序器_自定义数据, 抽象排序器, , 一定得填上基类
   
4. .程序集变量 m_data, 自定义数据, , "0"
   
5. .程序集变量 m_save, 自定义数据
   
6. 
   
7. .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用
   
8. 
   
9. 
   
10. 
    
11. .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用
    
12. 
    
13. 
    
14. 
    
15. .子程序 排序, , 公开
    
16. .参数 p_排序算法实现, 抽象排序算法, 参考, 本参数要求提供"抽象排序算法"的实现类
    
17. .参数 p_欲排序的数组, 自定义数据, 参考 数组
    
18. .参数 p_升序排列, 逻辑型
    
19. .局部变量 l_p2int_this, 整数型
    
20. .局部变量 l_this, 抽象排序器
    
21. 
    
22. l_p2int_this ＝ 指针到整数 (类自身 ())
    
23. Exchange (l_p2int_this, l_this, p_欲排序的数组, m_data)
    
24. .如果 (p_升序排列)
    
25.     p_排序算法实现.p_升序排列 (取数组成员数 (m_data), l_this)
    
26. .否则
    
27.     p_排序算法实现.p_降序排列 (取数组成员数 (m_data), l_this)
    
28. .如果结束
    
29. Exchange (l_p2int_this, l_this, p_欲排序的数组, m_data)
    
30. 
    
31. .子程序 去重复, , 公开
    
32. .参数 p_排序算法实现, 抽象排序算法, 参考, 本参数要求提供"抽象排序算法"的实现类
    
33. .参数 p_欲排序的数组, 自定义数据, 参考 数组
    
34. .局部变量 l_p2int_this, 整数型
    
35. .局部变量 l_this, 抽象排序器
    
36. 
    
37. l_p2int_this ＝ 指针到整数 (类自身 ())
    
38. Exchange (l_p2int_this, l_this, p_欲排序的数组, m_data)
    
39. p_排序算法实现.p_去重复 (取数组成员数 (m_data), l_this)
    
40. Exchange (l_p2int_this, l_this, p_欲排序的数组, m_data)
    
41. 
    
42. .子程序 比较, 整数型, 公开
    
43. .参数 p_data1, 自定义数据
    
44. .参数 p_data2, 自定义数据
    
45. 
    
46. .判断开始 (p_data1.参数二 ＞ p_data2.参数二 或 p_data1.参数二 ＝ p_data2.参数二 且 p_data1.参数三 ＞ p_data2.参数三)
    
47.     返回 (1)
    
48. .判断 (p_data1.参数二 ＝ p_data2.参数二 且 p_data1.参数三 ＝ p_data2.参数三)
    
49.     返回 (0)
    
50. .默认
    
51.     返回 (-1)
    
52. .判断结束
    
53. 
    
54. 
    
55. .子程序 p_比较成员, 整数型, 公开, 已经重写此方法，本方法仅供排序算法自动调用。返回说明：比较值1>比较值2，返回1；比较值1=比较值2，返回0；比较值1<比较值2，返回-1
    
56. .参数 被比较的成员下标, 整数型, , 即前一比较值
    
57. .参数 作用比较的成员下标, 整数型, , 即后一比较值
    
58. 
    
59. 返回 (比较 (m_data [被比较的成员下标], m_data [作用比较的成员下标]))
    
60. 
    
61. .子程序 p_交换成员, , 公开, 已经重写此方法，并且子类必须重写此方法，本方法仅供排序算法自动调用。使用说明：本命令用于强制交换对象
    
62. .参数 欲交换的成员下标, 整数型
    
63. .参数 作交换的成员下标, 整数型
    
64. 
    
65. ASM_交换_变量交变量 (m_data [欲交换的成员下标], m_data [作交换的成员下标])
    
66. 
    
67. .子程序 p_覆写成员, , 公开, 本命令用于覆写成员
    
68. .参数 被覆写的成员, 整数型
    
69. 
    
70. m_data [被覆写的成员] ＝ m_save
    
71. 
    
72. .子程序 p_临时保存成员, , 公开, 本命令用于保存临时成员
    
73. .参数 被保存的成员, 整数型
    
74. 
    
75. m_save ＝ m_data [被保存的成员]
    
76. 
    
77. .子程序 p_比较临时成员, 整数型, 公开, 本命令用于比较临时成员和其他成员的大小
    
78. .参数 欲比较的成员下标, 整数型
    
79. 
    
80. 返回 (比较 (m_data [欲比较的成员下标], m_save))
    
81. 
    
82. .子程序 p_删除成员, , 公开, 本命令用于去重复中删除成员
    
83. .参数 欲删除的成员下标, 整数型
    
84. 
    
85. 删除成员 (m_data, 欲删除的成员下标, )

复制代码

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .局部变量 局_排序器, 排序器_自定义数据
   
5. .局部变量 局_数据, 自定义数据, , "0"
   
6. .局部变量 i, 整数型
   
7. .局部变量 n, 整数型
   
8. 
   
9. 置随机数种子 ()
   
10. n ＝ 100
    
11. 重定义数组 (局_数据, 假, n)
    
12. .计次循环首 (n, i)
    
13.     局_数据 <i>.参数一 ＝ “数据” ＋ 到文本 (i)
    
14.     局_数据 <i>.参数二 ＝ 取随机数 (, ) ÷ 32767
    
15.     局_数据 <i>.参数三 ＝ 取随机数 (, )
    
16. .计次循环尾 ()
    
17. 
    
18. 局_排序器.排序 (快速排序_ASM, 局_数据, 真)  ' 先按参数二排序，再按参数三
    
19. 
    
20. 调试输出 (“排序后”)
    
21. .计次循环首 (n, i)
    
22.     调试输出 (局_数据 <i>.参数一, 局_数据 <i>.参数二, 局_数据 <i>.参数三)
    
23. .计次循环尾 ()

复制代码

游客，如果您要查看本帖隐藏内容请回复

谢谢分享好人有好报6666666

阿斯蒂芬撒反对

我今天才找到这个论坛，非常高兴，加入到觅风老师的论坛

这就是传说中的好资源吗？赶紧看看去！

碉堡了!

我知道错了，感谢大神分享

还不错觅风论坛欢迎你

的法国风格化规范化

看看看看看看看看看看看看