测试.rar
(1.25 MB, 下载次数: 3)
| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| __启动窗口_创建完毕 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| txt | 文本型 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 超级列表框_导入文本 | |||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 参_超级列表框 | 超级列表框 | 参_文件路径 | 文本型 | 路径优先 | 参_文本 | 文本型 | 路径为空时导入文本 | 参_分隔符 | 文本型 | 默认"----" | 参_导入列数 | 整数型 | 默认1 | 参_保留原先数据 | 逻辑型 | 默认为真 | 参_总耗时 | 整数型 | 参_是否有加密 | 逻辑型 | 参_构造耗时 | 整数型 |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 字节集 | 快速字节集对象 | |||||
| 文本 | 快速文本对象 | |||||
| 文本数组 | 文本型 | 0 | ||||
| 计次 | 整数型 | |||||
| 单行文本 | 文本型 | |||||
| 开始时间 | 整数型 | |||||
| 原表项数 | 整数型 | |||||
| 总数 | 整数型 | |||||
| 已处理 | 整数型 | |||||
| 内循环数 | 整数型 | |||||
如果真 (是否为空 (参_分隔符))
参_分隔符 = “----”
如果真 (参_导入列数 < 1)
参_导入列数 = 1
如果真 (参_文件路径 ≠ “”) ' 路径优先
文本.从文件读 (参_文件路径)
如果真 (参_文件路径 = “” 且 参_文本 ≠ “”)
文本.置文本 (参_文本)
如果真 (是否为空 (参_保留原先数据))
参_保留原先数据 = 真
如果真 (参_保留原先数据)
原表项数 = 参_超级列表框.取表项数 ()
字节集.添加 (参_超级列表框.表项)
判断循环首 (已处理 < 总数)
内循环数 = 选择 (总数 - 已处理 < 10000, 总数 - 已处理, 10000) ' 分块处理 减少卡顿 或者可以多线程构造?思路而已...
计次循环首 (内循环数, 计次)
. ' 如果 (参_是否有加密)
' 单行文本 = 功能_动态解密 (文本数组 [计次])

单行文本 = 文本数组 [已处理 + 计次]
字节集.添加 ({ 0, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 } + 到字节集 (到文本 (已处理 + 计次 + 原表项数)) + { 0, 0 } + 超级列表框_表项字节集 (单行文本, 参_分隔符, 参_导入列数, ))
计次循环尾 ()
判断循环尾 ()| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 超级列表框_表项字节集 | 字节集 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 参_文本 | 文本型 | 参_分隔符 | 文本型 | 参_列数 | 整数型 | 参_从第0列开始 | 逻辑型 |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 局_数组 | 文本型 | 0 | ||||
| 局_计次 | 整数型 | |||||
| 局_字节集 | 字节集 | |||||
| 局_列数 | 整数型 | |||||
如果真 (局_列数 = 0)
返回 ({ })
计次循环首 (局_列数, 局_计次)
局_字节集 = 局_字节集 + { 1, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 } + 到字节集 (局_数组 [局_计次]) + { 0, 0 }
计次循环尾 ()
如果真 (参_从第0列开始)
局_字节集 = { 0 } + 取字节集右边 (局_字节集, 取字节集长度 (局_字节集) - 1)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮1_被单击 | |||||
| i支持库列表 | 支持库注释 |
| commobj | 通用对象支持库 |
| iext | 扩展界面支持库一 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮1_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 数 | 整数型 | |||||
计次循环首 (超级列表框1.取表项数 (), 数)
超级列表框1.置状态图片 (数 - 1, 1)
计次循环尾 ()| i支持库列表 | 支持库注释 |
| iext | 扩展界面支持库一 |
| 欢迎光临 精易论坛 (https://bbs.ijingyi.com/) | Powered by Discuz! X3.4 |