[按键精灵]读取文本并做好已读记录

读取文本并做好已读记录,先看效果图:

先来介绍一下功能,假设我们读取一个存储账号密码的文本,每次读取完用另外一个文本做好记录,当脚本再次运行时已经读取过的就不在读取了。

要实现这个功能用到的命令不唯一,我只说一下我这个脚本的思路。

第一步:判断设备中是否存在“记录文本”,若存在读取文本中有几行,输出一个行数,若不存在创建一个记录文本,输出行数=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

转载自微信公众号:3分钟学堂