e4a标签保存（保存数据设置到txt文件）

事件 按钮_保存.被单击()
‘首先在SD上面创建两个文件 分别命名为：dataold.txt(旧数据文件)  datanew.txt(新数据)  这一步也可以在窗口启动的时候添加
如果 文件是否存在(取存储卡路径() & “/dataold.txt”) = 假 或 文件是否存在(取存储卡路径() & “/datanew.txt”) = 假 则
写出文本文件(取存储卡路径() & “/dataold.txt”,” “,”GBK”) ‘在判断没有的情况下  先写出两个空文件
写出文本文件(取存储卡路径() & “/datanew.txt”,” “,”GBK”)
否则
‘这里我们保存第2.3 5.6 8.9 11.12 14.15个标签的值
‘只需要填写要保存的标签就可以了.
保存数据(标签2.标题,标签3.标题,标签5.标题,标签6.标题,标签8.标题,标签9.标题,标签11.标题,标签12.标题,标签14.标题,标签15.标题)
弹出提示(“数据保存成功”)
结束 如果
结束 事件
过程 保存数据(lb2 为 文本型,lb3 为 文本型,lb5 为 文本型,lb6 为 文本型,lb8 为 文本型,lb9 为 文本型,lb11 为 文本型,lb12 为 文本型,lb14 为 文本型,lb15 为 文本型)
变量 加分割数据值 为 文本型
‘这里先将数据添加成以”|”符号分割的文本数据 再进行保存.以便在读取的时候可以进行数组分割
加分割数据值 = lb2 & “|” & lb3  & “|” & lb5  & “|” & lb6  & “|” & lb8  & “|” & lb9  & “|” & lb11  & “|” & lb12  & “|” & lb14  & “|” & lb15
写出文本文件(取存储卡路径() & “/dataold.txt”,加分割数据值,”GBK”) ‘在判断没有的情况下  先写出两个空文件
写出文本文件(取存储卡路径() & “/datanew.txt”,加分割数据值,”GBK”)
结束 过程
过程 读取数据() ‘在这里为了保存简洁  我们采用数据分割形式保存
变量 旧数据 为 文本型
变量 分割的数据 为 文本型()
变量 i 为 整数型
旧数据 = 读入文本文件(取存储卡路径() & “/dataold.txt”,”GBK”)
如果 旧数据 = “” 则
信息框(“错误”,”还未保存任何数据”,”确定”)
否则
分割的数据 = 分割文本(旧数据,”|”) ‘保存的分割符和这个分割符要一样的
‘读取规则：保存的标签2的内容读到标签1，3的内容到2 5→4,6→5 8→7,9→8 11→10,12→11 14→13,15→14
‘读取的时候只需要修改下面的标签就可以了. 数据顺序已经由保存的时候对应好了 所以直接修改标题就开业了
标签1.标题 = 分割的数据(0)
标签2.标题 = 分割的数据(1)
标签4.标题 = 分割的数据(2)
标签5.标题 = 分割的数据(3)
标签7.标题 = 分割的数据(4)
标签8.标题 = 分割的数据(5)
标签10.标题 = 分割的数据(6)
标签11.标题 = 分割的数据(7)
标签13.标题 = 分割的数据(8)
标签14.标题 = 分割的数据(9)
结束 如果
结束 过程
事件 按钮1.被单击()
读取数据()
弹出提示(“数据读取成功”)
结束 事件

E4a标签保存.e4a