欧美vvv,亚洲第一成人在线,亚洲成人欧美日韩在线观看,日本猛少妇猛色XXXXX猛叫

大家好，我是公眾號[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）封裝成函數方便使用

這里要說一下封裝函數的注意事項，從語法上說直接用包上一堆代碼的就行，但是想要寫一個好的函數按鍵精靈循環找圖代碼，需要有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

好了內容就這些，覺得還行幫忙給文章點個贊。

=正文完=