列表框问题

Areny

怎么把列表框的内容给保存成txt的 通用对话框代码写好了，可以保存，但是一直是空的 跪求解答

帅气与大侠

大佬，这个是给你封装好的命令，你直接复制使用就可以了没问题请采纳下谢谢

  

子程序名	返回值类型	公开	备 注
列表框_保存数据	逻辑型		成功保存返回真，失败返回假
参数名	类 型	参考	可空	数组	备 注
列表框	列表框
保存位置	文本型

变量名	类 型	静态	数组	备 注
项目数	整数型
n	整数型
项目文本	文本型

项目数 ＝ 列表框.取项目数 ()
如果真 (项目数 ＜ 1)
返回 (假)

计次循环首 (项目数, n)
处理事件 ()
项目文本 ＝ 项目文本 ＋ 列表框.取项目文本 (n － 1) ＋ #换行符
计次循环尾 ()
返回 (写到文件 (保存位置, 到字节集 (项目文本)))

子程序名	返回值类型	公开	备 注
超级列表框_保存数据	逻辑型
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
保存位置	文本型

变量名	类 型	静态	数组	备 注
项目数	整数型
n	整数型
总列数	整数型
i	整数型
项目文本	文本型
分隔符	文本型
列标题	文本型
列项目文本	文本型

项目数 ＝ 超级列表框.取表项数 ()
如果真 (项目数 ＜ 1)
返回 (假)

总列数 ＝ 超级列表框.取列数 ()
计次循环首 (项目数, n)
处理事件 ()
计次循环首 (总列数, i)
判断 (i ＝ 总列数)
分隔符 ＝ “”
分隔符 ＝ “----”

列标题 ＝ 超级列表框.取标题 (n － 1, i － 1)
如果真 (列标题 ＝ “”)
列标题 ＝ “空”

列项目文本 ＝ 列项目文本 ＋ 列标题 ＋ 分隔符
计次循环尾 ()
项目文本 ＝ 项目文本 ＋ 列项目文本 ＋ #换行符
列项目文本 ＝ “”
计次循环尾 ()
返回 (写到文件 (保存位置, 到字节集 (项目文本)))

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 列表框_保存数据, 逻辑型, , 成功保存返回真，失败返回假<br /> .参数 列表框, 列表框<br /> .参数 保存位置, 文本型<br /> .局部变量 项目数, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 项目文本, 文本型<br /> <br /> 项目数 ＝ 列表框.取项目数 ()<br /> .如果真 (项目数 ＜ 1)<br />     返回 (假)<br /> .如果真结束<br /> <br /> .计次循环首 (项目数, n)<br />     处理事件 ()<br />     项目文本 ＝ 项目文本 ＋ 列表框.取项目文本 (n － 1) ＋ #换行符<br /> .计次循环尾 ()<br /> 返回 (写到文件 (保存位置, 到字节集 (项目文本)))<br /> <br /> .子程序 超级列表框_保存数据, 逻辑型<br /> .参数 超级列表框, 超级列表框<br /> .参数 保存位置, 文本型<br /> .局部变量 项目数, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 总列数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 项目文本, 文本型<br /> .局部变量 分隔符, 文本型<br /> .局部变量 列标题, 文本型<br /> .局部变量 列项目文本, 文本型<br /> <br /> 项目数 ＝ 超级列表框.取表项数 ()<br /> .如果真 (项目数 ＜ 1)<br />     返回 (假)<br /> .如果真结束<br /> <br /> 总列数 ＝ 超级列表框.取列数 ()<br /> .计次循环首 (项目数, n)<br />     处理事件 ()<br />     .计次循环首 (总列数, i)<br /> <br />         .判断开始 (i ＝ 总列数)<br />             分隔符 ＝ “”<br />         .默认<br />             分隔符 ＝ “----”<br />         .判断结束<br /> <br />         列标题 ＝ 超级列表框.取标题 (n － 1, i － 1)<br />         .如果真 (列标题 ＝ “”)<br />             列标题 ＝ “空”<br />         .如果真结束<br /> <br />         列项目文本 ＝ 列项目文本 ＋ 列标题 ＋ 分隔符<br />     .计次循环尾 ()<br />     项目文本 ＝ 项目文本 ＋ 列项目文本 ＋ #换行符<br />     列项目文本 ＝ “”<br /> .计次循环尾 ()<br /> 返回 (写到文件 (保存位置, 到字节集 (项目文本)))

待删用户

https://bbs.125.la/forum.php?mod=viewthread&tid=14025016

coolx

https://bbs.125.la/forum.php?mod=viewthread&tid=14067113