合并与分割文本，将文本处理成你想要的份数

.如果 (编辑框cfcf.内容 ＝ “” ＝ 假 且 编辑框cfhs.内容 ＝ “” ＝ 假)
编辑框cfgc.可视 ＝ 假
编辑框fgyc.可视 ＝ 真
预览标题.标题 ＝ “分割过程。。。”
读取行数 ＝ 到数值 (编辑框cfhs.内容)
读取次数 ＝ 取整 (到数值 (编辑框5.内容) ÷ 到数值 (编辑框cfhs.内容)) ＋ 1
.计次循环首 (读取次数, i)
.计次循环首 (读取行数, )
编辑框fgyc.加入文本 (读入一行 (文件号2) ＋ #换行符)
.计次循环尾 ()
.如果真 (编辑框cfcf.内容 ＝ “” ＝ 假)
写到文件 (到文本 (编辑框cfcf.内容) ＋ “\” ＋ 到文本 (i) ＋ “.txt”, 到字节集 (编辑框fgyc.内容))
编辑框fgyc.内容 ＝ “”
.如果真结束

.计次循环尾 ()
信息框 (“分割完成！”, 0, )
编辑框fgyc.可视 ＝ 假
预览标题.标题 ＝ “”
.否则
信息框 (“请选择存放地址以及分割数量！”, 0, )

.如果 (_启动窗口.编辑框4.内容 ≠ “”)
_启动窗口.编辑框3.可视 ＝ 真
_启动窗口.透明标签hbyl.标题 ＝ “合并文本预览”
返回值3 ＝ 信息框 (“是否合并这些文件？”, #是否钮 ＋ #信息图标, )
.如果真 (返回值3 ＝ #是钮)
.计次循环首 (_启动窗口.超级列表框1.取表项数 (), kk)
kk ＝ kk － 1
文件pl ＝ _启动窗口.超级列表框1.取标题 (kk, 0)
文件号PL ＝ 打开文件 (文件pl, , )
_启动窗口.编辑框3.加入文本 (读入文本 (文件号PL, ))
.计次循环尾 ()
.如果真结束
保存文本文件1 ＝ _启动窗口.编辑框4.内容 ＋ “\” ＋ 到文本 (取现行时间 ()) ＋ “.txt”
写到文件 (保存文本文件1, 到字节集 (_启动窗口.编辑框3.内容))
返回值4 ＝ 信息框 (“合并成功！是否打开合并文本？”, #是否钮 ＋ #信息图标, )
.如果真 (返回值4 ＝ #是钮)
执行 (, 保存文本文件1, , , )
_启动窗口.编辑框3.可视 ＝ 假
_启动窗口.透明标签hbyl.标题 ＝ “”
_启动窗口.选择框1.选中 ＝ 假
.如果真结束

.否则
信息框 (“请填写存放路径！”, 0, )