按键精灵快速处理文本（把1个文本内容分成3个文本）
大家好，我是公众号3分钟学堂的郭立员，继续我们的按键精灵问答，接下来我们就来聊聊关于按键精灵快速处理文本?以下内容大家不妨参考一二希望能帮到您!
按键精灵快速处理文本
大家好，我是公众号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
免责声明：本文仅代表文章作者的个人观点，与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺，请读者仅作参考，并自行核实相关内容。文章投诉邮箱：anhduc.ph@yahoo.com
