求助：请给写一个超级列表框1.导入和导出的源码，

清华博士

“----” 分割
读入文件 (取运行目录 () ＋ “\1.txt
读出文件 (取运行目录 () ＋ “\1.txt
千万别用：通用对话框1
在线等您的帮助

七月你好

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .程序集 窗口程序集1
   
5. 
   
6. .子程序 _按钮1_被单击
   
7. .局部变量 总文本, 文本型
   
8. .局部变量 文本组A, 文本型, , "0"
   
9. .局部变量 i, 整数型
   
10. .局部变量 文本组B, 文本型, , "0"
    
11. .局部变量 索引, 整数型
    
12. 
    
13. 总文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\1.txt”))
    
14. 总文本 ＝ 子文本替换 (总文本, “--------”, “----”, , , 真)
    
15. 文本组A ＝ 分割文本 (总文本, #换行符, )
    
16. .计次循环首 (取数组成员数 (文本组A), i)
    
17.     文本组B ＝ 分割文本 (文本组A [i], “----”, )
    
18.     索引 ＝ 超级列表框1.插入表项 (, 到文本 (i), , , , )
    
19.     超级列表框1.置标题 (索引, 1, 文本组B [1])
    
20.     超级列表框1.置标题 (索引, 2, 文本组B [2])
    
21. .计次循环尾 ()
    
22. 
    
23. 
    
24. .子程序 _按钮2_被单击
    
25. .局部变量 表项, 文本型
    
26. .局部变量 a, 整数型
    
27. .局部变量 i, 整数型
    
28. 
    
29. a ＝ 超级列表框1.取表项数 ()
    
30. .计次循环首 (a, i)
    
31.     表项 ＝ 表项 ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符
    
32. .计次循环尾 ()
    
33. 写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (表项))
    
34. 
    

复制代码

忘了添加到代码里面，你复制这个

1171707139

看是不是这个

1171707139

i是整数型
保存账号是文本型
局部变量

七月你好

.版本 2
.支持库 iext

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 总文本, 文本型
.局部变量 文本组A, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 文本组B, 文本型, , "0"
.局部变量 索引, 整数型

总文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\1.txt”))
总文本 ＝ 子文本替换 (总文本, “--------”, “----”, , , 真)
文本组A ＝ 分割文本 (总文本, #换行符, )
.计次循环首 (取数组成员数 (文本组A), i)
    文本组B ＝ 分割文本 (文本组A [i], “----”, )
    索引 ＝ 超级列表框1.插入表项 (, 到文本 (i), , , , )
    超级列表框1.置标题 (索引, 1, 文本组B [1])
    超级列表框1.置标题 (索引, 2, 文本组B [2])
.计次循环尾 ()


.子程序 _按钮2_被单击
.局部变量 表项, 文本型
.局部变量 a, 整数型
.局部变量 i, 整数型

a ＝ 超级列表框1.取表项数 ()
.计次循环首 (a, i)
    表项 ＝ 表项 ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (表项))

乂兮浅意

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集_启动窗口
   
4. 
   
5. .子程序 __启动窗口_创建完毕
   
6. 
   
7. 
   
8. 
   
9. .子程序 _按钮1_被单击, 整数型
   
10. 
    
11. 目录_定位 (目录_取父路径 (取运行目录 ()))
    

复制代码

戒卜掉思恋

  

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

变量名	类 型	静态	数组	备 注
结果文本	文本型
循环变量_行	整数型
循环变量_列	整数型
总_行	整数型
总_列	整数型

行分割关键字 ＝ “{@@@###^&&&***}”
列分割关键字 ＝ “{***&&&^$$$###}”
总_行 ＝ 超级列表框.取表项数 () － 1
总_列 ＝ 超级列表框.取列数 () － 1
变量循环首 (0, 总_行, 1, 循环变量_行)
变量循环首 (0, 总_列, 1, 循环变量_列)
' 开始将数据读到到变量 结果文本 里去
结果文本 ＝ 结果文本 ＋ 超级列表框.取标题 (循环变量_行, 循环变量_列) ＋ 列分割关键字
变量循环尾 ()
结果文本 ＝ 结果文本 ＋ 行分割关键字
变量循环尾 ()
返回 (结果文本)

子程序名	返回值类型	公开	备 注
读取超级列表框数据			将保存的内容重新填入超级列表框
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
新的内容	文本型

变量名	类 型	静态	数组	备 注
数组_行	文本型		0
数组_列	文本型		0
循环变量_行	整数型
循环变量_列	整数型
插入项	整数型

行分割关键字 ＝ “{@@@###^&&&***}”
列分割关键字 ＝ “{***&&&^$$$###}”
数组_行 ＝ 分割文本 (新的内容, 行分割关键字, )
变量循环首 (1, 取数组成员数 (数组_行), 1, 循环变量_行)
数组_列 ＝ 分割文本 (数组_行 [循环变量_行], 列分割关键字, )
插入项 ＝ 超级列表框.插入表项 (, , , , , )
变量循环首 (1, 取数组成员数 (数组_列), 1, 循环变量_列)
超级列表框.置标题 (插入项, 循环变量_列 － 1, 数组_列 [循环变量_列])
变量循环尾 ()
变量循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 保存超级列表框数据, 文本型<br /> .参数 超级列表框, 超级列表框<br /> .局部变量 结果文本, 文本型<br /> .局部变量 循环变量_行, 整数型<br /> .局部变量 循环变量_列, 整数型<br /> .局部变量 总_行, 整数型<br /> .局部变量 总_列, 整数型<br /> <br /> 行分割关键字 ＝ “{@@@###^&&&***}”<br /> 列分割关键字 ＝ “{***&&&^$$$###}”<br /> <br /> 总_行 ＝ 超级列表框.取表项数 () － 1<br /> 总_列 ＝ 超级列表框.取列数 () － 1<br /> .变量循环首 (0, 总_行, 1, 循环变量_行)<br />     .变量循环首 (0, 总_列, 1, 循环变量_列)<br />         ' 开始将数据读到到变量 结果文本 里去<br />         结果文本 ＝ 结果文本 ＋ 超级列表框.取标题 (循环变量_行, 循环变量_列) ＋ 列分割关键字<br /> <br />     .变量循环尾 ()<br />     结果文本 ＝ 结果文本 ＋ 行分割关键字<br /> <br /> .变量循环尾 ()<br /> 返回 (结果文本)<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> .版本 2<br /> .子程序 读取超级列表框数据, , , 将保存的内容重新填入超级列表框<br /> .参数 超级列表框, 超级列表框<br /> .参数 新的内容, 文本型<br /> .局部变量 数组_行, 文本型, , "0"<br /> .局部变量 数组_列, 文本型, , "0"<br /> .局部变量 循环变量_行, 整数型<br /> .局部变量 循环变量_列, 整数型<br /> .局部变量 插入项, 整数型<br /> <br /> 行分割关键字 ＝ “{@@@###^&&&***}”<br /> 列分割关键字 ＝ “{***&&&^$$$###}”<br /> 数组_行 ＝ 分割文本 (新的内容, 行分割关键字, )<br /> .变量循环首 (1, 取数组成员数 (数组_行), 1, 循环变量_行)<br />     数组_列 ＝ 分割文本 (数组_行 [循环变量_行], 列分割关键字, )<br />     插入项 ＝ 超级列表框.插入表项 (, , , , , )<br /> <br />     .变量循环首 (1, 取数组成员数 (数组_列), 1, 循环变量_列)<br />         超级列表框.置标题 (插入项, 循环变量_列 － 1, 数组_列 [循环变量_列])<br /> <br />     .变量循环尾 ()<br /> .变量循环尾 ()