精易论坛

标题: 超级列表框导入如何勾选 [打印本页]

---

作者: epwne    时间: 昨天 17:01
标题: 超级列表框导入如何勾选

以下代码如何修改，才能把导入的数据，如何自动勾选上，
测试.rar (1.25 MB, 下载次数: 3)

昨天 16:59 上传

点击文件名下载附件

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
txt	文本型

txt ＝ 到文本 (读入文件 (取运行目录 () ＋ “\123.txt”))

子程序名	返回值类型	公开	备 注
超级列表框_导入文本
参数名	类 型	参考	可空	数组	备 注
参_超级列表框	超级列表框
参_文件路径	文本型				路径优先
参_文本	文本型				路径为空时导入文本
参_分隔符	文本型				默认"----"
参_导入列数	整数型				默认1
参_保留原先数据	逻辑型				默认为真
参_总耗时	整数型
参_是否有加密	逻辑型
参_构造耗时	整数型

变量名	类 型	静态	数组	备 注
字节集	快速字节集对象
文本	快速文本对象
文本数组	文本型		0
计次	整数型
单行文本	文本型
开始时间	整数型
原表项数	整数型
总数	整数型
已处理	整数型
内循环数	整数型

' QQ 1968540331
' 网站 http://sony.blue
开始时间 ＝ 取启动时间 ()
如果真 (是否为空 (参_分隔符))
参_分隔符 ＝ “----”
如果真 (参_导入列数 ＜ 1)
参_导入列数 ＝ 1
如果真 (参_文件路径 ≠ “”)  ' 路径优先
文本.从文件读 (参_文件路径)
如果真 (参_文件路径 ＝ “” 且 参_文本 ≠ “”)
文本.置文本 (参_文本)

文本数组 ＝ 文本.分割文本 ( #换行符, )
文本.清除文本 ()
如果真 (是否为空 (参_保留原先数据))
参_保留原先数据 ＝ 真
如果真 (参_保留原先数据)
原表项数 ＝ 参_超级列表框.取表项数 ()
字节集.添加 (参_超级列表框.表项)

总数 ＝ 取数组成员数 (文本数组)
已处理 ＝ 0
判断循环首 (已处理 ＜ 总数)
内循环数 ＝ 选择 (总数 － 已处理 ＜ 10000, 总数 － 已处理, 10000)  ' 分块处理  减少卡顿  或者可以多线程构造?思路而已...
计次循环首 (内循环数, 计次)
. ' 如果 (参_是否有加密)
' 单行文本 ＝ 功能_动态解密 (文本数组 [计次])
单行文本 ＝ 文本数组 [已处理 ＋ 计次]
字节集.添加 ({ 0, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 到字节集 (到文本 (已处理 ＋ 计次 ＋ 原表项数)) ＋ { 0, 0 } ＋ 超级列表框_表项字节集 (单行文本, 参_分隔符, 参_导入列数, ))
计次循环尾 ()
已处理 ＝ 已处理 ＋ 内循环数
处理事件 ()
判断循环尾 ()
参_构造耗时 ＝ 取启动时间 () － 开始时间
按钮1.禁止 ＝ 真
输出调试文本 (“1”, 参_构造耗时)
参_超级列表框.可视 ＝ 假  ' 可视的话会耽误更多时间
参_超级列表框.禁止重画 ()
参_超级列表框.表项 ＝ 字节集.取字节集 (, )
参_超级列表框.可视 ＝ 真
参_超级列表框.允许重画 ()
字节集.清除字节集 ()
按钮1.禁止 ＝ 假
参_总耗时 ＝ 取启动时间 () － 开始时间
输出调试文本 (“2”, 参_总耗时)

子程序名	返回值类型	公开	备 注
超级列表框_表项字节集	字节集
参数名	类 型	参考	可空	数组	备 注
参_文本	文本型
参_分隔符	文本型
参_列数	整数型
参_从第0列开始	逻辑型

变量名	类 型	静态	数组	备 注
局_数组	文本型		0
局_计次	整数型
局_字节集	字节集
局_列数	整数型

' 0,255,255,255,255,255,255,255,255,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,
' 1,255,255,255,255,255,255,255,255,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,255,255,255,255,255,255,255,255,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,
' 1,255,255,255,255,255,255,255,255,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)
返回 ({  })
计次循环首 (局_列数, 局_计次)
局_字节集 ＝ 局_字节集 ＋ { 1, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 到字节集 (局_数组 [局_计次]) ＋ { 0, 0 }
计次循环尾 ()
如果真 (参_从第0列开始)
局_字节集 ＝ { 0 } ＋ 取字节集右边 (局_字节集, 取字节集长度 (局_字节集) － 1)

返回 (局_字节集)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

超级列表框_导入文本 (超级列表框1, , 到文本 (读入文件 (取运行目录 () ＋ “\1W.txt”)), “----”, 2, 假, , , )

i支持库列表	支持库注释
commobj	通用对象支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 commobj<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 txt, 文本型<br /> <br /> txt ＝ 到文本 (读入文件 (取运行目录 () ＋ “\123.txt”))<br /> <br /> <br /> <br /> <br /> <br /> .子程序 超级列表框_导入文本, , 公开<br /> .参数 参_超级列表框, 超级列表框<br /> .参数 参_文件路径, 文本型, 可空, 路径优先<br /> .参数 参_文本, 文本型, 可空, 路径为空时导入文本<br /> .参数 参_分隔符, 文本型, 可空, 默认"----"<br /> .参数 参_导入列数, 整数型, 可空, 默认1<br /> .参数 参_保留原先数据, 逻辑型, 可空, 默认为真<br /> .参数 参_总耗时, 整数型, 参考 可空<br /> .参数 参_是否有加密, 逻辑型, 可空<br /> .参数 参_构造耗时, 整数型, 参考 可空<br /> .局部变量 字节集, 快速字节集对象<br /> .局部变量 文本, 快速文本对象<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 单行文本, 文本型<br /> .局部变量 开始时间, 整数型<br /> .局部变量 原表项数, 整数型<br /> .局部变量 总数, 整数型<br /> .局部变量 已处理, 整数型<br /> .局部变量 内循环数, 整数型<br /> <br /> ' QQ 1968540331<br /> ' 网站 http://sony.blue<br /> <br /> 开始时间 ＝ 取启动时间 ()<br /> <br /> .如果真 (是否为空 (参_分隔符))<br />     参_分隔符 ＝ “----”<br /> .如果真结束<br /> .如果真 (参_导入列数 ＜ 1)<br />     参_导入列数 ＝ 1<br /> .如果真结束<br /> .如果真 (参_文件路径 ≠ “”)  ' 路径优先<br />     文本.从文件读 (参_文件路径)<br /> .如果真结束<br /> .如果真 (参_文件路径 ＝ “” 且 参_文本 ≠ “”)<br />     文本.置文本 (参_文本)<br /> .如果真结束<br /> <br /> 文本数组 ＝ 文本.分割文本 (#换行符, )<br /> 文本.清除文本 ()<br /> <br /> .如果真 (是否为空 (参_保留原先数据))<br />     参_保留原先数据 ＝ 真<br /> .如果真结束<br /> .如果真 (参_保留原先数据)<br />     原表项数 ＝ 参_超级列表框.取表项数 ()<br />     字节集.添加 (参_超级列表框.表项)<br /> .如果真结束<br /> <br /> 总数 ＝ 取数组成员数 (文本数组)<br /> 已处理 ＝ 0<br /> .判断循环首 (已处理 ＜ 总数)<br />     内循环数 ＝ 选择 (总数 － 已处理 ＜ 10000, 总数 － 已处理, 10000)  ' 分块处理  减少卡顿  或者可以多线程构造?思路而已...<br />     .计次循环首 (内循环数, 计次)<br />         .' 如果 (参_是否有加密)<br />             ' 单行文本 ＝ 功能_动态解密 (文本数组 [计次])<br />         .否则<br />             单行文本 ＝ 文本数组 [已处理 ＋ 计次]<br />         .如果结束<br />         字节集.添加 ({ 0, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 到字节集 (到文本 (已处理 ＋ 计次 ＋ 原表项数)) ＋ { 0, 0 } ＋ 超级列表框_表项字节集 (单行文本, 参_分隔符, 参_导入列数, ))<br />     .计次循环尾 ()<br />     已处理 ＝ 已处理 ＋ 内循环数<br />     处理事件 ()<br /> .判断循环尾 ()<br /> <br /> 参_构造耗时 ＝ 取启动时间 () － 开始时间<br /> <br /> <br /> 按钮1.禁止 ＝ 真<br /> 输出调试文本 (“1”, 参_构造耗时)<br /> 参_超级列表框.可视 ＝ 假  ' 可视的话会耽误更多时间<br /> 参_超级列表框.禁止重画 ()<br /> 参_超级列表框.表项 ＝ 字节集.取字节集 (, )<br /> 参_超级列表框.可视 ＝ 真<br /> 参_超级列表框.允许重画 ()<br /> <br /> 字节集.清除字节集 ()<br /> 按钮1.禁止 ＝ 假<br /> 参_总耗时 ＝ 取启动时间 () － 开始时间<br /> 输出调试文本 (“2”, 参_总耗时)<br /> <br /> .子程序 超级列表框_表项字节集, 字节集, 公开<br /> .参数 参_文本, 文本型<br /> .参数 参_分隔符, 文本型<br /> .参数 参_列数, 整数型<br /> .参数 参_从第0列开始, 逻辑型, 可空<br /> .局部变量 局_数组, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_字节集, 字节集<br /> .局部变量 局_列数, 整数型<br /> <br /> ' 0,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,内容,0,0<br /> ' 1,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,内容,0,0,<br /> ' 1,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,内容,0,0,<br /> ' 1,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,内容,0,0,<br /> <br /> ' 0,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,内容,0,0<br /> ' 1,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,内容,0,0,<br /> ' 1,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,内容,0,0,<br /> ' 1,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,内容,0,0,<br /> <br /> 局_数组 ＝ 分割文本 (参_文本, 参_分隔符, 参_列数)<br /> 局_列数 ＝ 取数组成员数 (局_数组)<br /> .如果真 (局_列数 ＝ 0)<br />     返回 ({  })<br /> .如果真结束<br /> .计次循环首 (局_列数, 局_计次)<br />     局_字节集 ＝ 局_字节集 ＋ { 1, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 到字节集 (局_数组 [局_计次]) ＋ { 0, 0 }<br /> .计次循环尾 ()<br /> .如果真 (参_从第0列开始)<br />     局_字节集 ＝ { 0 } ＋ 取字节集右边 (局_字节集, 取字节集长度 (局_字节集) － 1)<br /> .如果真结束<br /> <br /> 返回 (局_字节集)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 超级列表框_导入文本 (超级列表框1, , 到文本 (读入文件 (取运行目录 () ＋ “\1W.txt”)), “----”, 2, 假, , , )

---

作者: zainex    时间: 昨天 17:13

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

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

超级列表框_导入文本 (超级列表框1, , 到文本 (读入文件 (取运行目录 () ＋ “\1W.txt”)), “----”, 2, 假, , , )
计次循环首 (超级列表框1.取表项数 (), 数)
超级列表框1.置状态图片 (数 － 1, 1)
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数, 整数型<br /> <br /> 超级列表框_导入文本 (超级列表框1, , 到文本 (读入文件 (取运行目录 () ＋ “\1W.txt”)), “----”, 2, 假, , , )<br /> .计次循环首 (超级列表框1.取表项数 (), 数)<br />     超级列表框1.置状态图片 (数 － 1, 1)<br /> .计次循环尾 ()

---

欢迎光临 精易论坛 (https://bbs.ijingyi.com/)

Powered by Discuz! X3.4