|

楼主 |
发表于 2025-5-28 16:54:23
|
显示全部楼层
page_define={Screen0=0,Screen1=1}
local file_path = "B:/test.txt"
--初始化函数
function on_init()
my_reload_appctrl_data()
end
--定时回调函数,系统每隔1秒钟自动调用。
--function on_systick()
--end
--定时器超时回调函数,当设置的定时器超时时,执行此回调函数,timer_id为对应的定时器ID
--function on_timer(timer_id)
--end
--用户通过触摸修改控件后,执行此回调函数。
--点击按钮控件,修改文本控件、修改滑动条都会触发此事件。
function on_control_notify(screen,control,value)
if screen == Screen0 then
if control == 10 and value == 0
then
local write_str = get_text(Screen0, 15)
my_save_data(write_str)
flush_nor()
elseif control == 93 and value == 0 then
local read_str = my_reload_appctrl_data()
set_text(Screen0, 9, read_str)
end
end
end
--当画面切换时,执行此回调函数,screen为目标画面。
--function on_screen_change(screen)
--end
function my_reload_appctrl_data()
local info = nil
local rfile = io.open(file_path,"r")
if rfile ~= nil
then
--set_text(0, 15, 'R : The '..file_path..' exist :'..info..' !')
rfile:seek("set")
info = rfile:read("a")
--rfile:close()
end
rfile:close()
return info
end
function my_save_data(info)
local wfile = io.open(file_path,"w") -- 以覆盖写入的方式打开文本
if wfile ~= nil
then
wfile:write(info)
--set_text(0, 97, 'W : The '..file_path..' exist :'..info..' !')
wfile:flush()
wfile:close()
wfile = io.open(file_path,"r")
if wfile ~= nil
then
wfile:close()
end
end
end
我把text文件放在B区里面了里面存的123456,这个读写文件也是你们官网上的,就是读不上来,请帮我找下原因,或者你们有没有读写text文件的demo也可以,官网上的无法下载; |
|