易语言 分割文本

.子程序 _按钮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

.子程序 _按钮1_被单击

.局部变量 源文件, 文本型

.局部变量 分割, 文本型, , "0"

.局部变量 i, 整数型

.局部变量 o, 整数型

.局部变量 分割好的, 文本型

.局部变量 p, 整数型

源文件 ＝ 到文本 (读入文件 (“C:\Documents and Settings\Administrator\桌面\教程.txt”))

分割 ＝ 分割文本 (源文件, #换行符, )

.计次循环首 (取数组成员数 (分割), i)

o ＝ o ＋ 1

.如果 (o ＞ 6)

p ＝ p ＋ 1

写到文件 (取运行目录 () ＋ “\” ＋ 到文本 (p) ＋ “.txt”, 到字节集 (分割好的))

分割好的 ＝ “”

o ＝ 1

.否则

分割好的 ＝ 分割好的 ＋ 分割 [i] ＋ #换行符

.如果结束

.计次循环尾 ()

我也是新手，用文本分割就行了！