大家好，我是公众号[3分钟学堂]的郭立员~
读取文本并做好已读记录，先看效果图：
先来介绍一下功能，假设我们读取一个存储账号密码的文本，每次读取完用另外一个文本做好记录，当脚本再次运行时已经读取过的就不在读取了。
要实现这个功能用到的命令不唯一，我只说一下我这个脚本的思路。
第一步：判断设备中是否存在“记录文本”，若存在读取文本中有几行，输出一个行数，若不存在创建一个记录文本，输出行数=0
第二步：读取账号密码文本，存入到数组中
第三步：以第一步中行数作为数组下标，输出一下账号和密码
这一步之所以可以直接用行数作为数组下标，是因为数组下标是从0开始的，也就是数组第1个数据对应的数组下标是0，行数比下标大1，这样用行数做数组下标，可以保证每次读取的内容在记录文本中后一行的内容。
第四步：把读取的账号密码写入到记录文本里面
Dim path = "/sdcard/pictures/信息.txt"
Dim path_record = "/sdcard/pictures/记录.txt"
Dim num = ""
If Dir.Exist(path_record) = 0 Then
file.Write(path_record)
num = 0
Else
num = len(file.readlines(path_record))
End If
TracePrint "记录行数：",num
Dim arr_txt = file.readlines(path)
file.Append path_record, arr_txt(num) & "\n"
TracePrint arr_txt(num)
基本功能到这里就可以结束了，我们在优化一下细节：
（1）文本内容是有限的，所以要判断有没有全部读完，判断依据是记录文本和账号密码文本内容行数一样。
（2）封装成函数方便使用
这里要说一下封装函数的注意事项，从语法上说直接用function包上一堆代码的就行，但是想要写一个好的函数，需要有3部分：
①接收输入的参数
②处理功能（函数做什么用的）
③输出结果（返回值）
用代码表示是这样的：
Function 函数名(参数, ……) 处理功能 函数名=输出结果End
Function按照这个原则我们把代码重新优化一下：
Dim path = "/sdcard/pictures/信息.txt"
TracePrint gettxt(path)
Function gettxt(path)
If Dir.Exist(path) = 0 Then
gettxt = "文本不存在"
Else
Dim path_record = "/sdcard/pictures/记录.txt"
Dim num = ""
If Dir.Exist(path_record) = 0 Then
file.Write(path_record)
num = 0
Else
num = len(file.readlines(path_record))
End If
TracePrint "记录行数：",num
If num >= Len(file.readlines(path)) Then
gettxt = "文本内容已经全部读完"
Else
Dim arr_txt = file.readlines(path)
file.Append path_record, arr_txt(num) & "\n"
TracePrint arr_txt(num)
gettxt = arr_txt(num)
End If
End If
End Function
好了内容就这些，觉得还行帮忙给文章点个赞。
=正文完=
闽公网安备 35010002000112号