Import "ShanHai.lua"
Dim ajui_path="/sdcard/MobileAnJian/UIConfig/"//按键精灵UI配置文件路径
Dim FileArr = shanhai.ScanPath(ajui_path) //扫描路径有什么文件
For Each user_path In FileArr
TracePrint user_path
dim text=File.read(ajui_path&user_path)//合并用户UI路径
TracePrint text //读取用户UI路径文本内容
Dim name="记录文本" //寻找配置参数
If UTF8.InStr(1, text, name) > 0 Then //找到指定参数
Dim table=Encode.JsonToTable(text) //将text重新定义为table
table["记录文本"] = "1111" //修改table表值
Dim json=Encode.TableToJson(Table) //
Call File.Write(ajui_path&user_path, json)
Else
TracePrint "没找到记录文本"
End If
Next
Import "ShanHai.lua"
Dim ajui_path="/sdcard/MobileAnJian/UIConfig/"//按键精灵UI配置文件路径
Dim FileArr = shanhai.ScanPath(ajui_path) //扫描路径有什么文件
For Each user_path In FileArr
TracePrint user_path
dim text=File.read(ajui_path&user_path)//合并用户UI路径
TracePrint text //读取用户UI路径文本内容
Dim name="记录文本" //寻找配置参数
If UTF8.InStr(1, text, name) > 0 Then //找到指定参数
Dim table=Encode.JsonToTable(text) //将text重新定义为table
table["记录文本"] = "1111" //修改table表值
Dim json=Encode.TableToJson(Table) //
Call File.Write(ajui_path&user_path, json)
Else
TracePrint "没找到记录文本"
End If
Next
Import "ShanHai.lua" Dim ajui_path="/sdcard/MobileAnJian/UIConfig/"//按键精灵UI配置文件路径 Dim FileArr = shanhai.ScanPath(ajui_path) //扫描路径有什么文件 For Each user_path In FileArr TracePrint user_path dim text=File.read(ajui_path&user_path)//合并用户UI路径 TracePrint text //读取用户UI路径文本内容 Dim name="记录文本" //寻找配置参数 If UTF8.InStr(1, text, name) > 0 Then //找到指定参数 Dim table=Encode.JsonToTable(text) //将text重新定义为table table["记录文本"] = "1111" //修改table表值 Dim json=Encode.TableToJson(Table) // Call File.Write(ajui_path&user_path, json) Else TracePrint "没找到记录文本" End If Next
键精灵_修改静态界面参数代码