多因子排序

unit10000 · 发表于 2020-11-14 02:15:24

多因子排序

56766876 · 发表于 2020-11-13 22:12:53

谢谢分享

.版本 2
.支持库 spec
.支持库 DeelxRegEx

.程序集窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 arr, 文本型, , "0"
.局部变量 i, 整数型

arr ＝分割文本 (编辑框1.内容, #换行符, )
原地排序 (arr, &多因子排序)
.计次循环首 (取数组成员数 (arr), i)
编辑框2.加入文本 (arr <i>, #换行符)
.计次循环尾 ()

.子程序原地排序
.参数 arr, 文本型, 数组
.参数 cmparefun, 子程序指针
.局部变量 len, 整数型
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 ret, 逻辑型

len ＝取数组成员数 (arr)
.计次循环首 (len, i)
.变量循环首 (i ＋ 1, len, 1, j)
      调用子程序 (cmparefun, , ret, arr <i>, arr [j])
      .如果真 (ret)
         交换变量 (arr <i>, arr [j])
      .如果真结束

.变量循环尾 ()
.计次循环尾 ()

.子程序多因子排序, 逻辑型, , 真需要交换，假不需要交换
.参数 a, 文本型
.参数 b, 文本型
.局部变量 reg, 正则表达式DEELX
.局部变量结果1, 搜索结果DEELX
.局部变量结果2, 搜索结果DEELX
.局部变量比较值, 整数型

reg.创建 (“(\d+)楼(\d+)单元(\d+)”, , )
结果1 ＝ reg.搜索 (a, )
结果2 ＝ reg.搜索 (b, )
比较值＝到整数 (结果1.取子匹配文本 (1)) －到整数 (结果2.取子匹配文本 (1))
.如果 (比较值＞ 0)
返回 (真)
.否则
.如果真 (比较值＝ 0)
      比较值＝到整数 (结果1.取子匹配文本 (2)) －到整数 (结果2.取子匹配文本 (2))
      .如果 (比较值＞ 0)
         返回 (真)
      .否则
         .如果真 (比较值＝ 0)
            比较值＝到整数 (结果1.取子匹配文本 (3)) －到整数 (结果2.取子匹配文本 (3))
            .如果真 (比较值＞ 0)
                  返回 (真)
            .如果真结束

         .如果真结束

      .如果结束

.如果真结束

.如果结束
返回 (假)

sfqosk · 发表于 2020-11-13 16:12:29

好东西不错支持一下

外星星人 · 发表于 2020-11-13 13:04:09

感谢分享，

panda92 · 发表于 2020-11-13 08:52:41

感谢分享下载学习

列明 · 发表于 2020-11-12 23:53:50

合併多因子後利用正則取關鍵（數）字進行排序，不錯的思路。

波罗吹水 · 发表于 2020-11-12 15:59:00

感谢分享，很给力！~

月恒 · 发表于 2020-11-12 13:44:17

感谢分享，很给力！~

a6546 · 发表于 2020-11-12 11:44:29

好东西不错支持一下

53770zhang · 发表于 2020-11-12 08:50:08

这个好

		自动登录	找回密码
密码			注册

[2020开源大赛(第五届)] 多因子排序