e4a保存标签保存数据

e4a保存标签保存数据

过程 保存数据(lb1 为 文本型,lb2 为 文本型,lb3 为 文本型,lb4 为 文本型,lb5 为 文本型)
	变量 加分割数据值 为 文本型
	'这里先将数据添加成以"|"符号分割的文本数据 再进行保存.以便在读取的时候可以进行数组分割
	加分割数据值 =lb1  & "|" & lb2  & "|" & lb3  & "|" & lb4  & "|" & lb5
	写出文本文件(取存储卡路径() & "/Licai/lczs4/dataold10.txt",加分割数据值,"GBK") '在判断没有的情况下  先写出两个空文件
	写出文本文件(取存储卡路径() & "/Licai/lczs4/datanew10.txt",加分割数据值,"GBK")
结束 过程
过程 读取数据() '在这里为了保存简洁  我们采用数据分割形式保存
	变量 旧数据 为 文本型
	变量 分割的数据 为 文本型()
	变量 i 为 整数型
	旧数据 = 读入文本文件(取存储卡路径() & "/Licai/lczs4/dataold10.txt","GBK")
	如果 旧数据 = "" 则
		信息框("错误","还未保存任何数据","确定")
		否则
		分割的数据 = 分割文本(旧数据,"|") '保存的分割符和这个分割符要一样的
		'读取规则:保存的标签2的内容读到标签1,3的内容到2 5→4,6→5 8→7,9→8 11→10,12→11 14→13,15→14
		'读取的时候只需要修改下面的标签就可以了. 数据顺序已经由保存的时候对应好了 所以直接修改标题就开业了
		显示统计框6.内容 = 分割的数据(0)
		显示统计框7.内容 = 分割的数据(1)
		显示统计框8.内容 = 分割的数据(2)
		显示统计框9.内容 = 分割的数据(3)
		显示统计框10.内容 = 分割的数据(4)
	结束 如果
结束 过程
过程 案一保存()
	如果 文件是否存在(取存储卡路径() & "/Licai/lczs1/dataold1.txt") = 假 或 文件是否存在(取存储卡路径() & "/Licai/lczs1/datanew1.txt") = 假 则
		写出文本文件(取存储卡路径() & "/Licai/lczs1/dataold1.txt"," ","GBK") '在判断没有的情况下  先写出两个空文件
		写出文本文件(取存储卡路径() & "/Licai/lczs1/datanew1.txt"," ","GBK")
		否则
		'只需要填写要保存的标签就可以了.
		保存数据1(显示统计框1.内容,显示统计框2.内容,显示统计框3.内容,显示统计框4.内容,显示统计框5.内容)
	结束 如果
结束 过程

 

45 Views
分享你的喜爱
默认图片
linwute

我要像梦一样自由,像大地一样宽容;
在艰辛放逐的路上,点亮生命的光芒;
我要像梦一样自由,像天空一样坚强;
在曲折蜿蜒的路上,体验生命的意义;

留下评论