读取文本文件并分割到高级列表框

一:下面只是以每一行为分割

事件 文件浏览框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")
      否则
       弹出提示("该视频已收藏")
      结束 如果
        结束 如果
结束 过程

 

相关推荐

网友评论(0)