一个文本分成10份

z692435632 · 发表于 2020-9-4 13:03:54

就是说，一个文本.txt,里面有200个号，我想分给10个设备用，怎么让他变10个文本.txt?

寒潮 · 发表于 2020-9-4 13:03:55

局_文件内容＝到文本 (读入文件 (“指定的文件.txt”))
局_文件数组＝分割文本 (局_文件内容, #换行符, )
局_分割份数＝ 10

如果 (取数组成员数 (局_文件数组) ％局_分割份数＝ 0)

局_每份行数＝取数组成员数 (局_文件数组) ＼局_分割份数

局_每份行数＝取数组成员数 (局_文件数组) ＼局_分割份数＋ 1

计次循环首 (局_分割份数, 局_份数计次)

局_输出内容＝ “”

计次循环首 (局_每份行数, 局_行数计次)

如果真 (局_份数计次 × 局_分割份数－局_分割份数＋局_行数计次 ≤ 取数组成员数 (局_文件数组))

如果真 (局_输出内容 ≠ “”)

局_输出内容＝局_输出内容＋ #换行符

局_输出内容＝局_输出内容＋局_文件数组 [局_份数计次 × 局_分割份数－局_分割份数＋局_行数计次]

计次循环尾 ()

写到文件 (取运行目录 () ＋ “\” ＋到文本 (局_份数计次) ＋ “.txt”, 到字节集 (局_输出内容))

计次循环尾 ()

影知 · 发表于 2020-9-4 13:09:38

读入文件，写到新的文件

Aml · 发表于 2020-9-4 13:11:24

如果号是有顺序排列的，比如一行一个号，就用文本分割（）得到一个文本数组，计次循环用数组下标实现每次取20个号

寒潮 · 发表于 2020-9-4 13:12:42

局_每个文件行数＝ 20
局_文件号＝打开文件 (“指定的文本文件.txt”, #读入, )
局_计次＝ 0
局_文件名＝ 1

判断循环首 (是否在文件尾 (局_文件号, ) ＝假)

局_计次＝局_计次＋ 1

如果真 (局_计次＝局_每个文件行数)

局_计次＝ 0

局_文件名＝局_文件名＋ 1

局_写入文件＝打开文件 (取运行目录 () ＋ “\” ＋到文本 (局_文件名) ＋ “.txt”, #改写, )

移到文件尾 (局_写入文件)

局_行文本＝读入一行 (局_文件号)

写文本行 (局_写入文件, 局_行文本)

关闭文件 (局_写入文件)

判断循环尾 ()
关闭文件 (局_文件号)

ErrorCodes · 发表于 2020-9-4 13:23:25

我写了一个Demo：

Desktop.zip (248.7 KB, 下载次数: 8)

		自动登录	找回密码
密码			注册

[已解决] 一个文本分成10份