- 按键工程师
- 742060
- 2281
- 5
- 881 朵
- 10799 个
- 580 个
- 48300
- 2011-08-18
|
1#
t
T
发表于 2016-05-04 17:51
|
|只看楼主
零基础,轻松学习安卓按键,大家好,我是山海师~~~ 今天的教程是给大家带来文件命令的使用, 文件读写命令也算是在安卓按键中比较常用的命令, 比较多的用来在手机上保存一些数据, 或者用于实现批量换号等等功能的实现.
| >>>>总目录贴入口<<<<
常用的读写文件的命令有这些: File.Read 、File.Write、File.ReadLines、 File.ReadLine
File.Read
命令名称 | File.Read | 命令功能 | 读取文件内容 | 命令参数 | FileName:字符串型,为文件绝对路径
| 返回值 | 字符串型,为读出的内容
|
命令名称 | File.Write | 命令功能 | 写入文件内容 | 命令参数 | FileName:字符串型,为文件绝对路径 str:字符串型,为待写入文本的内容
| 返回值 | 无
|
范例:- Dim 返回值
- //写入文本信息(路径,内容)
- Call File.Write("/sdcard/MobileAnjian/anjian.txt","我爱按键精灵")
- // 读anjian.txt文本的内容
- 返回值=File.Read("/sdcard/MobileAnjian/anjian.txt")
- ShowMessage 返回值
- Delay 2000
- //写入多行内容
- Call File.Write("/sdcard/MobileAnjian/anjian.txt", "我爱按键精灵\n我爱按键精灵")
- 返回值=File.Read("/sdcard/MobileAnjian/anjian.txt")
- ShowMessage 返回值
- Delay 2000
复制代码 上面代码展示了读写文件的命令的使用方法. 读取和写入的内容都需要是字符串类型. 当文本的内容有多行时读取命令也会把换行读取出来. 在使用traceprint命令输出时是查看不出来, 需要使用showmessage命令来查看, 就可以发现读取出来的内容是携带换行.
File.ReadLines
命令名称 | File.ReadLines | 命令功能 | 读取文本文件内容,存为数组 | 命令参数 | FileName:字符串型,为文件绝对路径
| 返回值 | 返回数组,由读取每一行的字符串组成
|
范例: 想要把这个文本里每行的内容读取出来
- 您所在的用户组无法下载或查看附件
- Dim 账号数组
- 账号数组 = File.ReadLines("/sdcard/MobileAnjian/zhanghao.txt")
- For Each v in 账号数组
- TracePrint "当前行的内容是: " & v
- Next
复制代码 这种读取内容成数组的命令好处在于方便处理多行的内容, 可以先把文本的内容读取存到数组里, 之后只需要读取数组就好了, 提高效率和便捷性
File.ReadLine
命令名称 | File.ReadLine | 命令功能 | 读取文本文件中指定行的内容 | 命令参数 | FileName:字符串型,为文本文件路径 Line:整数型,欲读取内容的行数号
| 返回值 | 字符串型,为读出的指定行内容
|
范例- Dim 内容,行数
- // 读取文本总共有多少行
- 行数 = File.LinesNumber("/sdcard/MobileAnjian/zhanghao.txt")
- For i=1 to 行数
- 内容 = file.Readline("/sdcard/MobileAnjian/zhanghao.txt", i)
- TracePrint "当前第" & i & "行的内容是: " & 内容
- next
复制代码 这个命令可以单独读取多行文本中的指定的行. 可以配合删除指定行的命令来实现读取一行删一行的功能- Dim 内容,行数
- // 读取文本总共有多少行
- 行数 = File.LinesNumber("/sdcard/MobileAnjian/zhanghao.txt")
- For 行数
- 内容 = file.Readline("/sdcard/MobileAnjian/zhanghao.txt", 1)
- call File.DeleteLine("/sdcard/MobileAnjian/zhanghao.txt",1)
- Next
复制代码 这个代码就实现了读取循环读取文本的第一行, 读取完毕后就删除第一行. 因为每次删除第一行之后原本第二行的内容就会变成第一行, 所以循环结构里只需要读取和删除第一行就可以了.
简单的自动换号
可以通过读取文本以及for循环来配合使用, 这里就来简单的模拟一下自动换号的功能. 这里的思路是先把多个账号和密码按照一定的格式保存到文本里, 然后再把文本读取到数组里, 循环读取每个元素的内容, 提取出账号和密码, 进行输入
- 您所在的用户组无法下载或查看附件
- Dim 内容数组,行数,路径,账号,密码,分割内容
- 路径 = "/sdcard/MobileAnjian/zhanghao.txt"
- // 读取文本内容为数组,遍历数组每一行内容
- 内容数组 = File.ReadLines(路径)
- For Each 内容 In 内容数组
- // 把账号和密码分割开
- 分割内容 = split(内容,"--")
- 账号 = 分割内容(0)
- 密码 = 分割内容(1)
- // 点击账号输入框坐标, 输入账号
- Tap 100, 200
- Delay 500
- InputText 账号
- Delay 1000
- // 点击密码输入框,输入密码
- Tap 200,300
- Delay 500
- InputText 密码
- Next
复制代码 关于自动换号的教程大家还可以的参考下这两篇院刊:
用安卓按键来实现自动换号 -【201509期】
优雅的进行账号密码的输入 - 【201509期】
赠人玫瑰手有余香~~~你的一个顺手回复也许就可以让这个帖子给更多的人看到,就能帮助更多的人~~~
|