精易论坛

标题: 超级列表框读写配置和移动表项 [打印本页]

---

作者: Suky    时间: 2022-10-29 00:35
标题: 超级列表框读写配置和移动表项


一点没大用的小东西凑个热闹
其实很早以前就在问答区分享过几次，不过没发过源码分享帖
与曾分享过的附件相比有稍作整理
源码是基于<报表列表框>类型写的，其他类型的请根据实际情况自行修改
[hide=d900]精易论坛  Suky(UID: 606986)    其他网站转载请注明来源
Adm_超级列表框读写配置和移动表项.e (943.35 KB, 下载次数: 137)

2022-10-29 00:35 上传

点击文件名下载附件
下载积分: 精币 -2 枚

[/hide]
[groupid=227]热心网友[/groupid]

补充内容 (2022-11-2 03:10):
上移和下移的子程序有个小bug，已修复   感谢  @qq小鸭的反馈；新源码已上传到置顶楼层

补充内容 (2022-11-20 14:40):
别发私信了，倒是看看置顶楼层啊……

QQ图片20221029003002.png (38.69 KB, 下载次数: 21)

下载附件

2022-10-29 00:30 上传

---

作者: wuqingg    时间: 2022-10-29 08:59
感谢分享，很给力！~

---

作者: 文西哥    时间: 2022-10-29 09:02
感谢分享，很给力！~

---

作者: nvnv    时间: 2022-10-29 09:04
感谢分享，学习下！~

---

作者: qinmi    时间: 2022-10-29 09:05
感谢分享，很给力！~

---

作者: 3531314783    时间: 2022-10-29 09:11
是佛挡杀佛懂法守法

---

作者: FUYUEPC    时间: 2022-10-29 09:18
非常不错，看了就要回复，留名！@！！！！

---

作者: jysoft2022    时间: 2022-10-29 09:18
支持开源~！感谢分享

---

作者: mythleng    时间: 2022-10-29 09:19
谢谢分享。

---

作者: zifeiyu    时间: 2022-10-29 09:23
6666666666666666666666666666666

---

作者: 小了白了兔    时间: 2022-10-29 09:27

支持开源~！感谢分享

---

作者: TBit    时间: 2022-10-29 09:38
感谢分享

---

作者: dashang    时间: 2022-10-29 09:54
感谢分享，很给力！~

---

作者: seven7c    时间: 2022-10-29 10:06
RE: 超级列表框读写配置和移动表项 [修改]

---

作者: shuaier    时间: 2022-10-29 10:07
支持开源~！感谢分享

---

作者: wmv520    时间: 2022-10-29 10:12
        感谢分享，很给力！~

---

作者: 菠萝儿    时间: 2022-10-29 10:16
支持开源

---

作者: faka23    时间: 2022-10-29 10:20
#在这里快速回复#一点没大用的小东西凑个热闹

---

作者: ensurf    时间: 2022-10-29 10:24
这个可以有，感谢楼主分享

---

作者: Suky    时间: 2022-10-29 10:32

  

子程序名	返回值类型	公开	备 注
Adm_超级列表框_保存配置			保存超级列表框标题数据到配置文件,与<Adm_超级列表框_读入数据>配套使用   适用于<报表列表框>
参数名	类 型	参考	可空	数组	备 注
P_配置文件路径	文本型				要保存的配置文件路径，需包含文件名，建议txt或ini格式确保能正确写入
P_超级列表框	超级列表框				要进行保存的超级列表框组件名称
P_分隔符	文本型				表项配置文本分隔符，需超列标题中未包含的 文本组合

变量名	类 型	静态	数组	备 注
n	整数型			表项循环数
i	整数型			列循环数
L_文本	文本型
L_列循环数	整数型
L_组件名	文本型

L_列循环数 ＝ P_超级列表框.取列数 () － 1
L_组件名 ＝ 取组件名称 (P_超级列表框)  ' 取组件名用作节名称，与 Adm_超级列表框_读入配置 节名称保持一致
计次循环首 (P_超级列表框.取表项数 (), n)  ' 依次读取每一个表项数据并进行处理
计次循环首 (L_列循环数, i)  ' 获取当前处理表项总列数,并依次添加到要保存的数据文本中
L_文本 ＝ L_文本 ＋ P_超级列表框.取标题 (n － 1, i) ＋ P_分隔符
计次循环尾 ()
写配置项 (P_配置文件路径, L_组件名, P_超级列表框.取标题 (n － 1, 0), L_文本)  ' 首列作为配置项名，不加入配置项文本
L_文本 ＝ “”
计次循环尾 ()
返回 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 Adm_超级列表框_保存配置, , 公开, 保存超级列表框标题数据到配置文件,与<Adm_超级列表框_读入数据>配套使用   适用于<报表列表框><br /> .参数 P_配置文件路径, 文本型, , 要保存的配置文件路径，需包含文件名，建议txt或ini格式确保能正确写入<br /> .参数 P_超级列表框, 超级列表框, , 要进行保存的超级列表框组件名称<br /> .参数 P_分隔符, 文本型, , 表项配置文本分隔符，需超列标题中未包含的 文本组合<br /> .局部变量 n, 整数型, , , 表项循环数<br /> .局部变量 i, 整数型, , , 列循环数<br /> .局部变量 L_文本, 文本型<br /> .局部变量 L_列循环数, 整数型<br /> .局部变量 L_组件名, 文本型<br /> <br /> L_列循环数 ＝ P_超级列表框.取列数 () － 1<br /> L_组件名 ＝ 取组件名称 (P_超级列表框)  ' 取组件名用作节名称，与 Adm_超级列表框_读入配置 节名称保持一致<br /> .计次循环首 (P_超级列表框.取表项数 (), n)  ' 依次读取每一个表项数据并进行处理<br />     .计次循环首 (L_列循环数, i)  ' 获取当前处理表项总列数,并依次添加到要保存的数据文本中<br />                L_文本 ＝ L_文本 ＋ P_超级列表框.取标题 (n － 1, i) ＋ P_分隔符<br />     .计次循环尾 ()<br />     写配置项 (P_配置文件路径, L_组件名, P_超级列表框.取标题 (n － 1, 0), L_文本)  ' 首列作为配置项名，不加入配置项文本<br />     L_文本 ＝ “”<br /> .计次循环尾 ()<br /> 返回 ()

这个子程序可以这样优化一下
详细原因的可以参看此帖：
分割文本（）的隐藏设定？
https://125.confly.eu.org/forum.php?mod=viewthread&tid=14747213
(出处: 精易论坛)

---

作者: zzzzzzzz88    时间: 2022-10-29 10:33
看一下！！！！

---

作者: 易不简单    时间: 2022-10-29 10:38
66666666666666

---

作者: 得意须尽欢    时间: 2022-10-29 10:41
我已经开始了我觉得可以

---

作者: pt1314    时间: 2022-10-29 10:51
支持开源

---

作者: shinid8210    时间: 2022-10-29 10:56
看看怎么用的

---

作者: cfvgbhnj    时间: 2022-10-29 11:04
        感谢分享，很给力！~

---

作者: q1599273319    时间: 2022-10-29 11:05

---

作者: zhaode2888    时间: 2022-10-29 11:11
感谢分享

---

作者: sinewtec    时间: 2022-10-29 11:13
支持开源 支持开源

---

作者: 56tt    时间: 2022-10-29 11:25
有用，谢谢开源，学习

---

作者: 1347379245    时间: 2022-10-29 11:54
感谢分享!学习

---

作者: 杰西卡技术传媒    时间: 2022-10-29 12:17
感谢分享，很给力！~

---

作者: liudongdong001    时间: 2022-10-29 12:45
其实很早以前就在问答区分享过几次，不过没发过源码分享帖

---

作者: a13511315443    时间: 2022-10-29 13:54
来自群组: 热心网友

---

作者: 划落的天空    时间: 2022-10-29 14:12
看下这个东西哦

---

作者: z5757124    时间: 2022-10-29 15:13
支持开源~！感谢分享

---

作者: ノ朽默℡    时间: 2022-10-29 15:21
楼主辛苦了，谢谢楼主，感谢楼主分享，楼主好人一生平安！！！

---

作者: huhu    时间: 2022-10-29 16:01
十分感谢分享

---

作者: 李泽勇2    时间: 2022-10-29 16:25
下载学习。

---

作者: 弱鸡第一步    时间: 2022-10-29 16:35

如果有用，希望能给个评分，那样我会很高兴的 o(

---

作者: 周七    时间: 2022-10-29 16:38
学习学习，感谢分享

---

作者: ω懿切隨偑℡    时间: 2022-10-29 17:34
如果有用，希望能给个评分，那样我会很高兴的 o(∩_

---

作者: 赵小赵    时间: 2022-10-29 17:44
感谢楼主分享

---

作者: 深爱者    时间: 2022-10-29 18:00
支持开源！感谢分享，论坛有你更精彩~

---

作者: lqylbh    时间: 2022-10-29 19:11
支持开源~！感谢分享

---

作者: 283688410    时间: 2022-10-29 20:23
谢谢开源分享

---

作者: 1364386929    时间: 2022-10-29 21:57
而是纷纷

---

作者: 蒙顺童    时间: 2022-10-29 22:03
666666666666666666666666

---

作者: 星星之夜    时间: 2022-10-29 22:04
感谢分享

---

作者: 易神    时间: 2022-10-29 22:43
支持开源~！感谢分享

---

作者: 六先生    时间: 2022-10-30 00:46
感谢楼主分享，支持一下~~

---

作者: jing2020yi    时间: 2022-10-30 00:48
谢谢分享~

---

作者: 要强不要秃    时间: 2022-10-30 01:34
谢谢分享~

---

作者: fudong    时间: 2022-10-30 09:38
级列表框读写配置和移动表项 [修改]

---

作者: 赵小赵    时间: 2022-10-30 10:13
楼主的可否增加多选的移动

---

作者: 软件编程王    时间: 2022-10-30 10:21
谢谢开源分享

---

作者: yanyukun    时间: 2022-10-30 10:26

分享精神必须支持！

---

作者: zspokzy    时间: 2022-10-30 11:54
支持开源~！感谢分享

---

作者: Suky    时间: 2022-10-30 12:24

赵小赵 发表于 2022-10-30 10:13
楼主的可否增加多选的移动

也不是多难的事，自己写一下吧
P_超级列表框.取被选择表项 ()  得到多选表项索引数组

要上移到顶的话，先计次循环从最前一项开始上移到顶，再计次循环被选择表项数减1的次数，将被选择表项数为索引的表项移动到顶   
要移动到底的话，直接计次循环移动到底，没循环一次，后面的表项索引需要额外加1（前面减少了一项）

---

作者: 无尘666    时间: 2022-10-30 13:45
感谢开源

---

作者: guilaihada    时间: 2022-10-30 16:25
感谢分享，很给力

---

作者: xiaoniu1230    时间: 2022-10-30 17:22
感谢分享 支持开源 ！

---

作者: a86615591    时间: 2022-10-30 18:03
RE: 超级列表框读写配置和移动表项 [修改]

---

作者: 清欢001    时间: 2022-10-30 18:04
1232131231242342

---

作者: kflizcst    时间: 2022-10-30 18:42
        支持开源~！感谢分享

---

作者: SoloCat    时间: 2022-10-30 19:08
看看怎么个代码

---

作者: 59hdvj    时间: 2022-10-30 21:34
支持开源~！感谢分享

---

作者: 百歌    时间: 2022-10-31 10:25
看看啥东东

---

作者: shizhong0117    时间: 2022-10-31 10:57
支持开源~！感谢分享

---

作者: benbenyw    时间: 2022-10-31 11:24
感谢分享！

---

作者: 0bing0    时间: 2022-10-31 17:02
看看 学习一下~~~~~~~~~~~！

---

作者: 北冥    时间: 2022-10-31 22:45
我是过来回复的,即使你这个使用在什么hei科技,就目前这些功能上来说也没法达到精华要求,并不是我不看你源码,你这个不可否认还是非常有用的好源码,

---

作者: dambbc    时间: 2022-11-1 14:04
点没大用的小东西凑个热闹
其实很早以前就在问答区分享过几次，不过没发过源码分享帖
与曾分享过的附件相比有稍作整理
源码是基于<报表列表框>类型写的，其他类型的请根据实际情况自行修改

---

作者: lm88818    时间: 2022-11-1 15:20
点赞楼主，多谢开源

---

作者: 给自己留一片天空    时间: 2022-11-1 16:57
支持开源~！感谢分享

---

作者: qq小鸭    时间: 2022-11-1 23:56
6666写配置和移动表项

---

作者: Suky    时间: 2022-11-2 03:13


修复一个小bug
原附件中    表项上移和下移子程序中，判断参数  首列同步  是否为空的逻辑流程没处理好
导致当此参数为空时，列循环次数依据判断设置的代码被跳过    从而不进行表项移动
感谢@qq小鸭 的反馈

在此向支持我的人表达歉意      
Adm_超级列表框读写配置和移动表项.e (943.21 KB, 下载次数: 90)

2022-11-2 03:08 上传

点击文件名下载附件
221102修复版
下载积分: 精币 -2 枚

修复版源码也可以到问答区以下帖子里下载，那边上传了一份，那里下载不需要精币
超级列表框上下移
https://125.confly.eu.org/forum.php?mod=viewthread&tid=14751357
(出处: 精易论坛)

---

作者: askjhgka    时间: 2022-11-2 13:10
奥术大师大所大所多

---

作者: xb982577146    时间: 2022-11-2 13:19
66666666666666666666666666666666666666

---

作者: wy1987wy119    时间: 2022-11-2 16:53

---

作者: qzspk0303    时间: 2022-11-3 10:36
学习~~~~~~~~~~~~~

---

作者: Sylas    时间: 2022-11-3 17:33
这个我需要，感谢分享

---

作者: frewthrthr    时间: 2022-11-3 18:02
66666666666666666666

---

作者: 千与千寻    时间: 2022-11-4 01:29
66666666666666

---

作者: colinxia    时间: 2022-11-4 10:07
很好的超级列表框，下来试试

---

作者: qq85668684    时间: 2022-11-4 14:16
做得相当不错

---

作者: kanhaiyouyue    时间: 2022-11-4 14:20
666666666666666666666666666666

---

作者: 花开一半    时间: 2022-11-4 23:19
谢谢分享啊

---

作者: 老冷    时间: 2022-11-7 21:19
666666666666666666666666666

---

作者: 3103005712    时间: 2022-11-8 13:31

支持开源~！感谢分享

---

作者: taozhe    时间: 2022-11-8 19:00
谢谢  刚好学习学习

---

作者: 王玉鑫    时间: 2022-11-11 19:09
~~~~~~~~~~~~~~~~~~~~~~

---

作者: 599929114    时间: 2022-11-12 01:30
正好需要这种功能

---

作者: Mr李    时间: 2022-11-12 17:32
看看保存

---

作者: 734115266    时间: 2022-11-14 19:33
感谢分享

---

作者: mt5856    时间: 2022-11-15 10:59
感谢老铁分享！学一下

---

作者: 字小白    时间: 2022-11-15 16:33
开源精神必须支持~

---

作者: 淡淡香草味    时间: 2022-11-16 03:47
新源码已上传到置顶楼层

---

作者: 不是好人    时间: 2022-11-16 10:24
顶楼主啦..希望楼主多发精品好帖啦.....

---

作者: okeyzero    时间: 2022-11-16 14:19
新技能已get√

---

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

Powered by Discuz! X3.4