|
沙发
发表于 2019-9-15 09:05:39
|
只看该作者
浙江省温州市

精易模块里已经有了,这个函数里面的局_字节集就是你要的数据,你可以自己改一下
|
外部超级列表框_保存数据_NEW | 逻辑型 | | |
超级列表框句柄 | 整数型 | | | | 要保存的位置 | 文本型 | | | | 列表类型 | 整数型 | | | | 不保存指定列的索引 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 局_列数 | 整数型 | | | 局_表项数 | 整数型 | | | 局_字节集 | 字节集 | | | 局_表项计次 | 整数型 | | | 局_列计次 | 整数型 | | | 局_文件号 | 整数型 | | | 外部超级列表框 | 外部超级列表框 | | | 局_文本 | 文本型 | | | 局_当前行计次 | 整数型 | | | 局_表项数值 | 整数型 | | |
如果真 (外部超级列表框. 初始化 (超级列表框句柄 ) = 假) 输出调试文本 (“初始化超级列表框失败”) 返回 (假) 如果真 (是否为空 (不保存指定列的索引 ))  不保存指定列的索引 = -1 局_文件号 = 打开内存文件 ()局_列数 = 外部超级列表框. 取列数 ()局_表项数 = 外部超级列表框. 取表项数 () 计次循环首 (局_表项数, 局_表项计次 ) 局_当前行计次 = 0  计次循环首 (局_列数, 局_列计次 )  如果 (局_列计次 - 1 = 不保存指定列的索引 )    到循环尾 ()           局_文本 = 外部超级列表框. 取标题 (局_表项计次 - 1, 局_列计次 - 1 )  判断 (局_当前行计次 = 0 )   判断 (局_列计次 - 1 = 0 )    局_表项数值 = 外部超级列表框. 取表项数值 (局_表项计次 - 1 )    判断 (局_表项数值 = 0 )    插入字节集 (局_文件号, { 0 } + 到字节集 (外部超级列表框. 取图片 (局_表项计次 - 1, 局_列计次 - 1 )) + { 255, 255, 255, 255, 0, 0, 0, 0, 0, 0 } + 到字节集 (局_文本 ) + { 0, 0 })    插入字节集 (局_文件号, { 0 } + 到字节集 (外部超级列表框. 取图片 (局_表项计次 - 1, 局_列计次 - 1 )) + { 255, 255, 255, 255, 0, 0, 0, 0 } + 到字节集 (局_表项数值 ) + 到字节集 (局_文本 ) + { 0, 0 })            插入字节集 (局_文件号, { 0 } + { 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0 } + 到字节集 (外部超级列表框. 取表项数值 (局_表项计次 - 1 )) + 到字节集 (局_文本 ) + { 0, 0 })      插入字节集 (局_文件号, { 1, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 } + 到字节集 (局_文本 ) + { 0, 0 })     局_当前行计次 = 局_当前行计次 + 1  计次循环尾 () 计次循环尾 ()移动读写位置 (局_文件号, #文件首, 0 )局_字节集 = 读入字节集 (局_文件号, 取文件长度 (局_文件号 )) 关闭文件 (局_文件号 )写到文件 (要保存的位置, 局_字节集 )返回 (真)
补充内容 (2019-9-15 09:20):
好像说命令有BUG,你可以用老款的那个 |
|