编辑框内容，按需求分成若干个TXT文本写出

1018141445

.版本 2
.支持库 spec

.如果真 (单选框1.选中 ＝ 真)
    文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
    编辑框1.内容 ＝ “”
    .计次循环首 (取数组成员数 (文本), i)
        文本 ＝ 分割文本 (文本 [i], “----”, )
        .如果真 (寻找文本 (编辑框1.内容, 文本1 [1], , 假) ＝ -1)
            调试输出 (文本 [i], 文本1 [1])
            编辑框1.加入文本 (文本 [i] ＋ #换行符)
        .如果真结束

    .计次循环尾 ()
    进度 ()
    信息框 (“去除重复成功”, 0, , “成功”)
.如果真结束
.如果真 (单选框2.选中 ＝ 真)  ' 按行数分割
    分割行数 ＝ 到整数 (编辑框3.内容)
    文本2 ＝ 编辑框1.内容
    数组 ＝ 分割文本 (文本2, #换行符, )
    .计次循环首 (取数组成员数 (数组), 计次)
        .如果真 (计次 ％ 分割行数 ≠ 0)
            临时文本1 ＝ 临时文本1 ＋ 数组 [计次] ＋ #换行符
        .如果真结束
        .如果真 (计次 ％ 分割行数 ＝ 0)
            临时文本1 ＝ 临时文本1 ＋ 数组 [计次]
            进度 ()
            写到文件 (取运行目录 () ＋ “\” ＋ 到文本 (取整 (计次 ÷ 分割行数)) ＋ “.txt”, 到字节集 (临时文本1))
            临时文本1 ＝ “”
        .如果真结束
        .如果真 (计次 ％ 分割行数 ≠ 0 且 取数组成员数 (数组) ＝ 计次)
            写到文件 (取运行目录 () ＋ “\” ＋ 到文本 (取整 (计次 ÷ 分割行数) ＋ 1) ＋ “.txt”, 到字节集 (临时文本1))
        .如果真结束

    .计次循环尾 ()
    信息框 (“分割完成以保存至软件目录”, 0, “      成功”, )
    进度条1.位置 ＝ 0
.如果真结束
.如果真 (单选框3.选中 ＝ 真)  ' 按分数分割
    文件路径 ＝ 取文本左边 (编辑框2.内容, 倒找文本 (编辑框2.内容, “\”, , 假))
    文件名 ＝ 取文本左边 (取文本右边 (编辑框2.内容, 取文本长度 (编辑框2.内容) － 取文本长度 (文件路径)), 倒找文本 (取文本右边 (编辑框2.内容, 取文本长度 (编辑框2.内容) － 取文本长度 (文件路径)), “.”, , 假) － 1)
    文件号 ＝ 打开文件 (编辑框2.内容, #读写, )
    文本3 ＝ 读入文本 (文件号, )
    文件长度 ＝ 取文本长度 (文本3)
    关闭文件 (文件号)
    变量1 ＝ 取整 (文件长度 ÷ 到数值 (编辑框3.内容))
    临时文本3 [1] ＝ 取文本左边 (文本3, 变量1)
    临时文本3 [2] ＝ 取文本中间 (文本3, 变量1 ＋ 1, 变量1)
    临时文本3 [2] ＝ 取文本右边 (文本3, 文件长度 － 变量1)
    写到文件 (取运行目录 () ＋ “\” ＋ “.txt”, 到字节集 (临时文本1))
    进度 ()
    信息框 (“按份分割完成”, 0, , )