Question

易语言超级列表框内容怎么保存和导入

Answer 1

.版本
2
.支持库
iext
.支持库
Krnlnex
　　.程序集
窗口程序集1
　　.子程序
__启动窗口_创建完毕
　　.判断开始
(文件是否存在
(取运行目录
()
＋
“/1.txt”)
＝
假)
写到文件
(取运行目录
()
＋
“/1.txt”,
#文本)
.默认
　　.判断结束
.子程序
_按钮1_被单击
.局部变量
文本,
文本型,
,
"0"
.局部变量
文件,
文本型
.局部变量
l,
整数型
.局部变宴伍量
B,
整数型
　　超级列表框1.全部删除
()
文件
＝
到文本
(读入文件
(取运行目录
()
＋
“/1.txt”))
调试输出
(文件)
文本
＝
分割文本
(文件,
#换行符,
)
调试输出晌颂或
(文本)
.计次循环首
(取数组成员数
(文本),
l)
B
＝
超级列表框1.插入表项
(,
,
,
,
,
)
超级列表框1.置标题
(B,
0,
到文本
(l))
超级列表框1.置标题
(B,
1,
文本
[l])
.计次循环尾
()
.子程序
_按钮3_被单击
.局部变量
B,
整数型
.局部变量
L,
整数型
　　.如果真
(编辑框1.内容
≠
“”)
B
＝
超级列表框1.取表项数
()
L
＝
超级列表框1.插入表项
(,
,
,
,
,
)
超级列表框1.置标题
(L
－
1,
0,
到文本
(B
＋
1))
超级列表框1.置标题
(L
－
1,
1,
编辑框1.内容)
编辑框1.内容
＝
“”
.如果真结束
.子程序
_按钮2_被单击
.局部变量
内容,
文本型,
,
"0"
.局部变量
最后内容,
文本型
.局部变量
L,
整数型
　　.计次循环首
(超级列表框1.取表项数
(),
L)
加入成员
(内容,
超级列表框1.取标题
(L
－
1,
1))
.计次循环尾
()
L
＝
0
.计次循环首
(取数组成员数
(内容),
L)
.如果
(L
＝
取数组成员数
(内容))
最后内容
＝
最后内容
＋
内樱宽容
[L]
.否则
最后内容
＝
最后内容
＋
内容
[L]
＋
#换行符
.如果结束
　　.计次循环尾
()
写到文件
(取运行目录
()
＋
“/1.txt”,
到字节集
(最后内容))

Answer 2

.版本 2
.支持库 iext
.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.计次循环首 (15, i)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (i － 1, 0, 到文本 (i))
超升者级列表框1.置标题 (i － 1, 1, “第” ＋ 到文本 (i) ＋ “行内容”)
超级列表框1.置标题 (i － 1, 2, “无”)
.计次循环尾 ()
.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 文本变量, 文本型
.计次循环首 (超级列表框1.取表项数 (), i)
文本变态笑首量 ＝ 文本变量 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “，” ＋ 超级列表框1.取标帆数题 (i － 1, 1) ＋ “，” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符
.计次循环尾 ()
.如果 (写到文件 (“D:\123.txt”, 到字节集 (文本变量)) ＝ 真)
信息框 (“文件写出成功！”, #信息图标, “成功”)
.否则
信息框 (“文件写出失败1”, #警告图标, “失败”)
返回 ()

Answer 3

.版本 2
.支持库 iext
.子程序 _按钮腔御1_被单击
.局部变量 总数, 整数型
.局部变量 计数, 整数型
.局部变量 次数, 整数型
计数 ＝ 到整数 (超级列表框1.取标题 (超级列表框1.取表项数 () － 1, 1))
.计次循环首 (超级列表框1.取表项数 () － 1, 次数)
.如果真 (到整数 (超级列表框1.取标题 (次数, 6)) ＝ 计罩李数)
总数 ＝ 总伍闷岩数 ＋ 1
.如果真结束
.计次循环尾 ()
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 7, 到文本 (总数))