精易论坛

标题: 最强超级列表框模块，看了不后悔！ [打印本页]

作者: 二指缠 时间: 2016-11-18 16:45
标题: 最强超级列表框模块，看了不后悔！
本帖最后由二指缠于 2016-11-18 16:53 编辑

背景：近日编写个小程序，其中有几个超级列表框，互相比较，寻找，替换等操作
虽然代码简单，就是“计次循环--取标题--寻找文本--...."
可是反复地写“计次循环”，很是烦人，网上也找了超级列表框的模块，可是不尽人意。
于是自己就写了模块，列表框之间的寻找、替换，保存，恢复变得简单多了：
先看参数列表，就可知其功能的强大和便利：
.版本 2
.支持库 iext

.子程序超模1_保存超级列表框, 文本型, 公开, 同时返回内容文本型变量，查找替换灰常方便
.参数超级列表框名称, 超级列表框, , 同时保存检查框状态（若有）
.参数文件名, 文本型, 可空, 全路径或短文件名均可，无路径为当前运行目录，空时不保存，仅返回变量
.参数部分保存, 整数型, 可空, 默认时保存全部，可以只保存前面部分
.参数自定条件列索引, 整数型, 可空, 自定义条件保存，此列为条件，如：此列内容等于或不等于才保存，默认全部保存
.参数自定条件内容, 文本型, 可空, 必须与自定条件列索引同时定义，前缀加“!=”表示排除此内容（不等于条件）！应用：保存内容：if(取标题（条件列索引）＝或不等于自定条件内容）

.子程序超模1_恢复超级列表框, 文本型, 公开, 可以从文件或文本变量进行恢复，并返回与保存内容一致的文本
.参数超级列表框名称, 超级列表框
.参数文件名, 文本型, 可空, 文件名，无路径时，为运行路径
.参数保存的文本, 文本型, 可空, 与文件名只能选其一
.参数保留原数据, 逻辑型, 可空, 默认清空，为真时，保留原数据，恢复数据加入后面
.参数排除重复列索引, 整数型, 可空, 仅当保留原数据为真时，可自动排除此列的重复内容，为空或-1不排除

需频繁操作超级列表框的，上述模块肯定可以减少很多的代码工作量。
=======================================================================

========================================================================
模块同时集成了其他模块成品或代码，所以说是最强的
超级列表框扩展增强模块，5.0,2016.11.18
包含以下程序：
1、超模1--保存、恢复超级列表框，功能太强了，都不好意思了，请看参数说明：QQ2082322789
2、超模2--快速排序,最快排序，测试过了N回，这个是我找到的排序模块中最快的，我修改了一点而已。
3、超模3--行色程序，由创易模块提取，加了背景可选参数！
4、超模4--置行列色程序，近在眼前模块V3.2，这是近在眼前的模块，目前找到最好的，最大问题是速度。

速度虽然很慢，可已经是现有模块中最好的了，希望看到源码啊！！！！！！！
==================================================================

=========================================================================
.版本 2
.支持库 iext

.子程序超模1_保存超级列表框, 文本型, 公开, 同时返回内容文本型变量，查找替换灰常方便
.参数超级列表框名称, 超级列表框, , 同时保存检查框状态（若有）
.参数文件名, 文本型, 可空, 全路径或短文件名均可，无路径为当前运行目录，空时不保存，仅返回变量
.参数部分保存, 整数型, 可空, 默认时保存全部，可以只保存前面部分
.参数自定条件列索引, 整数型, 可空, 自定义条件保存，此列为条件，如：此列内容等于或不等于才保存，默认全部保存
.参数自定条件内容, 文本型, 可空, 必须与自定条件列索引同时定义，前缀加“!=”表示排除此内容（不等于条件）！应用：保存内容：if(取标题（条件列索引）＝或不等于自定条件内容）
.局部变量 i, 整数型
.局部变量行数据, 文本型
.局部变量 j, 整数型
.局部变量表数据, 文本型
.局部变量行索引, 整数型
.局部变量排除条件, 逻辑型

.如果 (是否为空 (自定条件列索引) ＝假且是否为空 (自定条件内容) ＝假且自定条件列索引 ≥ 0)
.如果真 (取文本左边 (自定条件内容, 2) ＝ “!=”)
      自定条件内容＝取文本右边 (自定条件内容, 取文本长度 (自定条件内容) － 2)
      排除条件＝真
.如果真结束

.否则
自定条件列索引＝ -1
.如果结束

.计次循环首 (超级列表框名称.取表项数 (), i)
行索引＝ i － 1

' 自定义条件保存
.如果真 (自定条件列索引 ≠ -1)
      .如果 (排除条件＝假)
         .如果真 (超级列表框名称.取标题 (行索引, 自定条件列索引) ≠ 自定条件内容)
            ' 只保存符合条件的行
            到循环尾 ()
         .如果真结束

      .否则
         .如果真 (超级列表框名称.取标题 (行索引, 自定条件列索引) ＝自定条件内容)
            ' 不保存符合条件的行
            到循环尾 ()
         .如果真结束

      .如果结束

.如果真结束

行数据＝ “”
.计次循环首 (超级列表框名称.取列数 (), j)
      行数据＝行数据＋超级列表框名称.取标题 (行索引, j － 1) ＋ “,”
.计次循环尾 ()
.如果真 (超级列表框名称.是否有检查框＝真)
      行数据＝行数据＋到文本 (超级列表框名称.取当前状态图片 (行索引)) ＋ “,”
.如果真结束
表数据＝表数据＋行数据＋ “|”
.如果真 (i ＞部分保存且部分保存＞ 1)
      跳出循环 ()
.如果真结束

.计次循环尾 ()
.如果真 (是否为空 (文件名) ＝假)
写到文件 (文件名, 到字节集 (表数据))
.如果真结束
返回 (表数据)

.子程序超模1_恢复超级列表框, 文本型, 公开, 可以从文件或文本变量进行恢复，并返回与保存内容一致的文本
.参数超级列表框名称, 超级列表框
.参数文件名, 文本型, 可空, 文件名，无路径时，为运行路径
.参数保存的文本, 文本型, 可空, 与文件名只能选其一
.参数保留原数据, 逻辑型, 可空, 默认清空，为真时，保留原数据，恢复数据加入后面
.参数排除重复列索引, 整数型, 可空, 仅当保留原数据为真时，可自动排除此列的重复内容，为空或-1不排除
.局部变量文件号, 整数型
.局部变量文件内容, 文本型
.局部变量表分割, 文本型, , "0"
.局部变量行分割, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量索引, 整数型
.局部变量原表内容, 文本型

.如果真 (是否为空 (文件名) ＝假)
文件号＝打开文件 (文件名, , )
.如果真 (文件号＝ 0)
      返回 (“”)
.如果真结束
文件内容＝读入文本 (文件号, )
关闭文件 (文件号)
.如果真结束
.如果真 (是否为空 (保存的文本) ＝假)
文件内容＝保存的文本
.如果真结束
.如果真 (文件内容＝ “”)
返回 (“”)
.如果真结束

.如果真 (保留原数据＝假或是否为空 (排除重复列索引) ＝真)
' 不进行重复检查
排除重复列索引＝ -1
.如果真结束
.如果真 (排除重复列索引 ≥ 0)
原表内容＝超模1_保存超级列表框 (超级列表框名称, )
.如果真结束

.如果真 (保留原数据 ≠ 真)
超级列表框名称.全部删除 ()
.如果真结束

表分割＝分割文本 (文件内容, “|”, )
.计次循环首 (取数组成员数 (表分割), i)
行分割＝分割文本 (表分割 , “,”, )
索引＝ i － 1
.如果真 (排除重复列索引 ≥ 0)
      ' 自动排除重复内容
      .如果真 (寻找文本 (原表内容, 行分割 [排除重复列索引＋ 1], , 假) ≥ 0)
         到循环尾 ()
      .如果真结束

.如果真结束
.如果真 (超级列表框名称.取表项数 () ＜ i 或保留原数据＝真)
      索引＝超级列表框名称.插入表项 (, , , , , )
.如果真结束
.计次循环首 (取数组成员数 (行分割), j)
      超级列表框名称.置标题 (索引, j － 1, 行分割 [j])
.计次循环尾 ()
.如果真 (超级列表框名称.是否有检查框＝真)
      超级列表框名称.置状态图片 (索引, 到数值 (行分割 [j － 1]))
.如果真结束

.计次循环尾 ()
返回 (文件内容)

听说分享源码是美德，顶贴让更多人来分享也是美德！！！！！！！！！！！！！！！

补充内容 (2016-11-20 17:45):
补充个参数说明：
保存返回的文本：每行各列之间用“，”分隔，行与行之间用"|"分隔
这个参数的含义是：你可以按上述分隔方式，写一个文本变量，然后用“恢复（文本）”方式，即可随意加入列表框。

补充内容 (2017-4-18 11:04):
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝重要更新

补充内容 (2017-4-18 11:05):

请到下面网址，更新，有说明！！！！！
http://125.confly.eu.org/forum.php?mod= ... rtype=1#pid11074043

QQ截图21.png (18.92 KB, 下载次数: 36)

QQ截图22.png (14.99 KB, 下载次数: 28)

最强超级列表框模块.zip

19.12 KB, 下载次数: 1863, 下载积分: 精币 -2 枚

没有

作者: happyweeks365 时间: 2016-11-18 19:18

学习。。。。。。。。。

作者: mcyuyu01 时间: 2016-11-18 20:08
学习了。。

作者: auth 时间: 2016-11-18 21:15
很好的模块，下载看看

作者: tandekun 时间: 2016-11-18 23:12
好样的，向你致敬

作者: Jyman 时间: 2016-11-18 23:19
顶顶顶顶顶顶顶顶

作者: clink 时间: 2016-11-19 13:03
感谢楼主分享不错不错

作者: 火雨纷飞 时间: 2016-11-19 20:31
看看...............

作者: dengxinni 时间: 2016-11-20 13:18
最强超级列表框

作者: 慕尚网 时间: 2016-11-20 15:30
支持开源~！感谢分享

作者: 帝梦o执天之行 时间: 2016-11-20 16:19

作者: sprite9595 时间: 2016-11-20 21:16
谢谢分享学习一下

作者: badmon 时间: 2016-11-21 07:04
喜欢开源的模块可以学习学习

作者: zytlj 时间: 2016-11-21 09:30
下来看看，谢谢。

作者: tandekun 时间: 2016-11-21 10:48
值得用用看看效果如何

作者: huningli38 时间: 2016-11-21 12:45

下来看看，谢谢。

作者: sadamu9527 时间: 2016-11-21 21:03
感谢分享！谢谢

作者: 节能轩 时间: 2016-11-21 22:23
下来看看。。。

作者: zg2012 时间: 2016-11-27 20:57
下来看看....

作者: guipux 时间: 2016-11-27 22:42
感谢分享帮顶了

作者: 特种部队 时间: 2016-12-1 21:04
下来看看，谢谢。

作者: auth 时间: 2016-12-2 19:56
很需要，谢谢

作者: BanBy 时间: 2016-12-4 16:03
不知道这源码能不能解决我的问题，下载看看

作者: 反客为主 时间: 2016-12-4 20:53
使用看看，谢谢

作者: cjnchen 时间: 2016-12-9 14:53
恩看看还不错啦！

作者: 8826390 时间: 2016-12-10 10:24
看看着不错啊，下来学习一下

作者: 阿火 时间: 2016-12-11 21:35
感谢大神分享... 太好了 ....

作者: 二指缠 时间: 2016-12-14 22:39
预告：即将有新的模块，静消消地说

作者: xiaoguan 时间: 2016-12-14 22:51
很给力

作者: lijunfa 时间: 2016-12-17 13:02
感谢。。。。。。。

作者: ligangtemp 时间: 2016-12-28 17:23
真的谢谢楼主分享！

作者: 千玄 时间: 2016-12-30 20:12
提示: 作者被禁止或删除内容自动屏蔽

作者: 半醉半醒花前坐 时间: 2017-1-3 19:53
有多强大，试试看效果

作者: hw1481826110 时间: 2017-1-4 19:02
你的跟我的一样我也做了一个还引用了置行色置列色等等

作者: 胡子 时间: 2017-1-13 15:23
虽然都很容易实现，但自己写代码也是很麻烦，所以顶一个

作者: hxq531511134 时间: 2017-1-13 17:27
正好需要排序的功能

作者: 二指缠 时间: 2017-1-16 08:43
本模块已重大更新，请移步：
隆重发布：超级列表框.扩展功能.置色模块.2017版
http://125.confly.eu.org/forum.php?mod= ... 13975627&extra=

作者: bob198486 时间: 2017-1-18 02:48
模块不错！！！！

作者: njpj1984 时间: 2017-1-22 09:07
感谢分享。。。。。。

作者: caijijian 时间: 2017-1-26 00:03
感谢分享。。。。。。

作者: kkyyy 时间: 2017-3-3 23:41
没有模块源码表示不敢用

作者: ajun1943 时间: 2017-3-7 22:14
这个一定要支持你一下的了

作者: qewrf 时间: 2017-3-9 15:15
这个一定要支持你一下的了

作者: 留意 时间: 2017-4-7 11:36
1高兴认识。。。。

作者: 太行山搬书 时间: 2017-4-9 11:54
谢谢！！！嘻嘻学习

作者: 958829253 时间: 2017-4-9 20:57
谢谢！！！嘻嘻学习

作者: 小易1 时间: 2017-4-12 18:11

谢谢

作者: 淘兵团长 时间: 2017-4-15 09:40
很好的东东

作者: 641288318 时间: 2017-4-24 18:26
支持开源~！感谢分享

作者: 小昱 时间: 2017-5-4 16:02
mark备用，支持开源~！感谢分享

作者: 凌云软件 时间: 2017-7-30 22:40
感谢楼主分享

作者: zbr0797 时间: 2017-8-4 21:35
非常感谢，学习中。。。。。。。。。。。。。

作者: xiun2005 时间: 2017-8-24 00:33
mark备用，支持开源~！感谢分享

作者: handou 时间: 2017-9-13 17:10
学习学习正好在使用这些

作者: hzdl001 时间: 2017-9-14 19:17
好东西拿走了！！！！！！！！谢谢楼主！

作者: 正养堂 时间: 2017-9-21 23:25
好好！！！太好b了！！！！

作者: love355024 时间: 2017-9-24 02:24
谢谢分享~~~~~

作者: 喜神娃娃 时间: 2017-9-28 22:17
支持开源~！感谢分享

作者: yangaoqi 时间: 2017-10-9 15:43
谢谢楼主分享

作者: Hooksafe 时间: 2017-10-24 19:35
学习学习

作者: 淘神 时间: 2017-12-14 01:27
最强超级列表框模块，看了不后悔

作者: lantt 时间: 2017-12-29 00:54
#在这里快速回复#请到下面网址，更新，有说明！！！！！

作者: oycs429 时间: 2018-1-9 17:14
东西不错,,,,,,,,,,,,,,,,,,,,,,

作者: Ψ恋上金牛座 时间: 2018-1-23 12:39
东西不错,,,,,,,,,,

作者: Jack100 时间: 2018-2-9 11:32
看下有多强

作者: 007老五 时间: 2018-2-16 04:45
感谢楼主的分享

作者: jiang8125 时间: 2018-2-16 11:07
东西不错,,,,,,,,,,

作者: 苏苏呀 时间: 2018-2-17 19:16
66666666666666666

作者: 戟败 时间: 2018-2-18 08:10
学习学习学习

作者: cds789011 时间: 2018-2-23 16:25
66666666666666666

作者: gu9229 时间: 2018-2-23 18:35
看着很不错，我下载学习学习

作者: AHHFLQ 时间: 2018-3-5 10:06
学习了，谢谢！

作者: linxingce 时间: 2018-3-6 22:19
确实要划一下的，毕竟内容太多了确实要划一下的，毕竟内容太多了

作者: adroot 时间: 2018-3-12 02:13

感谢楼主的分享

作者: wolf321 时间: 2018-3-15 10:26

作者: wpu 时间: 2018-4-19 17:08
棒棒啊！！！！！！！！！！

作者: xpfbiz 时间: 2018-5-22 19:34
谢谢，学习了！！！

作者: 岢怜の80逅 时间: 2018-6-12 17:21
下来用用。。。。

作者: chrirays 时间: 2018-6-23 18:22
dsddddddddddddddddddddddddddddddddddddddddddd

作者: sbayght 时间: 2018-6-26 12:47
不错不错，谢谢分享。

作者: 45455 时间: 2018-7-11 15:44
感谢楼主的分享

作者: xiaochun18 时间: 2018-7-25 14:50
感谢楼主的无私奉献！下载参考一下。

作者: l0447195 时间: 2018-8-6 17:30
不错，正需要

作者: fzp000 时间: 2018-8-8 22:36
感谢楼主的分享

作者: 19660414 时间: 2018-8-20 18:23
正是所想，看看。学习学习。

作者: 张子怜 时间: 2018-8-24 20:41
过来看看再说下载试试再说

作者: yichu77 时间: 2018-9-5 15:16
谢谢分享，顶顶更健康

作者: 三片叶子的小草 时间: 2018-9-18 13:20
支持开源~！感谢分享

作者: wztg52 时间: 2018-10-4 22:02
正需要...........

作者: xiaosongpp 时间: 2018-10-15 15:18
谢谢分享，顶顶更健康

作者: 我爱小猪猪 时间: 2018-10-19 10:49
谢谢分享，下载试试看

作者: kanjiahui3378 时间: 2018-11-7 14:27
谢谢分享，顶顶更健康

作者: 易学易精 时间: 2018-11-12 13:57
大神你这里面都又什么功能啊？

作者: 独爱 时间: 2018-11-23 12:52
这个真的非常不错！

作者: jinspy 时间: 2018-11-26 12:02
谢谢分享，下载试试看

作者: vfghy1 时间: 2018-11-26 13:05
谢谢分享，下载试试看

作者: taodile 时间: 2018-11-27 11:41
谢谢分享，下载试试看

作者: 冰山一景 时间: 2018-12-7 14:10
下载试试看

作者: sanfeng 时间: 2018-12-22 22:50
提示: 作者被禁止或删除内容自动屏蔽

作者: fenganna 时间: 2018-12-25 17:54
下载看看6666

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