80精币，超级列表框数据导出问题

伙夫

超级列表框导出

如图，现在我想导出全部信息和只导出QQ群到软件目录，怎么写，我用过这个代码：
.版本 2
.支持库 iext
.子程序 _导出数据_被选择
.局部变量 i, 整数型
.局部变量 内容, 文本型
.计次循环首 (超级列表框1.取表项数 (), i)
    .如果真 (超级列表框1.取标题 (i － 1, 2) ＝ “群号码”)
        内容 ＝ 内容 ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符
    .如果真结束
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\群号码.txt”, 到字节集 (内容))
信息框 (“导出完毕”, 0, )

可以生成txt文件，但是空的，原来保存的QQ群数据也被清空了。求高手指点


补充内容 (2014-6-23 03:31):
为什么提示：不能将“整数型”数据转换到“文本型”数据

huyuan

  

子程序名	返回值类型	公开	备 注
_导出数据_被选择

变量名	类 型	静态	数组	备 注
i	整数型
内容	文本型

计次循环首 (超级列表框1.取表项数 (), i)
如果真 (超级列表框1.取标题 (i － 1, 2) ≠  “”)
内容 ＝ 内容 ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符

计次循环尾 ()
写到文件 (取运行目录 () ＋ “\QQ群号码.txt”, 到字节集 (内容))
信息框 (“导出完毕”, 0, )

.版本 2<br /> <br /> .子程序 _导出数据_被选择<br /> .局部变量 i, 整数型<br /> .局部变量 内容, 文本型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     .如果真 (超级列表框1.取标题 (i － 1, 2) ≠  “”)<br />         内容 ＝ 内容 ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 写到文件 (取运行目录 () ＋ “\QQ群号码.txt”, 到字节集 (内容))<br /> 信息框 (“导出完毕”, 0, )

lackiss

.如果真 (超级列表框1.取标题 (i － 1, 2) ＝ “群号码”)   不要这一句 就能把群号都保存出来

空之影

路过，随便看看

小布°

  

子程序名	返回值类型	公开	备 注
_导出数据_被选择

变量名	类 型	静态	数组	备 注
i	整数型
内容	文本型

计次循环首 (超级列表框1.取表项数 (), i)
如果真 (超级列表框1.取标题 (i － 1, 2) ≠  “”)
内容 ＝ 内容 ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符

计次循环尾 ()
写到文件 (取运行目录 () ＋ “\群号码.txt”, 到字节集 (内容))
信息框 (“导出完毕”, 0, )

.版本 2<br /> <br /> .子程序 _导出数据_被选择<br /> .局部变量 i, 整数型<br /> .局部变量 内容, 文本型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     .如果真 (超级列表框1.取标题 (i － 1, 2) ≠  “”)<br />         内容 ＝ 内容 ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 写到文件 (取运行目录 () ＋ “\群号码.txt”, 到字节集 (内容))<br /> 信息框 (“导出完毕”, 0, )

最佳吧！！

zwzzr

.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 文本, 文本型
.局部变量 wb2, 文本型
.局部变量 h, 整数型
.局部变量 l, 整数型

.变量循环首 (1, 超级列表框1.取表项数 (), 1, h)
    .变量循环首 (1, 超级列表框1.取列数 (), 1, l)
        文本 ＝ 超级列表框1.取标题 (h － 1, l － 1) ＋ “$” ＋ 文本
    .变量循环尾 ()
    wb2 ＝ 超级列表框1.取标题 (h － 1, 2)
    写配置项 (取运行目录 () ＋ “\cjlbk.ini”, “全部数据”, 到文本 (h), 文本)
    写配置项 (取运行目录 () ＋ “\cjlbk.ini”, “QQ群号码”, 到文本 (h), wb2)
    文本 ＝ “”
    wb2 ＝ “”
.变量循环尾 ()

暗影网络科技

好多大神, 我就不参与了.

psugwycwxf

学习看下,外加回贴争分

[小L]

1. .版本 2
   
2. .支持库 iext
   
3. .支持库 shell
   
4. 
   
5. .子程序 导出数据
   
6. .局部变量 num, 整数型, , , 计次
   
7. .局部变量 String, 文本型, , , 用来保存
   
8. 
   
9. String ＝ “”
   
10. .计次循环首 (超级列表框1.取表项数 (), num)
    
11.     ' 导出群号码
    
12.     String ＝ String ＋ 超级列表框1.取标题 (num － 1, 1) ＋ #换行符
    
13.     ' 由于列表框的索引是从0开始的，所以这里-1
    
14.     ' 后面1的意思是取列中索引为1的文本
    
15. .计次循环尾 ()
    
16. 写到文件 (取特定目录 (3) ＋ “\导出文本.txt”, 到字节集 (String))
    
17. 信息框 (“导出完毕”, 0 ＋ 64, )
    

复制代码

exit11

  

子程序名	返回值类型	公开	备 注
_导出数据_被选择

变量名	类 型	静态	数组	备 注
i	整数型
内容	文本型
文件号	整数型

文件号 ＝ 打开文件 (取运行目录 () ＋ “\群号码.txt”, #改读, )
移到文件首 (文件号)
计次循环首 (超级列表框1.取表项数 (), i)
内容 ＝ 内容 ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符
计次循环尾 ()
如果 (插入文本 (文件号, 内容))
信息框 (“导出完毕”, 0, )
信息框 (“导出失败”, 0, )

关闭文件 (文件号)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _导出数据_被选择<br /> .局部变量 i, 整数型<br /> .局部变量 内容, 文本型<br /> .局部变量 文件号, 整数型<br /> <br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\群号码.txt”, #改读, )<br /> 移到文件首 (文件号)<br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     内容 ＝ 内容 ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符<br /> .计次循环尾 ()<br /> .如果 (插入文本 (文件号, 内容))<br />     信息框 (“导出完毕”, 0, )<br /> .否则<br />     信息框 (“导出失败”, 0, )<br /> .如果结束<br /> <br /> 关闭文件 (文件号)