标题: 没有文件创建，从包里copy到手机里，重启后内容丢失 [打印本页] 作者: wangsu321 时间: 2015-7-21 06:38 标题: 没有文件创建，从包里copy到手机里，重启后内容丢失 //无语,由tc 复制的文件在安卓里重启后丢失内容,bug吧,先在安卓手机里自建吧
var sd="/sdcard/apps/hqgset.txt"
var dict="/sdcard/apps/hqg.txt"
//上面两个是备份,下面是使用中的,整点备份
var 文件="/sdcard/windows/hqg/hqgset.txt"
var 词典="/sdcard/windows/hqg/hqg.txt"
var aa=0,bb=0,cc,dd
//还有空白1000行配置文件,配置文件的检查还是要在安卓里看,编码不一样吧
var 空白="/sdcard/windows/hqg/abak/hqgset.txt"
function floatwinrun()
//syspoweroff()
var line=filegetline(文件)
traceprint(line)
end
function start_click()
messagebox("开始")
foldercreate("/sdcard/apps")
end
function exit_click()
exit()
end
function 恢复空白配置()
filecopy(空白,文件)
end
function 环境安装()
var q,exist,ex,exs
exist=fileexist(文件)
if(exist==1)
var line=filegetline(文件)
traceprint(line)
if(line==1000)
elseif(line==0)
for(var i = 0; i < 1000; i++)
q=fileinsertline(文件,"\r\n",i)
end
filecopy(文件,sd)
traceprint(line)
else
traceprint("行数不是1000,从备份恢复中")
filecopy(sd,文件)
end
else
filecopy("rc:hqgset.txt",文件) //实际从安装包本身里面复制的
for(var i = 0; i < 1000; i++)
// q=filedeleteline(文件,i)
q=fileinsertline(文件,"\r\n",i)
end
filecopy(文件,空白)
end
ex=fileexist(词典)
if(ex==1)
else
filecopy("rc:hqg.txt",词典)
end
sysgetscreen(cc,dd)
filedeleteline(文件,0) //删除一行,插入一行,真好不变
fileinsertline(文件,cc&"\r\n",0) //插入会多一行,所以前面先删除一行;插入5,会在4**入
filedeleteline(文件,1)
fileinsertline(文件,dd&"\r\n",1)
var fo=foldercreate("/sdcard/apps") //创建备份文件夹
traceprint(fo)
end
function 功能测试()
end
//话说有没有folderexist函数呢，有没有filecreate函数呢，我表示很郁闷；难道让手机用户自己建立文件供我们编辑
//大家怎么解决的，说说
