[郭立员] [3分钟学堂]读取文本并做好已读记录（视频版） [复制链接]

大家好，我是公众号[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

好了内容就这些，觉得还行帮忙给文章点个赞。

=正文完=