按键精灵_复制图片函数封装

Import "File.lua"//导入插件

Dim all_pic_path="/sdcard/lmxy/all_pic/"            //总图库
dim select_pic_path="/sdcard/lmxy/select_pic/"     //选择图库

Dim pic_total_txt="/sdcard/lmxy/pic_total_txt.txt" //图片总数
Dim pic_log_txt="/sdcard/lmxy/pic_log_txt.txt" //图片发布记录


Function copy_pic() //单次复制图片
    dim pic_total_num = File.Read(pic_total_txt) '总数目
    dim pic_log_num = File.Read(pic_log_txt)'图片发布记录
    TracePrint "共有"&pic_total_num&"张图片_"&"当前复制第"&pic_log_num&"张"
       If CLng(pic_log_num) < CLng(pic_total_num) Then //图片发布记录需小于总素材 
       
        Call File.CopyFile(all_pic_path  & pic_log_num & ".jpg",select_pic_path& pic_log_num & ".jpg") //从总素材复制图片到被选择素材
        
        Call File.Write(pic_log_txt, CInt(pic_log_num) + 1) //记录加1
        
        TracePrint "转移" & pic_log_num & "图片"
        
        Delay 250
    Else 
      TracePrint "素材用完了"
       
    End If
End Function


Function move_pic(i) //复制几张图片

    Call deletePic()//清空被选择图库

    zm.Delay(300,600) //随机秒

    For i
    
        Call copy_pic()
        
    Next

    zm.Delay(300,600) //随机秒
    
    Call UpdatePic() //更新总图库

End Function