'清洗数据
'创建一个对象筛选无用字符
Dim AAA=“-颜色名称,100,200-”
Dim BBB=Replace(AAA,“-”,“”)
Dim CCC= Replace(BBB,“,”,“|”)
'CCC就可以直接作为参数使用在紫猫插件中
'或者分离成数组,然后提取或者遍历使用
Dim DDD=Split(CCC,“|”)
For i = 0 To UBOUND(DDD)
TracePrint DDD(i)
Next
Function 读取txt文件()
Dim content, lines
content = File.Read(“/sdcard/已占领土地坐标.txt”)
lines = Split(content, “|”) ’ Using “|” as the delimiter
读取txt文件 = lines
TracePrint “新的坐标值为” & Join(lines, ", ")
End Function