大家好，我是公众号3分钟学堂的郭立员，继续我们的按键精灵问答。

本期问题

怎么将1个文本里面的内容平均分到3个文本中？

解答思路

①预先生成3个空白文本，分别为文本1，文本2，文本3

②先获取原始文本里面文字的行数，两个方法，直接用获取文本行数命令，或者读取所有文本存入数组，然后看数组最大下标。

这里我用获取数组最大下标的方法。

③分成3段的思路，我选择用取余数的方法，就是用遍历数组内容，然后数组下标号除以3，如果余数是0存入文本1，如果余数是1存入文本2，如果余数是2存入文本3。

脚本代码

Dim path1="/sdcard/pictures/a1.txt"
Dim path2="/sdcard/pictures/a2.txt"
Dim path3="/sdcard/pictures/a3.txt"
Dim path4="/sdcard/pictures/abd132456.txt"
If Len(file.read(path1)) = 0 Then 
    file.Write(path1)
End If
If Len(file.read(path2)) = 0 Then 
    file.Write(path2)
End If
If Len(file.read(path3)) = 0 Then 
    file.Write(path3)
End If


Dim arr=file.readlines(path4)
TracePrint len(arr)
For i = UBOUND(arr) To 0 step -1
    If i mod 3 = 0 Then 
        file.Writeline path1, 1, arr(i)
    ElseIf i mod 3 = 1 Then 
        file.Writeline path2, 1, arr(i)
    ElseIf i mod 3 = 2 Then 
        file.Writeline(path3,1,arr(i))
    End If
Next