精易论坛

标题: 请教两个小问题，一个数字排序，一个超级列表框！ [打印本页]

---

作者: 私人云    时间: 2025-2-28 23:11
标题: 请教两个小问题，一个数字排序，一个超级列表框！
各位请问一下，超级列表框记次循环记录序号1-100，比如删除其中任意数字，如删除50超级列表框的序号是49-51请问如何自动补齐删除的数字！
第二个问题
我有固定数
101/102/103/104/105/106
201/202/203/204/205/206
数据是乱的可能是105/103/102/103/101
怎么能排序从101依次下排啊，
我不会写所以也没源码提前来问下！

---

作者: frankiy    时间: 2025-2-28 23:15
第一个问题： 就是序号的问题， 删除某个序号，那么重新对序号列进行赋值即可。 循环次数以  超级列表框1.取表项数()  来计次。

第二个问题：先对数据进行分割，然后用  数组_排序()   即可。

---

作者: 算法艺术家    时间: 2025-2-28 23:16
第一个问题，重新写入序号那列，覆盖原来的

---

作者: 算法艺术家    时间: 2025-2-28 23:17
第二个问题，先把数据分割成数组，然后数组排序，然后再拼回去

---

作者: 是可可吖    时间: 2025-2-28 23:18
上面计次循环删除了表项之后，再在下面写一个

计次循环首（超级列表框1.取表项数（），i）
超级列表框1.置标题（i-1,0,到文本（i））
计次循环尾（）

就重新排列序号了

补充内容 (2025-2-28 23:19):
乱序那个问题，直接取序号   数组排序 从小到大

---

作者: 鹏书    时间: 2025-2-28 23:18
数组排序 (, )

---

作者: frankiy    时间: 2025-2-28 23:22


写了一个简单的例子给你参考

删除与排序.e

2025-2-28 23:22 上传

点击文件名下载附件

917.89 KB, 下载次数: 3

---

作者: 是可可吖    时间: 2025-2-28 23:38


例子.e (1 MB, 下载次数: 5)

2025-2-28 23:38 上传

点击文件名下载附件

例子拿去参考吧~

---

作者: 算法艺术家    时间: 2025-2-28 23:53
每次删除完数据，调用一次就行了

  

子程序名	返回值类型	公开	备 注
超列重置首列序号
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
补齐序号位数	整数型				默认为空，不补齐

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

计次循环首 (超级列表框1.取表项数 (), i)
判断 (补齐序号位数 ＝ 0)
超级列表框.置标题 (i － 1, 0, 到文本 (i))
超级列表框.置标题 (i － 1, 0, 文本_自动补零 (到文本 (i), 补齐序号位数))

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超列重置首列序号, , 公开<br /> .参数 超级列表框, 超级列表框<br /> .参数 补齐序号位数, 整数型, 可空, 默认为空，不补齐<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     .判断开始 (补齐序号位数 ＝ 0)<br />         超级列表框.置标题 (i － 1, 0, 到文本 (i))<br />     .默认<br />         超级列表框.置标题 (i － 1, 0, 文本_自动补零 (到文本 (i), 补齐序号位数))<br />     .判断结束<br /> <br /> .计次循环尾 ()

补充内容 (2025-2-28 23:55):
超级列表框1  改成 超级列表框

---

作者: 算法艺术家    时间: 2025-3-1 00:12

  

更新一下版本

子程序名	返回值类型	公开	备 注
超列重置首列序号
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
补齐序号位数	整数型				默认为空，不补齐

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

超级列表框.禁止重画 ()  ' 添加这两条命令，速度会快很多
超级列表框.可视 ＝ 假
计次循环首 (超级列表框.取表项数 (), i)
判断 (补齐序号位数 ＝ 0)
超级列表框.置标题 (i － 1, 0, 到文本 (i))
超级列表框.置标题 (i － 1, 0, 文本_自动补零 (到文本 (i), 补齐序号位数))

计次循环尾 ()
超级列表框.允许重画 ()
超级列表框.可视 ＝ 真

i支持库列表	支持库注释
iext	扩展界面支持库一

更新一下版本<br /> .版本 2<br /> .支持库 iext<br /> <br /> .子程序 超列重置首列序号, , 公开<br /> .参数 超级列表框, 超级列表框<br /> .参数 补齐序号位数, 整数型, 可空, 默认为空，不补齐<br /> .局部变量 i, 整数型<br /> <br /> 超级列表框.禁止重画 ()  ' 添加这两条命令，速度会快很多<br /> 超级列表框.可视 ＝ 假<br /> .计次循环首 (超级列表框.取表项数 (), i)<br />     .判断开始 (补齐序号位数 ＝ 0)<br />         超级列表框.置标题 (i － 1, 0, 到文本 (i))<br />     .默认<br />         超级列表框.置标题 (i － 1, 0, 文本_自动补零 (到文本 (i), 补齐序号位数))<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 超级列表框.允许重画 ()<br /> 超级列表框.可视 ＝ 真

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4