？

？

保存 列表框 内容
启动APP的时候检测文件是否存在，如果存在就读到取列表框。

这是我学习的时候写的一部份代码
变量 返回文本 为 文本型
返回文本=读入文本文件(取存储卡路径()&"/YY视频/scjl.txt","UTF-8")
如果 文件是否存在(取存储卡路径() & "/YY视频/scjl.txt") = 假 则
创建目录(取存储卡路径() & "/YY视频")
写出文本文件(取存储卡路径()&"/YY视频/scjl.txt",播放名称 & "," & 播放地址,"UTF-8")
弹出提示("收藏成功...\n ")
文本 = 读入文本文件(取存储卡路径()&"/YY视频/scjl.txt","UTF-8")
分割 = 分割文本(文本,"\n")
i = 取数组下标(分割,1)
标签2.标题="当前本地收藏库有 " & 到文本(i) & "条随机视频. "
最大数字=取随机数(0,i)
高级列表框1.清空项目()
变量循环首 j = 0 至 i-1
分割2 = 分割文本(分割(j),",")
高级列表框2.添加项目("",分割2(0),"","","")
列表框2.添加项目(分割2(1))
变量循环尾
否则
写出文本文件(取存储卡路径()&"/YY视频/scjl.txt", 返回文本 & 播放名称 & "," & 播放地址 & "\n","UTF-8")
弹出提示("收藏成功......\n")
文本 = 读入文本文件(取存储卡路径()&"/YY视频/scjl.txt","UTF-8")
分割 = 分割文本(文本,"\n")
i = 取数组下标(分割,1)
标签2.标题="当前本地收藏库有 " & 到文本(i) & "条随机视频. "
最大数字=取随机数(0,i)
高级列表框1.清空项目()
变量循环首 j = 0 至 i-1
分割2 = 分割文本(分割(j),",")
高级列表框2.添加项目("",分割2(0),"","","")
列表框2.添加项目(分割2(1))
变量循环尾
结束 如果

这是启动APP时读取
文本 = 读入文本文件(取存储卡路径()&"/YY视频/scjl.txt","UTF-8")
分割 = 分割文本(文本,"\n")
i = 取数组下标(分割,1)
标签2.标题="当前本地收藏库有 " & 到文本(i) & "条随机视频. "
最大数字=取随机数(0,i)
高级列表框1.清空项目()
变量循环首 j = 0 至 i-1
分割2 = 分割文本(分割(j),",")
高级列表框2.添加项目("",分割2(0),"","","")
列表框2.添加项目(分割2(1))
变量循环尾