最强超级列表框模块，看了不后悔！

二指缠

背景：近日编写个小程序，其中有几个超级列表框，互相比较，寻找，替换等操作
虽然代码简单，就是“计次循环--取标题--寻找文本--...."
可是反复地写“计次循环”，很是烦人，网上也找了超级列表框的模块，可是不尽人意。
于是自己就写了模块，列表框之间的寻找、替换，保存，恢复变得简单多了：
先看参数列表，就可知其功能的强大和便利：
.版本 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://bbs.125.la/forum.php?mod= ... rtype=1#pid11074043

青灯古城

最强超级列表框模块，看了不后悔！

刘玮

带着 红酒看来看看

奔跑的老蜗牛

法国红酒看来看看

故人執念2310

15+6156948416216854

ssjc6688

感谢分享

37312164

最强超级列表框模块，看了不后悔！

truelog

东方红东方红等收货人

hsl123

感谢分享

葛小星

{:7_463:}