易语言 分割文本

Question

分割C:\1.txt（一个小说大小超过5M），分割后的文件保存在C:\1\

分割后会生成n个文件，分别命名为“文件0001”、“文件0002”、“文件0003”、……

分割后每个文件的大小相同（最后一个文件除外），大小在编辑框中输入（单位可以是B、KB、MB）

单击按钮后开始分割。

按钮被单击的代码怎么写？

Answer 1

.版本 2

.子程序 _按钮1_被单击
.局部变量 格式, 文本型
.局部变量 单文件大小, 整数型
.局部变量 源文件, 文本型
.局部变量 分成文件数, 整数型
.局部变量 分割后的文件, 文本型, , "0"
.局部变量 正在分割第几份, 整数型
.局部变量 正在写出第几份, 整数型

源文件 ＝ 到文本 (读入文件 (“C:\1.txt”))
格式 ＝ 取文本右边 (编辑框1.内容, 2)
' 单位转换为B
.判断开始 (到小写 (格式) ＝ “mb”)
单文件大小 ＝ 到整数 (取文本左边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 2))
单文件大小 ＝ 单文件大小 × 1024 × 1000 ' mb》kb》b
.判断 (到小写 (格式) ＝ “kb”)
单文件大小 ＝ 到整数 (取文本左边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 2))
单文件大小 ＝ 单文件大小 × 1000 ' kb》b
.判断 (到小写 (取文本右边 (格式, 1)) ＝ “b”)
单文件大小 ＝ 到整数 (取文本左边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 1)) ' 这里是-1
' 不用转换了
.默认

.判断结束
' 转换完毕，判断分割几个
分成文件数 ＝ 取文本长度 (源文件) ÷ 单文件大小
.如果真 (到整数 (分成文件数) ≠ 分成文件数) ' 是不是小数
分成文件数 ＝ 取整 (分成文件数) ＋ 1
.如果真结束
' 开始分割
.计次循环首 (分成文件数, 正在分割第几份)
加入成员 (分割后的文件, 取文本左边 (源文件, 单文件大小)) ' 加入文本
源文件 ＝ 取文本右边 (源文件, 取文本长度 (源文件) － 单文件大小) ' 这个步骤“修改”原文件，为生成第二份文件“奠定了基础”
.计次循环尾 ()
' 开始写出
创建目录 (“C:\1\”) ' 必须创建目录
.计次循环首 (取数组成员数 (分割后的文件), 正在写出第几份)
写到文件 (“C:\1\文件” ＋ 到文本 (正在写出第几份), 到字节集 (分割后的文件 [正在写出第几份])) ' 写出的会是“文件1”“文件2”……“文件11”“文件12”……，不是“文件0001”，如果想这样也可以加，有些麻烦
.计次循环尾 ()
' 写出完毕

Answer 2

文本数据分割转换成每隔两个字符分割中间加上逗号。 .版本 2 .子程序 _按钮1_被单击