超级列表框

Wod

超级列表框—保存读取数据—适配任意列任意表项数
https://bbs.125.la/forum.php?mod=viewthread&tid=14792757
(出处: 精易论坛)

  

子程序名	返回值类型	公开	备 注
超列_保存数据			允许带密码保存列表框数据
参数名	类 型	参考	可空	数组	备 注
超列	超级列表框
保存路径	文本型				默认运行目录,设置以"\"结尾
文件名	文本型				默认list.el
密码	文本型

变量名	类 型	静态	数组	备 注
列数	整数型
json	类_json
json2	类_json
i	整数型
j	整数型
data	文本型
route	文本型
file_name	文本型
data_s	字节集

列数 ＝ 超列.取列数 ()
调试输出 (列数)
调试输出 (超列.取表项数 ())
计次循环首 (超列.取表项数 (), i)
计次循环首 (列数, j)
json2.加成员 (超列.取标题 (i － 1, j － 1), “value”, , )
计次循环尾 ()
json.加成员 (json2.取数据文本 (), “list”, 真, )
json2.清除 ()
计次循环尾 ()
data ＝ json.取数据文本 ()
如果真 (密码 ≠ “”)
data_s ＝ 加密数据 (到字节集 (data), 密码, #DES算法 )

如果 (保存路径 ＝ “”)
route ＝ 取运行目录 () ＋ “\”
如果真 (取反 (目录_是否存在 (保存路径)))
目录_创建 (保存路径)
route ＝ 保存路径

如果 (文件名 ＝ “”)
file_name ＝ “list.el”
file_name ＝ 文件名
写到文件 (route ＋ file_name, data_s)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库
dp1	数据操作支持库一

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 dp1<br /> <br /> .子程序 超列_保存数据, , , 允许带密码保存列表框数据<br /> .参数 超列, 超级列表框<br /> .参数 保存路径, 文本型, 可空, 默认运行目录,设置以"\"结尾<br /> .参数 文件名, 文本型, 可空, 默认list.el<br /> .参数 密码, 文本型, 可空<br /> .局部变量 列数, 整数型<br /> .局部变量 json, 类_json<br /> .局部变量 json2, 类_json<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 data, 文本型<br /> .局部变量 route, 文本型<br /> .局部变量 file_name, 文本型<br /> .局部变量 data_s, 字节集<br /> <br /> 列数 ＝ 超列.取列数 ()<br /> 调试输出 (列数)<br /> 调试输出 (超列.取表项数 ())<br /> .计次循环首 (超列.取表项数 (), i)<br />     .计次循环首 (列数, j)<br />         json2.加成员 (超列.取标题 (i － 1, j － 1), “value”, , )<br />     .计次循环尾 ()<br />     json.加成员 (json2.取数据文本 (), “list”, 真, )<br />     json2.清除 ()<br /> .计次循环尾 ()<br /> data ＝ json.取数据文本 ()<br /> .如果真 (密码 ≠ “”)<br />     data_s ＝ 加密数据 (到字节集 (data), 密码, #DES算法)<br /> .如果真结束<br /> <br /> .如果 (保存路径 ＝ “”)<br />     route ＝ 取运行目录 () ＋ “\”<br /> .否则<br />     .如果真 (取反 (目录_是否存在 (保存路径)))<br />         目录_创建 (保存路径)<br />     .如果真结束<br />     route ＝ 保存路径<br /> .如果结束<br /> <br /> .如果 (文件名 ＝ “”)<br />     file_name ＝ “list.el”<br /> .否则<br />     file_name ＝ 文件名<br /> .如果结束<br /> 写到文件 (route ＋ file_name, data_s)

  

子程序名	返回值类型	公开	备 注
超列_读取数据			使用 超列_保存数据 方法保存的数据读取到列表框内
参数名	类 型	参考	可空	数组	备 注
超列	超级列表框
文件路径	文本型				默认运行目录,设置以"\"结尾
文件名	文本型				默认list.el
密码	文本型

变量名	类 型	静态	数组	备 注
json	类_json
i	整数型
j	整数型
表项索引	整数型
val	文本型
route	文本型
file_name	文本型
data_tmp	字节集
数据	文本型

如果 (保存路径 ＝ “”)
route ＝ 取运行目录 () ＋ “\”
route ＝ 保存路径

如果 (文件名 ＝ “”)
file_name ＝ “list.el”
file_name ＝ 文件名

data_tmp ＝ 读入文件 (route ＋ file_name)
如果真 (密码 ≠ “”)
数据 ＝ 到文本 (解密数据 (data_tmp, 密码, #DES算法 ))
json.解析 (数据, , )
计次循环首 (json.成员数 (“list”), i)
表项索引 ＝ 超列.插入表项 (i － 1, , , , , )
计次循环首 (json.成员数 (“list[” ＋ 到文本 (i － 1) ＋ “].value”), j)
val ＝ json.取通用属性 (“list[” ＋ 到文本 (i － 1) ＋ “].value[” ＋ 到文本 (j － 1) ＋ “]”, )
超列.置标题 (表项索引, j － 1, val)
处理事件 ()
计次循环尾 ()
处理事件 ()
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
dp1	数据操作支持库一

.版本 2<br /> .支持库 iext<br /> .支持库 dp1<br /> <br /> .子程序 超列_读取数据, , , 使用 超列_保存数据 方法保存的数据读取到列表框内<br /> .参数 超列, 超级列表框<br /> .参数 文件路径, 文本型, 可空, 默认运行目录,设置以"\"结尾<br /> .参数 文件名, 文本型, 可空, 默认list.el<br /> .参数 密码, 文本型, 可空<br /> .局部变量 json, 类_json<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 表项索引, 整数型<br /> .局部变量 val, 文本型<br /> .局部变量 route, 文本型<br /> .局部变量 file_name, 文本型<br /> .局部变量 data_tmp, 字节集<br /> .局部变量 数据, 文本型<br /> <br /> .如果 (保存路径 ＝ “”)<br />     route ＝ 取运行目录 () ＋ “\”<br /> .否则<br />     route ＝ 保存路径<br /> .如果结束<br /> <br /> .如果 (文件名 ＝ “”)<br />     file_name ＝ “list.el”<br /> .否则<br />     file_name ＝ 文件名<br /> .如果结束<br /> <br /> data_tmp ＝ 读入文件 (route ＋ file_name)<br /> .如果真 (密码 ≠ “”)<br />     数据 ＝ 到文本 (解密数据 (data_tmp, 密码, #DES算法))<br /> .如果真结束<br /> json.解析 (数据, , )<br /> .计次循环首 (json.成员数 (“list”), i)<br />     表项索引 ＝ 超列.插入表项 (i － 1, , , , , )<br />     .计次循环首 (json.成员数 (“list[” ＋ 到文本 (i － 1) ＋ “].value”), j)<br />         val ＝ json.取通用属性 (“list[” ＋ 到文本 (i － 1) ＋ “].value[” ＋ 到文本 (j － 1) ＋ “]”, )<br />         超列.置标题 (表项索引, j － 1, val)<br />         处理事件 ()<br />     .计次循环尾 ()<br />     处理事件 ()<br /> .计次循环尾 ()

超级列表框保存和读取操作。

Wod

wrq375520 发表于 2023-8-16 13:13
不错，好东西啊

超级列表框—保存读取数据—适配任意列任意表项数
https://bbs.125.la/forum.php?mod=viewthread&tid=14792757
(出处: 精易论坛)

薇沐啊

感谢分享

火锅配菜

过来学习的

wrq375520

不错，好东西啊