文本排序

15039346689

如图:编辑框1的内容 按第一个数字大小排序后 写入编辑框2  自己写的有重复咋整,
好久没玩了 求大佬帮帮忙

  

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

变量名	类 型	静态	数组	备 注
分割	文本型		0
分割行	文本型		0
距离	文本型		0
a	整数型
b	整数型
x	整数型
y	整数型
wz1	整数型		0
wz2	整数型		0

分割 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (分割), a)
分割行 ＝ 分割文本 (分割 [a], “-”, 1)
加入成员 (wz1, 到整数 (分割行 [1]))
加入成员 (距离, 分割文本 (分割 [a], “-”, ))
删除成员 (距离, a, )
计次循环尾 ()
调试输出 (距离)
复制数组 (wz2, wz1)
数组排序 (wz1, )
计次循环首 (取数组成员数 (wz1), b)
计次循环首 (取数组成员数 (wz1), x)
如果真 (wz1 [b] ＝ wz2 [x])
编辑框3.加入文本 (距离 [x])

计次循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _排序_被单击<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 分割行, 文本型, , "0"<br /> .局部变量 距离, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 wz1, 整数型, , "0"<br /> .局部变量 wz2, 整数型, , "0"<br /> <br /> 分割 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (分割), a)<br />     分割行 ＝ 分割文本 (分割 [a], “-”, 1)<br />     加入成员 (wz1, 到整数 (分割行 [1]))<br />     加入成员 (距离, 分割文本 (分割 [a], “-”, ))<br />     删除成员 (距离, a, )<br /> <br /> .计次循环尾 ()<br /> 调试输出 (距离)<br /> 复制数组 (wz2, wz1)<br /> 数组排序 (wz1, )<br /> .计次循环首 (取数组成员数 (wz1), b)<br />     .计次循环首 (取数组成员数 (wz1), x)<br />         .如果真 (wz1 <strong> ＝ wz2 [x])<br />             编辑框3.加入文本 (距离 [x])<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> <br /> .计次循环尾 ()

企鹅号525150138

  

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

变量名	类 型	静态	数组	备 注
分割	文本型		0
a	整数型
j	整数型

分割 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (分割), a)
计次循环首 (取数组成员数 (分割) － a, j)
如果真 (到整数 (文本_取左边 (分割 [j], “-”)) ＞ 到整数 (文本_取左边 (分割 [j ＋ 1], “-”)))
交换变量 (分割 [j], 分割 [j ＋ 1])

计次循环尾 ()
计次循环尾 ()
计次循环首 (取数组成员数 (分割), a)
分割 [a] ＝ 文本_取右边 (分割 [a], “-”)
计次循环尾 ()
编辑框2.内容 ＝ 数组_合并 (分割, #换行符 )

.版本 2<br /> <br /> .子程序 _排序_被单击<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 j, 整数型<br /> <br /> 分割 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (分割), a)<br />     .计次循环首 (取数组成员数 (分割) － a, j)<br />         .如果真 (到整数 (文本_取左边 (分割 [j], “-”)) ＞ 到整数 (文本_取左边 (分割 [j ＋ 1], “-”)))<br />             交换变量 (分割 [j], 分割 [j ＋ 1])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (分割), a)<br />     分割 [a] ＝ 文本_取右边 (分割 [a], “-”)<br /> .计次循环尾 ()<br /> 编辑框2.内容 ＝ 数组_合并 (分割, #换行符)

StarAdmire

手上没有源文本不能给你测试，你试试看这个

  

子程序名	返回值类型	公开	备 注
特殊排序
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
分割	文本型		0
i	整数型
临时序号	文本型		0
序号	整数型		0
内容	通用型		0
j	整数型
最终文本	文本型

分割 ＝ 分割文本 (文本, #换行符, )
计次循环首 (取数组成员数 (分割), i)
临时序号 ＝ 分割文本 (分割 [i], “-”, )
加入成员 (序号, 到整数 (临时序号 [1]))
加入成员 (内容, 临时序号 [2])
计次循环尾 ()
' 冒泡排序
计次循环首 (取数组成员数 (序号) － 1, i)
计次循环首 (取数组成员数 (序号) － i, j)
如果真 (序号 [j] ＞ 序号 [j ＋ 1])
交换变量 (序号 [j], 序号 [j ＋ 1])
交换变量 (内容 [j], 内容 [j ＋ 1])

计次循环尾 ()
计次循环尾 ()
调试输出 (序号, 内容)
计次循环首 (取数组成员数 (内容), i)
如果 (最终文本 ＝ “”)
最终文本 ＝ 内容 [i]
最终文本 ＝ 最终文本 ＋ 内容 [i]

计次循环尾 ()
返回 (最终文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 特殊排序<br /> .参数 文本, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 临时序号, 文本型, , "0"<br /> .局部变量 序号, 整数型, , "0"<br /> .局部变量 内容, 通用型, , "0"<br /> .局部变量 j, 整数型<br /> .局部变量 最终文本, 文本型<br /> <br /> 分割 ＝ 分割文本 (文本, #换行符, )<br /> .计次循环首 (取数组成员数 (分割), i)<br />     临时序号 ＝ 分割文本 (分割 <i>, “-”, )<br />     加入成员 (序号, 到整数 (临时序号 [1]))<br />     加入成员 (内容, 临时序号 [2])<br /> .计次循环尾 ()<br /> ' 冒泡排序<br /> .计次循环首 (取数组成员数 (序号) － 1, i)<br />     .计次循环首 (取数组成员数 (序号) － i, j)<br />         .如果真 (序号 [j] ＞ 序号 [j ＋ 1])<br />             交换变量 (序号 [j], 序号 [j ＋ 1])<br />             交换变量 (内容 [j], 内容 [j ＋ 1])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 调试输出 (序号, 内容)<br /> .计次循环首 (取数组成员数 (内容), i)<br />     .如果 (最终文本 ＝ “”)<br />         最终文本 ＝ 内容 <i><br />     .否则<br />         最终文本 ＝ 最终文本 ＋ 内容 <i><br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 返回 (最终文本)

蘇中二少

新建 易程序.e (3.09 KB, 下载次数: 27)

2022-12-27 16:38 上传

点击文件名下载附件