大彩医用级串口屏lua应用-米乐网页

--get the type and length of the variable
--@data: 'string' or 'table'
--@return: len and type of data
function my_getdatalen_type(data)
    my_debug_print('---------- my_getdatalen_type ----------')
    local datalen = -1
    --获取数据类型
    local data_type = type(data)
    --计算数据长度
    if data_type == 'string'
    then
        datalen = string.len(data)
    elseif data_type == 'table'
    then
        datalen = #(data)
    end
    my_debug_print('lua_debug data type and len: '..data_type..' /'..datalen)
    return datalen,data_type
end
--write data to the end of the file
--@file:file path
--@data:the type of '@data' only be [string] or [byte array]
--@open_mode:open file mode
function my_write_filedata(file, data, open_mode)
    my_debug_print('---------- my_write_filedata ----------')
    my_debug_print('lua_debug: file -> '..file..' / data -> '..type(data)..' / open_mode -> '..open_mode)
    local count     = 0
    local write_cnt = 0
    local offset    = 0
    local all_byte  = 0
    --获取待写入数据的数据类型和长度
    local wrire_len, data_type = my_getdatalen_type(data)
    local write_byte_tb = {}
    local open_state = file_open(file, open_mode)
    if open_state == true
    then
        --获取当前文件大小,仅在追加文件末尾写入执行
        if open_mode == add_write
        then
            all_byte = file_size()
        end
        if wrire_len > 0
        then
            --计算'@data'要写多少次
            write_cnt =  math.modf(wrire_len / writeoncesize)
            if wrire_len % writeoncesize > 0
            then
                write_cnt = write_cnt   1
            end
            my_debug_print('lua_debug: need write allcnt -> '..write_cnt)
            for i = 1, write_cnt
            do
                --复位写字节数组
                write_byte_tb = {}
                --计算写的位置
                offset = (i - 1) * writeoncesize  all_byte
                local offst_result = file_seek(offset)
                --文件偏移失败
                if offst_result == false 
                then
                    set_text(sc_prompt, 1, 'when reading the file, an offset error occurred. please try again! ! !')
                    set_text_roll(sc_prompt, 1, 50)
                    change_child_screen(sc_prompt)
                    break
                end
                my_debug_print('lua_debug: cur offset  -> '..offset)
                --计算本次写的个数
                count = writeoncesize
                if i == write_cnt
                then
                    if wrire_len % writeoncesize > 0
                    then
                        count = wrire_len % writeoncesize
                    end
                end
                my_debug_print('lua_debug: cur write  -> '..write_cnt..'th /wrire count '..count)
                --填充写入flash的字节数组
                for j = 1, count 
                do
                    if data_type == 'string'
                    then
                    --字符串类型，将每个字符转换为字节数组
                    write_byte_tb[j - 1] = tonumber(string.byte(data, ((i - 1) * writeoncesize   j), ((i - 1) * writeoncesize   j)))
                    elseif data_type == 'table'
                    then
                        --数组类型，字节赋值
                        write_byte_tb[j - 1] = 
                        data[((i - 1) * writeoncesize   j)]
                    end
                end
                local iswriteok = file_write(write_byte_tb)
                if iswriteok == false
                then
                    i = i - 1
                end    
            end
        end
    else
        set_text(sc_prompt, 1, 'the file don`t exist, please check the contents of the sd car! ! !')
        set_text_roll(sc_prompt, 1, 50)
        change_child_screen(sc_prompt)    
    end
    --关闭文件
    file_close()
end
--用户通过触摸修改控件后，执行此回调函数。
--点击按钮控件，修改文本控件、修改滑动条都会触发此事件。
function on_control_notify(screen,control,value)
    ......
    --追加写
    elseif screen == sc_writefile and control == 3 and value == 0
then
        sc_showrecord = sc_writefile
        --已插入sd卡
        if isinsertsd == 1
        then
            record_clear(sc_writefile, 1)
            local str = 'n'..get_text(sc_writefile, 2)    
            my_write_filedata(sd_dir..'/'..'1.txt', str, add_write)
            my_read_filedata(sd_dir..'/'..'1.txt')
            local allrecordcnt = record_get_count(sc_writefile, 1)
            record_setoffset(sc_writefile, 1, allrecordcnt - 1)
            record_select(sc_writefile   , 1, allrecordcnt - 1)
        --未插入sd卡
        else
            set_text(sc_prompt, 1, 'please insert the sd card, or check if the sd is compatible! ! !')
            set_text_roll(sc_prompt, 1, 50)
            change_child_screen(sc_prompt)
        end
    --覆盖写
    elseif screen == sc_writefile and control == 5 and value == 0
    then
        sc_showrecord = sc_writefile
        --已插入sd卡
        if isinsertsd == 1
        then
            record_clear(sc_writefile, 1)
            cnt = cnt   1
            local str = (cnt   1)..'th write -> '..get_text(sc_writefile, 4) 
            my_write_filedata(sd_dir..'/'..'newtxtfile.txt',str,over_write)
            my_read_filedata(sd_dir..'/'..'newtxtfile.txt')
        --未插入sd卡
        else
            set_text(sc_prompt, 1, 'please insert the sd card, or check if the sd is compatible! ! !')
            set_text_roll(sc_prompt, 1, 50)
            change_child_screen(sc_prompt)
        end
    ......
    end
end