【易语言】超级列表框 自动保存 菜鸟求高手!!!! 10
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 计次, 整数型
.局部变量 表项, 整数型
.计次循环首 (3, 计次)
表项 = 超级列表框1.插入表项 (, 读配置项 (取运行目录 () + “\保存.ini”, 到文本 (计次), “歌名”, ), , , , )
超级列表框1.置标题 (表项, 1, 读配置项 (取运行目录 () + “\保存.ini”, 到文本 (计次), “歌手”, ))
超级列表框1.置标题 (表项, 2(以前是1), 读配置项 (取运行目录 () + “\保存.ini”, 到文本 (计次), “时长”, ))
.计次循环尾 ()
.子程序 __启动窗口_将被销毁
.局部变量 计次, 整数型
.计次循环首 (3, 计次)
写配置项 (取运行目录 () + “\保存.ini”, 到文本 (计次), “歌名”, 超级列表框1.取标题 (计次 - 1, 0))
写配置项 (取运行目录 () + “\保存.ini”, 到文本 (计次), “歌手”, 超级列表框1.取标题 (计次 - 1, 1))
写配置项 (取运行目录 () + “\保存.ini”, 到文本 (计次), “时长”, 超级列表框1.取标题 (计次 - 1, 2))
.计次循环尾 ()
我等会把图片也加上
对了 上面要改一下
置标题的的 列~~
.子程序 __启动窗口_可否被关闭, 逻辑型
.局部变量 列表索引, 整数型
.局部变量 列表文件, 文本型
.局部变量 a, 整数型
.如果真 (超级列表框1.取表项数 () ≠ 0)
.计次循环首 (超级列表框1.取表项数 (), 列表索引)
列表文件 = 列表文件 + 超级列表框1.取标题 (列表索引 - 1, 1) + “|” + 超级列表框1.取标题 (列表索引 - 1, 2) + 超级列表框1.取标题 (列表索引 - 1, 2) + #换行符
.计次循环尾 () '注意这就是写出前3列数据关键。
写到文件 (取运行目录 () + “\歌曲路径.txt”, 到字节集 (列表文件))
只有写入没有读取??