Question

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

易语言超级列表框内容怎么保存和导入 直接保存某个默认路径的那种代码怎么写 给我个例子

Answer 1

.版本 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 2

　　.版本 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”, 到字节集 (最后内容))