Lua语言_文本操作之追加内容到文件
发布于 2020-04-26
function QMPlugin.Append(FileName, ...) local arg={...} pcall( function() local f = io.open(FileName, "a") if f == null then return false en...
阅读(1744)赞 (0)
发布于 2020-04-26
function QMPlugin.Append(FileName, ...) local arg={...} pcall( function() local f = io.open(FileName, "a") if f == null then return false en...
阅读(1744)赞 (0)
发布于 2020-04-26
--查询表 function QMPlugin.SQLSelect(DBpath, tbl, field, where) local result = {} local sql local sqlite3 = require("sqlite3") field = field or...
阅读(1060)赞 (0)
发布于 2020-04-26
办法1 //判断返回 Function 返回(arr) For 3 Randelay() If 找图判断(arr) = true Then TracePrint "返回成功" Exit For Else TracePrint "继续返回" KeyPress "back" End ...
阅读(1173)赞 (0)
发布于 2020-04-26
Function 文本内容(路径) Dim 读取结果 = File.ReadLines(路径) Dim 行数 = File.linesnumber(路径) TracePrint "一共有"&行数&"行" For Each 每行内容 in 读取结果 TracePri...
阅读(1280)赞 (0)
发布于 2020-04-26
Function 输出文字(path) // Dim C,path,str,miao,Rndnum Randomize //随机种子 Dim Rndntime= Int((6-2+1)*Rnd()+1) //最大6秒 最小2秒 // path = "/sdcard/Picture...
阅读(1626)赞 (2)
发布于 2020-04-26
//--------点击函数封装------------ Function 点击(arr) Tap arr(0),arr(1) End Function '作业 '按钮 = Array(169, 180) 'Call 点击(按钮) Function 点(x, y) TouchDo...
阅读(1356)赞 (0)
发布于 2020-04-24
Function Baiduocr(api, Secret, 路径) CheckUpdate() TracePrint "开始识别请耐心等待..." Dim token=url.get("https://aip.baidubce.com/oauth/2.0/token?grant...
阅读(1352)赞 (0)
发布于 2020-04-24
Function 画面卡屏(ms) Rem begin KeepCapture//只截图一次,优化运行效率,下同 Dim a = GetPixelColor(172,361) Dim b = GetPixelColor(173,695) Dim c = GetPixelColor...
阅读(1715)赞 (1)
发布于 2020-04-24
Function 获取设备所有信息() Dim 设备型号 = Device.GetModel() Dim 设备IMEI=GetDeviceID() Dim 设备imsi号 = Device.GetImsi() Dim SIM卡ID = Device.GetIccid() Dim ...
阅读(1674)赞 (0)
发布于 2020-04-22
Function 画面卡屏(ms) Rem begin KeepCapture//只截图一次,优化运行效率,下同 Dim a = GetPixelColor(172,361) Dim b = GetPixelColor(173,695) Dim c = GetPixelColor...
阅读(1122)赞 (0)