Import "File.lua" /********************************************** JSON常用函数封装 ***********************************************/ Dim date_path= "/sdcard/Pictures/Aj_Config/date" Function 读取JSON为坐标(text) dim config=File.read(date_path) //读取配置文件 Dim name=CStr(text) If UTF8.InStr(1,config, name) > 0 Then //找到指定参数 Dim table=Encode.JsonToTable(config) Dim xy=Split(table[name], ",") 读取JSON为坐标=xy Else TracePrint "没找到坐标" End If End Function Function 点击(数组) Tap 数组(0),数组(1) End Function Dim 价格坐标=读取JSON为坐标("价格坐标") //Tap价格坐标(0),价格坐标(1) 点击(价格坐标)