保存所有项目…

变量 计次 为 整数型
变量 保存内容 为 文本型
变量循环首 计次=1 至 列表框1.取项目数()
如果 保存内容 = "" 则
保存内容=列表框1.取项目内容(计次-1)
否则
保存内容=保存内容 & "\n" & 列表框1.取项目内容(计次-1)
结束 如果
变量循环尾
写出文本文件("/sdcard/123.txt",保存内容,"UTF-8")

读取所有项目…

变量 计次 为 整数型
变量 分割数组 为 文本型()
分割数组=分割文本(读入文本文件("/sdcard/123.txt","UTF-8"),"\n")
变量循环首 计次=1 至 取数组成员数(分割数组)
列表框1.添加项目(分割数组(计次-1))
变量循环尾