按键精灵脚本每次运行时怎么读取txt内的账号跟密码，具体如下：

Question

读取完后在指定坐标A输入账号，指定坐标B输入密码，读取完成后再删除读取过的第一行内容让第二行的内容排到第一行的位置并保存文本，这样脚本运行第二遍的时候就可以接着读取第二行后再删除，以此类推。文本内容的数量不固定，“----”不能读取进。
账号格式：
3057531662----dsa1475575
306696547----lfd86876876
要求具体脚本内容

Answer 1

这个方案我有两种思路，第一种思路是你像你这样所说的，但是这种有一个缺点就是你读取了这一行的内容在把它删除掉，日后你在观看以前的数据删除了这一点就不够友好。第二种方案采用两个数组，第一个数组读取账号和密码，第二个数组记录需要读取哪个账号。
第一种方案：Dim 路径,行数,账号,密码,分割内容,内容
路径="/sdcard/MobileAnjian/anjian.txt"
Call File.Write(路径,"3057531662----dsa1475575\n306696547----lfd86876876")
行数 = file.linesnumber(路径)
For 行数
内容=File.ReadLine(路径,1)
分割内容=Split(内容,"----")
账号 = 分割内容(0)
TracePrint 账号
密码 = 分割内容(1)
TracePrint 密码
File.DeleteLine(路径,1)
Next
第二种方案
Dim path1 = "/sdcard/账号.txt"
Dim path2 = "/sdcard/记录.txt"
Dim 账号,密码,行

Do
'先读取当前需要登录第几行账号
行 = File.Read(path2)
'读取账号、密码
Call 读取账号(path1,cint(行))
Call 登录账号()
'登录成功之后行数加1，再次登录时就会自动读取下一个账号
Call File.Write(path2, CInt(行) + 1)
'执行游戏中的功能
Call 执行任务()
Loop

Function 读取账号(账号路径,行)
Dim arr(),text()
arr = File.ReadLines(账号路径)
text = Split(arr(行), "|")
账号 = text(0)
密码 = text(1)
End Function