易语言 分割文本

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

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

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

单击按钮后开始分割。

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

.版本 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”,如果想这样也可以加,有些麻烦
.计次循环尾 ()
' 写出完毕
温馨提示:答案为网友推荐,仅供参考
第1个回答  2011-12-17
文本数据分割转换成每隔两个字符分割中间加上逗号。 .版本 2 .子程序 _按钮1_被单击
相似回答
大家正在搜