--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
    --獲取數(shù)據(jù)類型
    local data_type = type(data)

    --計算數(shù)據(jù)長度
    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
    --獲取待寫入數(shù)據(jù)的數(shù)據(jù)類型和長度
    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
        --獲取當(dāng)前文件大小,僅在追加文件末尾寫入執(zhí)行
        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
                --復(fù)位寫字節(jié)數(shù)組
                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)

                --計算本次寫的個數(shù)
                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的字節(jié)數(shù)組
                for j = 1, count 
                do
                    if data_type == 'string'
                    then
                    --字符串類型，將每個字符轉(zhuǎn)換為字節(jié)數(shù)組
                    write_byte_Tb[j - 1] = tonumber(string.byte(data, ((i - 1) * WriteOnceSize + j), ((i - 1) * WriteOnceSize + j)))

                    elseif data_type == 'table'
                    then
                        --數(shù)組類型，字節(jié)賦值
                        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

    --關(guān)閉文件
    file_close()
end

--用戶通過觸摸修改控件后，執(zhí)行此回調(diào)函數(shù)。
--點擊按鈕控件，修改文本控件、修改滑動條都會觸發(fā)此事件。
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