自定义数据类型 【通用排序】 多条件版

笨来无一悟

名曰:多条件 实际只按某一个条件排序也是可以的

自行设计 &比较函数 什么条件返回0 什么条件返回1 什么条件返回-1 达到升序或者降序的效果

很简单的 参考示例几分钟就上手了

模块源码 ↓

  

子程序名	返回值类型	公开	备 注
多项排序			【自定义 数据类型 多条件排序】请严格遵循 示例规范
参数名	类 型	参考	可空	数组	备 注
待排数组	通用型				任意类型 与 比较回调 的 两个参数 需保持一致
比较回调	子程序指针				参数一:具体类型 参数二:具体类型 返回值 整数型 : 零 \ 正 \ 负

变量名	类 型	静态	数组	备 注
数组地址	整数型			指针到整数 (取变量地址 (待排数组)) ＋ 8
成员数量	整数型			指针到整数 (指针到整数 (取变量地址 (待排数组)) ＋ 4)
跳转地址	整数型
跳转函数	字节集			跳到具体比较过程 脱离汇编 让易语言语法引用@qsort时也能直接进行大小比较

数组地址 ＝ 0
成员数量 ＝ 0
跳转地址 ＝ 0
跳转函数 ＝ { 85, 137, 229, 83, 255, 117, 8, 255, 117, 12, 255, 21 } ＋ 到字节集 (取变量数据地址 (跳转地址)) ＋ { 91, 201, 195 }
置入代码 ({ 83, 81, 139, 69, 12, 64, 139, 8, 128, 249, 232, 117, 248, 139, 72, 1, 141, 92, 8, 5, 139, 11, 193, 225, 8, 129, 249, 0, 85, 139, 236, 141, 64, 4, 117, 225, 137, 216, 89, 91, 137, 69, 244 })
置入代码 ({ 54, 139, 69, 8, 62, 139, 0, 131, 192, 8, 54, 137, 69, 252, 62, 139, 64, 252, 54, 137, 69, 248 })
qsort (数组地址, 成员数量, 4, 取变量数据地址 (跳转函数))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 多项排序, , 公开, 【自定义 数据类型 多条件排序】请严格遵循 示例规范<br /> .参数 待排数组, 通用型, 数组, 任意类型 与 比较回调 的 两个参数 需保持一致<br /> .参数 比较回调, 子程序指针, , 参数一:具体类型 参数二:具体类型 返回值 整数型 : 零 \ 正 \ 负<br /> .局部变量 数组地址, 整数型, , , 指针到整数 (取变量地址 (待排数组)) ＋ 8<br /> .局部变量 成员数量, 整数型, , , 指针到整数 (指针到整数 (取变量地址 (待排数组)) ＋ 4)<br /> .局部变量 跳转地址, 整数型<br /> .局部变量 跳转函数, 字节集, , , 跳到具体比较过程 脱离汇编 让易语言语法引用@qsort时也能直接进行大小比较<br /> <br /> 数组地址 ＝ 0<br /> 成员数量 ＝ 0<br /> 跳转地址 ＝ 0<br /> 跳转函数 ＝ { 85, 137, 229, 83, 255, 117, 8, 255, 117, 12, 255, 21 } ＋ 到字节集 (取变量数据地址 (跳转地址)) ＋ { 91, 201, 195 }<br /> 置入代码 ({ 83, 81, 139, 69, 12, 64, 139, 8, 128, 249, 232, 117, 248, 139, 72, 1, 141, 92, 8, 5, 139, 11, 193, 225, 8, 129, 249, 0, 85, 139, 236, 141, 64, 4, 117, 225, 137, 216, 89, 91, 137, 69, 244 })<br /> 置入代码 ({ 54, 139, 69, 8, 62, 139, 0, 131, 192, 8, 54, 137, 69, 252, 62, 139, 64, 252, 54, 137, 69, 248 })<br /> qsort (数组地址, 成员数量, 4, 取变量数据地址 (跳转函数))

  

DLL命令名	返回值类型	公开	备 注
qsort	整数型		快速排序   msvcrt.dll   与   ntdll.dll  皆可
DLL库文件名:
ntdll.dll
在DLL库中对应命令名:
@qsort
参数名	类 型	传址	数组	备 注
起始地址	整数型			待排序数组首地址 通用型 + 8
数组数量	整数型			数组中待排序元素数量 通用型 + 4
元素尺寸	整数型			sizeof(s)一般为4  各元素的占用空间大小
比较函数	整数型			指向比较函数的指针，用于确定排序的顺序

.版本 2<br /> <br /> .DLL命令 qsort, 整数型, "ntdll.dll", "@qsort", , 快速排序   msvcrt.dll   与   ntdll.dll  皆可<br />     .参数 起始地址, 整数型, , 待排序数组首地址 通用型 + 8<br />     .参数 数组数量, 整数型, , 数组中待排序元素数量 通用型 + 4<br />     .参数 元素尺寸, 整数型, , sizeof(s)一般为4  各元素的占用空间大小<br />     .参数 比较函数, 整数型, , 指向比较函数的指针，用于确定排序的顺序

示例源码 ↓

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
猪圈	大肥猪	20

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
计次	整数型

排序前.行数 ＝ 取数组成员数 (猪圈) ＋ 1
排序后.行数 ＝ 取数组成员数 (猪圈) ＋ 1
排序前.置数据 (计次, 0, 1, “姓名”)
排序前.置数据 (计次, 1, 1, “身高”)
排序前.置数据 (计次, 2, 1, “体重”)
排序后.置数据 (计次, 0, 1, “姓名”)
排序后.置数据 (计次, 1, 1, “身高”)
排序后.置数据 (计次, 2, 1, “体重”)
计次循环首 (取数组成员数 (猪圈), 计次)
猪圈 [计次].身高 ＝ 取随机数 (0, 9)
猪圈 [计次].体重 ＝ 取随机数 (0, 99) ÷ 10
猪圈 [计次].姓名 ＝ 选择 (取随机数 (0, 1) ＝ 1, “大”, “小”) ＋ 文本_取随机汉字 (2, 0) ＋ “猪”
排序前.置数据 (计次, 0, 1, 猪圈 [计次].姓名)
排序前.置数据 (计次, 1, 1, 猪圈 [计次].身高)
排序前.置数据 (计次, 2, 1, 猪圈 [计次].体重)
计次循环尾 ()
多项排序 (猪圈, &比较)
计次循环首 (取数组成员数 (猪圈), 计次)
排序后.置数据 (计次, 0, 1, 猪圈 [计次].姓名)
排序后.置数据 (计次, 1, 1, 猪圈 [计次].身高)
排序后.置数据 (计次, 2, 1, 猪圈 [计次].体重)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
比较	整数型		自行设计大于小于等于分别返回什么
参数名	类 型	参考	可空	数组	备 注
一	大肥猪
二	大肥猪

判断 (一.身高 ＞ 二.身高)  ' 大于
返回 (1)
判断 (一.身高 ＜ 二.身高)  ' 小于
返回 (-1)
判断 (一.体重 ＞ 二.体重)  ' 身高 不大于也不小于 说明相等 那就继续比较 体重
返回 (1)
判断 (一.体重 ＜ 二.体重)
返回 (-1)
返回 (0)  ' 都相等 就 返回(0)
' 这里只拿两个条件举例

子程序名	返回值类型	公开	备 注
文本_取随机汉字	文本型		取常用的随机汉字
参数名	类 型	参考	可空	数组	备 注
个数	整数型				要取出多少个汉字！
汉字或全拼	整数型				0为汉字，1为全拼音！

变量名	类 型	静态	数组	备 注
计次	整数型
得到的文本	文本型

置随机数种子 ()
计次循环首 (个数, 计次)
如果真 (汉字或全拼 ＝ 0)
得到的文本 ＝ 得到的文本 ＋ 到文本 (字符 (���取随机数 (38, 80)) ＋ 字符 (���取随机数 (38, 80)))
如果真 (汉字或全拼 ＝ 1)
得到的文本 ＝ 得到的文本 ＋ 取拼音 (到文本 (字符 (���取随机数 (38, 80)) ＋ 字符 (���取随机数 (38, 80))), 1)
处理事件 ()
计次循环尾 ()
返回 (得到的文本)

子程序名	返回值类型	公开	备 注
_开始排序_被单击

变量名	类 型	静态	数组	备 注
计次	整数型
T	整数型

开始排序.禁止 ＝ 真
重定义数组 (猪圈, 假, 100000)
' 排序前.行数 ＝ 取数组成员数 (猪圈) ＋ 1
' 排序后.行数 ＝ 取数组成员数 (猪圈) ＋ 1
计次循环首 (取数组成员数 (猪圈), 计次)
猪圈 [计次].身高 ＝ 取随机数 (0, 9)
猪圈 [计次].体重 ＝ 取随机数 (0, 99) ÷ 10
猪圈 [计次].姓名 ＝ 选择 (取随机数 (0, 1) ＝ 1, “大”, “小”) ＋ 文本_取随机汉字 (2, 0) ＋ “猪”
' 排序前.置数据 (计次, 0, 1, 猪圈 [计次].姓名)
' 排序前.置数据 (计次, 1, 1, 猪圈 [计次].身高)
' 排序前.置数据 (计次, 2, 1, 猪圈 [计次].体重)
计次循环尾 ()
T ＝ 取启动时间 ()
多项排序 (猪圈, &比较)
调试输出 (“排序十万头猪耗时”, 取启动时间 () － T, “毫秒”)
计次循环首 (取数组成员数 (猪圈), 计次)
' 排序后.置数据 (计次, 0, 1, 猪圈 [计次].姓名)
' 排序后.置数据 (计次, 1, 1, 猪圈 [计次].身高)
' 排序后.置数据 (计次, 2, 1, 猪圈 [计次].体重)
计次循环尾 ()  ' 表格展示数据太慢了 屏蔽之~~~
开始排序.禁止 ＝ 假

i支持库列表	支持库注释
eGrid	高级表格支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eGrid<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 猪圈, 大肥猪, , "20"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 计次, 整数型<br /> <br /> 排序前.行数 ＝ 取数组成员数 (猪圈) ＋ 1<br /> 排序后.行数 ＝ 取数组成员数 (猪圈) ＋ 1<br /> <br /> 排序前.置数据 (计次, 0, 1, “姓名”)<br /> 排序前.置数据 (计次, 1, 1, “身高”)<br /> 排序前.置数据 (计次, 2, 1, “体重”)<br /> <br /> 排序后.置数据 (计次, 0, 1, “姓名”)<br /> 排序后.置数据 (计次, 1, 1, “身高”)<br /> 排序后.置数据 (计次, 2, 1, “体重”)<br /> <br /> .计次循环首 (取数组成员数 (猪圈), 计次)<br />     猪圈 [计次].身高 ＝ 取随机数 (0, 9)<br />     猪圈 [计次].体重 ＝ 取随机数 (0, 99) ÷ 10<br />     猪圈 [计次].姓名 ＝ 选择 (取随机数 (0, 1) ＝ 1, “大”, “小”) ＋ 文本_取随机汉字 (2, 0) ＋ “猪”<br />     排序前.置数据 (计次, 0, 1, 猪圈 [计次].姓名)<br />     排序前.置数据 (计次, 1, 1, 猪圈 [计次].身高)<br />     排序前.置数据 (计次, 2, 1, 猪圈 [计次].体重)<br /> .计次循环尾 ()<br /> <br /> 多项排序 (猪圈, &比较)<br /> <br /> .计次循环首 (取数组成员数 (猪圈), 计次)<br />     排序后.置数据 (计次, 0, 1, 猪圈 [计次].姓名)<br />     排序后.置数据 (计次, 1, 1, 猪圈 [计次].身高)<br />     排序后.置数据 (计次, 2, 1, 猪圈 [计次].体重)<br /> .计次循环尾 ()<br /> <br /> .子程序 比较, 整数型, , 自行设计大于小于等于分别返回什么<br /> .参数 一, 大肥猪<br /> .参数 二, 大肥猪<br /> <br /> .判断开始 (一.身高 ＞ 二.身高)  ' 大于<br />     返回 (1)<br /> .判断 (一.身高 ＜ 二.身高)  ' 小于<br />     返回 (-1)<br /> .判断 (一.体重 ＞ 二.体重)  ' 身高 不大于也不小于 说明相等 那就继续比较 体重<br />     返回 (1)<br /> .判断 (一.体重 ＜ 二.体重)<br />     返回 (-1)<br /> .默认<br />     返回 (0)  ' 都相等 就 返回(0)<br /> .判断结束<br /> ' 这里只拿两个条件举例<br /> <br /> .子程序 文本_取随机汉字, 文本型, 公开, 取常用的随机汉字<br /> .参数 个数, 整数型, , 要取出多少个汉字！<br /> .参数 汉字或全拼, 整数型, 可空, 0为汉字，1为全拼音！<br /> .局部变量 计次, 整数型<br /> .局部变量 得到的文本, 文本型<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (个数, 计次)<br />     .如果真 (汉字或全拼 ＝ 0)<br />         得到的文本 ＝ 得到的文本 ＋ 到文本 (字符 (－取随机数 (38, 80)) ＋ 字符 (－取随机数 (38, 80)))<br />     .如果真结束<br />     .如果真 (汉字或全拼 ＝ 1)<br />         得到的文本 ＝ 得到的文本 ＋ 取拼音 (到文本 (字符 (－取随机数 (38, 80)) ＋ 字符 (－取随机数 (38, 80))), 1)<br />     .如果真结束<br />     处理事件 ()<br /> .计次循环尾 ()<br /> 返回 (得到的文本)<br /> <br /> .子程序 _开始排序_被单击<br /> .局部变量 计次, 整数型<br /> .局部变量 T, 整数型<br /> <br /> 开始排序.禁止 ＝ 真<br /> 重定义数组 (猪圈, 假, 100000)<br /> <br /> ' 排序前.行数 ＝ 取数组成员数 (猪圈) ＋ 1<br /> ' 排序后.行数 ＝ 取数组成员数 (猪圈) ＋ 1<br /> <br /> .计次循环首 (取数组成员数 (猪圈), 计次)<br />     猪圈 [计次].身高 ＝ 取随机数 (0, 9)<br />     猪圈 [计次].体重 ＝ 取随机数 (0, 99) ÷ 10<br />     猪圈 [计次].姓名 ＝ 选择 (取随机数 (0, 1) ＝ 1, “大”, “小”) ＋ 文本_取随机汉字 (2, 0) ＋ “猪”<br />     ' 排序前.置数据 (计次, 0, 1, 猪圈 [计次].姓名)<br />     ' 排序前.置数据 (计次, 1, 1, 猪圈 [计次].身高)<br />     ' 排序前.置数据 (计次, 2, 1, 猪圈 [计次].体重)<br /> .计次循环尾 ()<br /> <br /> <br /> T ＝ 取启动时间 ()<br /> 多项排序 (猪圈, &比较)<br /> 调试输出 (“排序十万头猪耗时”, 取启动时间 () － T, “毫秒”)<br /> <br /> <br /> .计次循环首 (取数组成员数 (猪圈), 计次)<br />     ' 排序后.置数据 (计次, 0, 1, 猪圈 [计次].姓名)<br />     ' 排序后.置数据 (计次, 1, 1, 猪圈 [计次].身高)<br />     ' 排序后.置数据 (计次, 2, 1, 猪圈 [计次].体重)<br /> .计次循环尾 ()  ' 表格展示数据太慢了 屏蔽之~~~<br /> 开始排序.禁止 ＝ 假

  

数据类型名	公开	备 注
大肥猪
成员名	类 型	传址	数组	备 注
身高	整数型
体重	双精度小数型
姓名	文本型

.版本 2<br /> <br /> .数据类型 大肥猪<br />     .成员 身高, 整数型<br />     .成员 体重, 双精度小数型<br />     .成员 姓名, 文本型

如果觉得判断的嵌套不方便查看分支那按下面这种格式书写也可以

  

子程序名	返回值类型	公开	备 注
比较	整数型		类型 与 比较成员 自行更改
参数名	类 型	参考	可空	数组	备 注
A	大肥猪
B	大肥猪

' 先比较↓
如果真 (A.身高 ＞ B.身高)
返回 (1)
如果真 (A.身高 ＜ B.身高)
返回 (-1)
' 再比较↓
如果真 (A.体重 ＞ B.体重)
返回 (1)
如果真 (A.体重 ＜ B.体重)
返回 (-1)
' 全相等↓
返回 (0)

.版本 2<br /> <br /> .子程序 比较, 整数型, , 类型 与 比较成员 自行更改<br /> .参数 A, 大肥猪<br /> .参数 B, 大肥猪<br /> <br /> ' 先比较↓<br /> .如果真 (A.身高 ＞ B.身高)<br />     返回 (1)<br /> .如果真结束<br /> .如果真 (A.身高 ＜ B.身高)<br />     返回 (-1)<br /> .如果真结束<br /> ' 再比较↓<br /> .如果真 (A.体重 ＞ B.体重)<br />     返回 (1)<br /> .如果真结束<br /> .如果真 (A.体重 ＜ B.体重)<br />     返回 (-1)<br /> .如果真结束<br /> ' 全相等↓<br /> 返回 (0)

https://xzt168.lanzouj.com/irFYG259htoh

不想安装汇编插件的可以虚函数套娃的方式引用多条件排序↓ 不过速度会慢两三倍 大规模的数据 或者单一条件 不需要这个方案 优点是方便一点点 缺点是真的慢

  

多项排序 (猪圈, &虚晃一枪)

子程序名	返回值类型	公开	备 注
虚晃一枪			不想安装汇编插件的话 可以拿一个虚函数套一层娃 会牺牲最少两三倍的速度

变量名	类 型	静态	数组	备 注
虚晃一枪	大肥猪			局部变量类型和你要排序的数组类型保持一致 比较函数的两个参数也一样

比较 (虚晃一枪, 虚晃一枪)  ' 拿来骗编译器的~~~

子程序名	返回值类型	公开	备 注
比较	整数型		类型 与 比较成员 自行更改
参数名	类 型	参考	可空	数组	备 注
A	大肥猪
B	大肥猪

变量名	类 型	静态	数组	备 注
释放地址	整数型

置入代码 ({ 139, 69, 8, 139, 0, 137, 69, 252 })
释放内存 (释放地址)  ' 清理 虚假的参数 内存占用 虚函数 局部变量
置入代码 ({ 201 })  ' 骗完编译器再返回前面的堆栈 获取真实的参数
' ↑以上模版不要随意更改 ↓以下比较规则可以随意
' 先比较↓
如果真 (A.身高 ＞ B.身高)
返回 (1)
如果真 (A.身高 ＜ B.身高)
返回 (-1)
' 再比较↓
如果真 (A.体重 ＞ B.体重)
返回 (1)
如果真 (A.体重 ＜ B.体重)
返回 (-1)
' 全相等↓
返回 (0)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> 多项排序 (猪圈, &虚晃一枪)<br /> <br /> .子程序 虚晃一枪, , , 不想安装汇编插件的话 可以拿一个虚函数套一层娃 会牺牲最少两三倍的速度<br /> .局部变量 虚晃一枪, 大肥猪, , , 局部变量类型和你要排序的数组类型保持一致 比较函数的两个参数也一样<br /> <br /> 比较 (虚晃一枪, 虚晃一枪)  ' 拿来骗编译器的~~~<br /> <br /> .子程序 比较, 整数型, , 类型 与 比较成员 自行更改<br /> .参数 A, 大肥猪<br /> .参数 B, 大肥猪<br /> .局部变量 释放地址, 整数型<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 137, 69, 252 })<br /> 释放内存 (释放地址)  ' 清理 虚假的参数 内存占用 虚函数 局部变量<br /> 置入代码 ({ 201 })  ' 骗完编译器再返回前面的堆栈 获取真实的参数<br /> <br /> ' ↑以上模版不要随意更改 ↓以下比较规则可以随意<br /> <br /> ' 先比较↓<br /> .如果真 (A.身高 ＞ B.身高)<br />     返回 (1)<br /> .如果真结束<br /> .如果真 (A.身高 ＜ B.身高)<br />     返回 (-1)<br /> .如果真结束<br /> ' 再比较↓<br /> .如果真 (A.体重 ＞ B.体重)<br />     返回 (1)<br /> .如果真结束<br /> .如果真 (A.体重 ＜ B.体重)<br />     返回 (-1)<br /> .如果真结束<br /> ' 全相等↓<br /> 返回 (0)

来自群组: 热心网友

笨来无一悟

易语言内联汇编器v3.2-更新nasm汇编引擎 伪指令 宏定义
https://bbs.125.la/forum.php?mod=viewthread&tid=14781323
(出处: 精易论坛)
需要多条件排序的小伙陪可以先安装一下这个支持库
没留意子程序参数非基础类型不让取子程序指针
以后再改个不需要支持库的看看能不能成功

笨来无一悟

脱离汇编插件 并且不掉速的版本 引用起来会麻烦一些大佬们跑的太快 蠢新我望尘莫及

小月虫

感谢大神分享~！

bianyuan456

已经顶贴，感谢您对论坛的支持！

lqylbh

开源精神必须支持~

光影魔术

感谢分享源码

wjswzj0

开源精神必须支持~

一指温柔

感谢分享，很给力！~

396384183

学习一下

year1970

感谢分享