上面这部分的源码：
Import "shanhai.lua"
Dim x=GetScreenX()
Dim 路径="/sdcard/pictures/题库.txt"
file.write(路径,"")
For 20
Dim m=shanhai.getuixml()
dim arr=ShanHai.RegexFind(m,"text=""([^""]+)")
For Each k In arr
If InStr(1, k, "答案") > 0 Then
dim answer= right(k,1)
Exit For
End If
Next
TracePrint "题目是："&arr(2)
TracePrint "答案是："&答案(answer)
File.Append(路径,""""&arr(2)&""":"""&答案(answer)&""",")
Delay 200
Swipe x * 0.9, 500, x * 0.1, 500, 300
Delay 200
Next
Dim ku=file.read(路径)
file.Write (路径,"{"&left(ku,len(ku)-1)&"}")
Function 答案(a)
If a = "A" Then
答案=arr(3)
ElseIf a = "B" Then
答案=arr(4)
ElseIf a = "C" Then
答案=arr(5)
ElseIf a = "D" Then
答案=arr(6)
End If
End Function
下面是第二点：答题操作
基本思路~
一、提取题目
二、比对题库，找到正确答案的文字内容
三、点击界面中的答案对应的文字
四、向左滑动脚本代码大全，进入下一题
具体说一下：
一、提取题目
Dim m=shanhai.getuixml()
dim arr=ShanHai.RegexFind(m,"text=""([^""]+)")
方法和制作题库一样，这里就不重复了
二、比对题库，找到正确答案的文字内容
先将文本里面的json内容读取出来，然后通过命令转为“表”的形式。
Dim ku=file.read("/sdcard/pictures/题库.txt")
Dim answer=Encode.JsonToTable(ku)
然后，利用我上文提到的json提取方法，提取当前题目对应的答案。这里为了大家看的清楚，我用了showmessage，在屏幕上停留的两秒钟，如果自己写的话脚本代码大全，这一步是没有必要的。
For 2
ShowMessage "答案是：" & answer[arr(2)]
Delay 1000
Next
三、点击界面中的答案对应的文字
dim a=ShanHai.FindXmlKey(m,"text",answer[arr(2)],"bounds")
dim zbarr= ShanHai.RegexFind (a, "%[(.-)%]")
Dim zb=split(zbarr(0),",")
Tap zb(0), zb(1)
四、向左滑动，进入下一题
Swipe x * 0.7, 500, x * 0.1, 500, 300
代码如下：
Import "shanhai.lua"
Dim x=GetScreenX()
Dim ku=file.read("/sdcard/pictures/题库.txt")
Dim answer=Encode.JsonToTable(ku)
For 20
Dim m=shanhai.getuixml()
dim arr=ShanHai.RegexFind(m,"text=""([^""]+)")
For 2
ShowMessage "答案是：" & answer[arr(2)]
Delay 1000
Next
dim a=ShanHai.FindXmlKey(m,"text",answer[arr(2)],"bounds")
dim zbarr= ShanHai.RegexFind (a, "%[(.-)%]")
Dim zb=split(zbarr(0),",")
Tap zb(0), zb(1)
Delay 500
Swipe x * 0.7, 500, x * 0.1, 500, 300
Delay 1000
Next
总结一下：这篇文章的核心是提取xml的文字，用到了一个不常用的存储形式json。通过比对文字，找到正确答案，完成答题。
如果觉得文章还不错，麻烦点一下左下角的“在看”，谢谢！
来源：【九爱网址导航www.fuzhukm.com】 免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！
