一：下面只是以每一行为分割
事件 文件浏览框1.选择完毕(被选择文件 为 文本型)
变量 返回文本 为 文本型
变量 分割 为 文本型()
变量 文本 为 文本型
变量 i 为 整数型
高级列表框1.清空项目()
文本 = 读入文本文件(被选择文件,"GBK")
显示进度对话框("获取中……")
分割 = 分割文本(文本,"\n")
变量循环首 i=1 至 取数组成员数(分割) 步进 1
高级列表框1.添加项目("","测试1",分割(i-1),"","")
变量循环尾
关闭进度对话框()
结束 事件
事件 选择文件.被单击()
文件浏览框1.显示对话框(1,2,取存储卡路径())
结束 事件
事件 高级列表框1.表项被单击(项目索引 为 整数型)
编辑框1.内容 = 高级列表框1.取项目信息(项目索引)
结束 事件
二：下面是二次分割
过程 读取收藏数据 ()
收藏记录文件名 = 取存储卡路径() & "/Android/data/scjl.txt"
文本 = 读入文本文件(收藏记录文件名,"GBK")
显示进度对话框("获取中……")
分割 = 分割文本(文本,"\n")
i = 取数组下标(分割,1)
临时数据 = 到文本(到整数(i))
临时数据=取文本左边 (临时数据,倒找文本 (临时数据, ".",取文本长度 (临时数据) ))
' 标签2.标题="当前本地收藏库有 " & 临时数据 & " 条随机视频. "
高级列表框1.清空项目()
列表框1.清空项目()
变量循环首 j = 0 至 i-1
分割2 = 分割文本(分割(j),",")
高级列表框1.添加项目("",分割2(0),"","","")
列表框1.添加项目(分割2(1))
变量循环尾
关闭进度对话框()
结束 过程
过程 自定义地址收藏 ()
变量 返回文本 为 文本型
返回文本=读入文本文件(收藏记录文件名,"GBK")
如果 文件是否存在(收藏记录文件名) = 假 则
创建目录(取存储卡路径() & "/YY播放器")
写出文本文件(收藏记录文件名,编辑框1.内容 & "," & 编辑框2.内容,"GBK")
弹出提示("收藏成功...\n ")
否则
如果 寻找文本(返回文本,编辑框2.内容,0) = -1 则
写出文本文件(收藏记录文件名, 编辑框1.内容 & "," & 编辑框2.内容 & "\\n" & 返回文本,"GBK")
弹出提示("收藏成功......\\n")
否则
弹出提示("该视频已收藏")
结束 如果
结束 如果结束 过程
