自定义数据类型 【 通用排序 】模版 通用 通用 通用...

笨来无一悟

通用排序 流程设计完毕
https://bbs.125.la/forum.php?mod=viewthread&tid=14827587
(出处: 精易论坛)   ↑ 传送门 ↑

https://xzt168.lanzouj.com/ij9sR23via8d

在此感谢落前辈的无私奉献打开压缩包里面的两个源码 参考示例的引用方式 补全其他数据类型就可以了

回头还得测试各种不同的写法看看怎么样更快 到时候再发布一个正式版本求路过的热心网友指点一二

有需要用到自定义类型排序的小伙伴 先拿 通用排序模版 和 数组操作_ASM 缝合一下将就将就 又不是不能用

  

子程序名	返回值类型	公开	备 注
通用排序	逻辑型		通用排序 ( 变量名 , 变量名[1].成员名 , 取运行时数据类型( 变量名[1].成员名 ) , 真 / 假 )
参数名	类 型	参考	可空	数组	备 注
待排数组	通用型				变量名
数据成员	通用型				变量名[1].成员名
数据类型	整数型				取运行时数据类型 ( 变量名[1].成员名 )
真升假降	逻辑型				真 = 升序 ( 从小到大 ) 假 = 降序 ( 从大到小 )

变量名	类 型	静态	数组	备 注
局_地址	整数型			赋值0 不可省略 不可更改顺序 局部变量初始化 [ebp-4]
局_偏移	整数型			赋值0 不可省略 不可更改顺序 局部变量初始化 [ebp-8]

局_地址 ＝ 0
局_偏移 ＝ 0
置入代码 ({ 139, 69, 8, 137, 69, 252, 139, 0, 131, 192, 8, 139, 0, 139, 93, 12, 41, 195, 137, 93, 248 })  ' 地址 偏移 赋值
判断 (数据类型 ＝ 十六进制 (“00000000”))  ' 空类型
返回 (假)
判断 (数据类型 ＝ 十六进制 (“80000000”))  ' 通用型
返回 (假)
判断 (数据类型 ＝ 十六进制 (“80000101”))  ' 字节型
判断 (数据类型 ＝ 十六进制 (“80000201”))  ' 短整数
判断 (数据类型 ＝ 十六进制 (“80000301”))  ' 整数型
判断 (数据类型 ＝ 十六进制 (“80000401”))  ' 长整数
判断 (数据类型 ＝ 十六进制 (“80000501”))  ' 小数型
判断 (数据类型 ＝ 十六进制 (“80000601”))  ' 双精度
判断 (数据类型 ＝ 十六进制 (“80000001”))  ' 数值型
返回 (假)
判断 (数据类型 ＝ 十六进制 (“80000002”))  ' 逻辑型
返回 (假)
判断 (数据类型 ＝ 十六进制 (“80000003”))  ' 时间型
判断 (数据类型 ＝ 十六进制 (“80000004”))  ' 文本型
判断 (数据类型 ＝ 十六进制 (“80000005”))  ' 字节集
返回 (假)
判断 (数据类型 ＝ 十六进制 (“80000006”))  ' 子程序
返回 (假)
判断 (数据类型 ＝ 十六进制 (“80000007”))  ' 参考型
返回 (假)
返回 (假)

.版本 2<br /> <br /> .子程序 通用排序, 逻辑型, 公开, 通用排序 ( 变量名 , 变量名[1].成员名 , 取运行时数据类型( 变量名[1].成员名 ) , 真 / 假 )<br /> .参数 待排数组, 通用型, 数组, 变量名<br /> .参数 数据成员, 通用型, 参考, 变量名[1].成员名<br /> .参数 数据类型, 整数型, , 取运行时数据类型 ( 变量名[1].成员名 )<br /> .参数 真升假降, 逻辑型, , 真 = 升序 ( 从小到大 ) 假 = 降序 ( 从大到小 )<br /> .局部变量 局_地址, 整数型, , , 赋值0 不可省略 不可更改顺序 局部变量初始化 [ebp-4]<br /> .局部变量 局_偏移, 整数型, , , 赋值0 不可省略 不可更改顺序 局部变量初始化 [ebp-8]<br /> <br /> 局_地址 ＝ 0<br /> 局_偏移 ＝ 0<br /> 置入代码 ({ 139, 69, 8, 137, 69, 252, 139, 0, 131, 192, 8, 139, 0, 139, 93, 12, 41, 195, 137, 93, 248 })  ' 地址 偏移 赋值<br /> .判断开始 (数据类型 ＝ 十六进制 (“00000000”))  ' 空类型<br />     返回 (假)<br /> .判断 (数据类型 ＝ 十六进制 (“80000000”))  ' 通用型<br />     返回 (假)<br /> .判断 (数据类型 ＝ 十六进制 (“80000101”))  ' 字节型<br /> <br /> .判断 (数据类型 ＝ 十六进制 (“80000201”))  ' 短整数<br /> <br /> .判断 (数据类型 ＝ 十六进制 (“80000301”))  ' 整数型<br /> <br /> .判断 (数据类型 ＝ 十六进制 (“80000401”))  ' 长整数<br /> <br /> .判断 (数据类型 ＝ 十六进制 (“80000501”))  ' 小数型<br /> <br /> .判断 (数据类型 ＝ 十六进制 (“80000601”))  ' 双精度<br /> <br /> .判断 (数据类型 ＝ 十六进制 (“80000001”))  ' 数值型<br />     返回 (假)<br /> .判断 (数据类型 ＝ 十六进制 (“80000002”))  ' 逻辑型<br />     返回 (假)<br /> .判断 (数据类型 ＝ 十六进制 (“80000003”))  ' 时间型<br /> <br /> .判断 (数据类型 ＝ 十六进制 (“80000004”))  ' 文本型<br /> <br /> .判断 (数据类型 ＝ 十六进制 (“80000005”))  ' 字节集<br />     返回 (假)<br /> .判断 (数据类型 ＝ 十六进制 (“80000006”))  ' 子程序<br />     返回 (假)<br /> .判断 (数据类型 ＝ 十六进制 (“80000007”))  ' 参考型<br />     返回 (假)<br /> .默认<br />     返回 (假)

笨来无一悟

通用排序 模版 最终格式

' 类型不支持 返回 ( 假 ) 排序成功 返回 ( 真 )

' 排序前 如果真 ( 取数组成员数 ( 变量名 ) ＞ 0 )

' 数据成员 与 数据类型 变量名[1].成员名 需要 保持一致 否则也许不会返回假↓

' 更可怕的是 → 读取 空指针 导致 软件闪退 所以请 严格检查 第二个 和 第三个 参数

  

子程序名	返回值类型	公开	备 注
通用排序	逻辑型		通用排序 ( 变量名 , 变量名[1].成员名 , 取运行时数据类型( 变量名[1].成员名 ) , 真 / 假 )
参数名	类 型	参考	可空	数组	备 注
待排数组	通用型				变量名
数据成员	通用型				变量名[1].成员名
数据类型	整数型				取运行时数据类型 ( 变量名[1].成员名 )
真升假降	逻辑型				真 = 升序 ( 从小到大 ) 假 = 降序 ( 从大到小 )

变量名	类 型	静态	数组	备 注
局_地址	整数型			赋值0 不可省略 不可更改顺序 局部变量初始化 [ebp-4]
局_偏移	整数型			赋值0 不可省略 不可更改顺序 局部变量初始化 [ebp-8]
局_失败	逻辑型

局_地址 ＝ 0
局_偏移 ＝ 0
局_失败 ＝ 假  ' 默认就是假 强迫症患者 为了确保 万无一失
置入代码 ({ 139, 69, 8, 137, 69, 252, 139, 0, 131, 192, 8, 139, 0, 139, 93, 12, 41, 195, 137, 93, 248 })  ' 地址 偏移 赋值
判断 (数据类型 ＝ 十六进制 (“80000101”))  ' 字节型
排序_字节型 (局_地址, 局_偏移, 真升假降)
判断 (数据类型 ＝ 十六进制 (“80000201”))  ' 短整数
排序_短整数 (局_地址, 局_偏移, 真升假降)
判断 (数据类型 ＝ 十六进制 (“80000301”))  ' 整数型
排序_整数型 (局_地址, 局_偏移, 真升假降)
判断 (数据类型 ＝ 十六进制 (“80000401”))  ' 长整数
排序_长整数 (局_地址, 局_偏移, 真升假降)
判断 (数据类型 ＝ 十六进制 (“80000501”))  ' 小数型
排序_小数型 (局_地址, 局_偏移, 真升假降)
判断 (数据类型 ＝ 十六进制 (“80000601”))  ' 双精度
排序_双精度 (局_地址, 局_偏移, 真升假降)
判断 (数据类型 ＝ 十六进制 (“80000003”))  ' 时间型
排序_时间型 (局_地址, 局_偏移, 真升假降)
判断 (数据类型 ＝ 十六进制 (“80000004”))  ' 文本型
排序_文本型 (局_地址, 局_偏移, 真升假降)
局_失败 ＝ 真
返回 (取反 (局_失败))

子程序名	返回值类型	公开	备 注
排序_字节型			80000101
参数名	类 型	参考	可空	数组	备 注
参_地址	整数型
参_偏移	整数型
参_升降	逻辑型

判断 (参_升降)

子程序名	返回值类型	公开	备 注
排序_短整数			80000201
参数名	类 型	参考	可空	数组	备 注
参_地址	整数型
参_偏移	整数型
参_升降	逻辑型

判断 (参_升降)

子程序名	返回值类型	公开	备 注
排序_整数型			80000301
参数名	类 型	参考	可空	数组	备 注
参_地址	整数型
参_偏移	整数型
参_升降	逻辑型

判断 (参_升降)

子程序名	返回值类型	公开	备 注
排序_长整数			80000401
参数名	类 型	参考	可空	数组	备 注
参_地址	整数型
参_偏移	整数型
参_升降	逻辑型

判断 (参_升降)

子程序名	返回值类型	公开	备 注
排序_小数型			80000501
参数名	类 型	参考	可空	数组	备 注
参_地址	整数型
参_偏移	整数型
参_升降	逻辑型

判断 (参_升降)

子程序名	返回值类型	公开	备 注
排序_双精度			80000601
参数名	类 型	参考	可空	数组	备 注
参_地址	整数型
参_偏移	整数型
参_升降	逻辑型

判断 (参_升降)

子程序名	返回值类型	公开	备 注
排序_时间型			80000003
参数名	类 型	参考	可空	数组	备 注
参_地址	整数型
参_偏移	整数型
参_升降	逻辑型

判断 (参_升降)

子程序名	返回值类型	公开	备 注
排序_文本型			80000004
参数名	类 型	参考	可空	数组	备 注
参_地址	整数型
参_偏移	整数型
参_升降	逻辑型

判断 (参_升降)

.版本 2<br /> <br /> .子程序 通用排序, 逻辑型, 公开, 通用排序 ( 变量名 , 变量名[1].成员名 , 取运行时数据类型( 变量名[1].成员名 ) , 真 / 假 )<br /> .参数 待排数组, 通用型, 数组, 变量名<br /> .参数 数据成员, 通用型, 参考, 变量名[1].成员名<br /> .参数 数据类型, 整数型, , 取运行时数据类型 ( 变量名[1].成员名 )<br /> .参数 真升假降, 逻辑型, , 真 = 升序 ( 从小到大 ) 假 = 降序 ( 从大到小 )<br /> .局部变量 局_地址, 整数型, , , 赋值0 不可省略 不可更改顺序 局部变量初始化 [ebp-4]<br /> .局部变量 局_偏移, 整数型, , , 赋值0 不可省略 不可更改顺序 局部变量初始化 [ebp-8]<br /> .局部变量 局_失败, 逻辑型<br /> <br /> 局_地址 ＝ 0<br /> 局_偏移 ＝ 0<br /> 局_失败 ＝ 假  ' 默认就是假 强迫症患者 为了确保 万无一失<br /> 置入代码 ({ 139, 69, 8, 137, 69, 252, 139, 0, 131, 192, 8, 139, 0, 139, 93, 12, 41, 195, 137, 93, 248 })  ' 地址 偏移 赋值<br /> .判断开始 (数据类型 ＝ 十六进制 (“80000101”))  ' 字节型<br />     排序_字节型 (局_地址, 局_偏移, 真升假降)<br /> .判断 (数据类型 ＝ 十六进制 (“80000201”))  ' 短整数<br />     排序_短整数 (局_地址, 局_偏移, 真升假降)<br /> .判断 (数据类型 ＝ 十六进制 (“80000301”))  ' 整数型<br />     排序_整数型 (局_地址, 局_偏移, 真升假降)<br /> .判断 (数据类型 ＝ 十六进制 (“80000401”))  ' 长整数<br />     排序_长整数 (局_地址, 局_偏移, 真升假降)<br /> .判断 (数据类型 ＝ 十六进制 (“80000501”))  ' 小数型<br />     排序_小数型 (局_地址, 局_偏移, 真升假降)<br /> .判断 (数据类型 ＝ 十六进制 (“80000601”))  ' 双精度<br />     排序_双精度 (局_地址, 局_偏移, 真升假降)<br /> .判断 (数据类型 ＝ 十六进制 (“80000003”))  ' 时间型<br />     排序_时间型 (局_地址, 局_偏移, 真升假降)<br /> .判断 (数据类型 ＝ 十六进制 (“80000004”))  ' 文本型<br />     排序_文本型 (局_地址, 局_偏移, 真升假降)<br /> .默认<br />     局_失败 ＝ 真<br /> .判断结束<br /> 返回 (取反 (局_失败))<br /> <br /> .子程序 排序_字节型, , , 80000101<br /> .参数 参_地址, 整数型<br /> .参数 参_偏移, 整数型<br /> .参数 参_升降, 逻辑型<br /> <br /> .判断开始 (参_升降)<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 排序_短整数, , , 80000201<br /> .参数 参_地址, 整数型<br /> .参数 参_偏移, 整数型<br /> .参数 参_升降, 逻辑型<br /> <br /> .判断开始 (参_升降)<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 排序_整数型, , , 80000301<br /> .参数 参_地址, 整数型<br /> .参数 参_偏移, 整数型<br /> .参数 参_升降, 逻辑型<br /> <br /> .判断开始 (参_升降)<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 排序_长整数, , , 80000401<br /> .参数 参_地址, 整数型<br /> .参数 参_偏移, 整数型<br /> .参数 参_升降, 逻辑型<br /> <br /> .判断开始 (参_升降)<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 排序_小数型, , , 80000501<br /> .参数 参_地址, 整数型<br /> .参数 参_偏移, 整数型<br /> .参数 参_升降, 逻辑型<br /> <br /> .判断开始 (参_升降)<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 排序_双精度, , , 80000601<br /> .参数 参_地址, 整数型<br /> .参数 参_偏移, 整数型<br /> .参数 参_升降, 逻辑型<br /> <br /> .判断开始 (参_升降)<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 排序_时间型, , , 80000003<br /> .参数 参_地址, 整数型<br /> .参数 参_偏移, 整数型<br /> .参数 参_升降, 逻辑型<br /> <br /> .判断开始 (参_升降)<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 排序_文本型, , , 80000004<br /> .参数 参_地址, 整数型<br /> .参数 参_偏移, 整数型<br /> .参数 参_升降, 逻辑型<br /> <br /> .判断开始 (参_升降)<br /> <br /> .默认<br /> <br /> .判断结束

dulang

感谢分享，非常实用

mytools

看起来很强大的样子！

pq9999

谢谢分享！

renhe2018

感谢分享，非常实用。

何浩文

感谢发布原创作品，精易因你更精彩！6666666666666

光影魔术

感谢分享源码

please

感谢分享，支持开源！！！

ouyasq

感谢分享!感谢分享!

396384183

感谢分享，很给力！~