两个编辑框内容对比排序

蚂蚁爱大象

编辑框2按编辑框1的姓名顺序重新排序
非常感谢您的解答！！
测试.e (2.26 KB, 下载次数: 8)

2024-8-9 18:31 上传

点击文件名下载附件

真冬

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

编辑框2.内容 ＝ 让2按1的姓名顺序重新排序 (编辑框1.内容, 编辑框2.内容)

子程序名	返回值类型	公开	备 注
让2按1的姓名顺序重新排序	文本型
参数名	类 型	参考	可空	数组	备 注
参数1	文本型
参数2	文本型

变量名	类 型	静态	数组	备 注
a	整数型
aa	文本型
b	文本型
bb	文本型
c1	整数型
c2	整数型
c	整数型

a ＝ 打开内存文件 ()
写出文本 (a, 参数1)
移到文件首 (a)
b ＝ #换行符 ＋ 参数2 ＋ #换行符
c ＝ 打开内存文件 ()
判断循环首 (是否在文件尾 (a, ) ＝ 假)
aa ＝ 读入一行 (a)
bb ＝ 取文本左边 (aa, 寻找文本 (aa, “，”, , 假))
c1 ＝ 寻找文本 (b, #换行符 ＋ bb, , 假)
如果真 (c1 ≠ -1)
c1 ＝ c1 ＋ 2
c2 ＝ 寻找文本 (b, #换行符, c1, 假)
写文本行 (c, 取文本中间 (b, c1, c2 － c1))

判断循环尾 ()
移到文件首 (c)
aa ＝ 读入文本 (c, )
返回 (aa)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框2.内容 ＝ 让2按1的姓名顺序重新排序 (编辑框1.内容, 编辑框2.内容)<br /> <br /> .子程序 让2按1的姓名顺序重新排序, 文本型<br /> .参数 参数1, 文本型<br /> .参数 参数2, 文本型<br /> .局部变量 a, 整数型<br /> .局部变量 aa, 文本型<br /> .局部变量 b, 文本型<br /> .局部变量 bb, 文本型<br /> .局部变量 c1, 整数型<br /> .局部变量 c2, 整数型<br /> .局部变量 c, 整数型<br /> <br /> a ＝ 打开内存文件 ()<br /> 写出文本 (a, 参数1)<br /> 移到文件首 (a)<br /> b ＝ #换行符 ＋ 参数2 ＋ #换行符<br /> c ＝ 打开内存文件 ()<br /> .判断循环首 (是否在文件尾 (a, ) ＝ 假)<br />     aa ＝ 读入一行 (a)<br />     bb ＝ 取文本左边 (aa, 寻找文本 (aa, “，”, , 假))<br />     c1 ＝ 寻找文本 (b, #换行符 ＋ bb, , 假)<br />     .如果真 (c1 ≠ -1)<br />         c1 ＝ c1 ＋ 2<br />         c2 ＝ 寻找文本 (b, #换行符, c1, 假)<br />         写文本行 (c, 取文本中间 (b, c1, c2 － c1))<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 移到文件首 (c)<br /> aa ＝ 读入文本 (c, )<br /> 返回 (aa)

如果你觉得他们的代码运行的慢可以试试我的

LEOONL

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文本	文本型		0
n	整数型
文本2	文本型		0
排序文本	文本型
i	整数型

文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
文本2 ＝ 分割文本 (编辑框2.内容, #换行符, )
计次循环首 (取数组成员数 (文本), n)
计次循环首 (取数组成员数 (文本2), i)
如果真 (取文本左边 (文本 [n], 4) ＝ 取文本左边 (文本2 [i], 4))
排序文本 ＝ 排序文本 ＋ 文本2 [i] ＋ #换行符
跳出循环 ()

计次循环尾 ()
计次循环尾 ()
编辑框2.内容 ＝ 排序文本

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 文本2, 文本型, , "0"<br /> .局部变量 排序文本, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 文本2 ＝ 分割文本 (编辑框2.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (文本), n)<br />     .计次循环首 (取数组成员数 (文本2), i)<br />         .如果真 (取文本左边 (文本 [n], 4) ＝ 取文本左边 (文本2 <i>, 4))<br />             排序文本 ＝ 排序文本 ＋ 文本2 <i> ＋ #换行符<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 编辑框2.内容 ＝ 排序文本

LEOONL

你咋又有这么多币啦，真的是充的呀？

笨来无一悟

自定义数据类型 【通用排序】 多条件最终优化版
https://bbs.125.la/forum.php?mod=viewthread&tid=14829320
(出处: 精易论坛)
几乎可以应对一切排序

LEOONL

精币给再多也不值钱呀，你不如直接打赏交易币呢

LEOONL

你的文本两边是都是一模一样的 只是顺序不同吗

LEOONL

本来想直接判断文本 [n]=文本2 的，结果判断出来不一样，尾部可能是有字符(10)，就用取左边来判断了

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文本	文本型		0
n	整数型
文本2	文本型		0
排序文本	文本型
i	整数型

文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
文本2 ＝ 分割文本 (编辑框2.内容, #换行符, )
计次循环首 (取数组成员数 (文本), n)
计次循环首 (取数组成员数 (文本2), i)
如果真 (文本_取左边 (文本 [n], “，”) ＝ 文本_取左边 (文本2 [i], “，”))
排序文本 ＝ 排序文本 ＋ 文本2 [i] ＋ #换行符
跳出循环 ()

计次循环尾 ()
计次循环尾 ()
编辑框2.内容 ＝ 排序文本

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 文本2, 文本型, , "0"<br /> .局部变量 排序文本, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 文本2 ＝ 分割文本 (编辑框2.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (文本), n)<br />     .计次循环首 (取数组成员数 (文本2), i)<br />         .如果真 (文本_取左边 (文本 [n], “，”) ＝ 文本_取左边 (文本2 <i>, “，”))<br />             排序文本 ＝ 排序文本 ＋ 文本2 <i> ＋ #换行符<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 编辑框2.内容 ＝ 排序文本

jin1oo1