易语言如何分割文本

你是想读入文件里的文本，然后把里面的东西放到a和b里，然后再用----分开？

还是已经有了文本，直接放到a和b里，然后再用----分开？

解1：想读入文件里的文本，然后把里面的东西放到a和b里，然后再用----分开

.版本 2

.程序集 窗口程序集1

.程序集变量 文件内容, 文本型

.程序集变量 文件数组, 文本型, , "0"

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

.局部变量 i, 整数型

文件内容 ＝ 到文本 (读入文件 (“文件路径”))

文件数组 ＝ 分割文本 (文件内容, “----”, )

.变量循环首 (1, 取数组成员数 (文件数组), 2, i)

组合框1.现行选中项 ＝ 组合框1.加入项目 (文件数组 [i] ＋ “ 密码：” ＋ 文件数组 [i ＋ 1], )

.变量循环尾 ()

解2：已经有了文本，直接放到a和b里，然后再用----分开

.版本 2

.程序集 窗口程序集1

.程序集变量 文件内容, 文本型

.程序集变量 文件数组, 文本型, , "0"

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

.局部变量 i, 整数型

文件内容 ＝ #内容

文件数组 ＝ 分割文本 (文件内容, “----”, )

.变量循环首 (1, 取数组成员数 (文件数组), 2, i)

组合框1.现行选中项 ＝ 组合框1.加入项目 (文件数组 [i] ＋ “ 密码：” ＋ 文件数组 [i ＋ 1], )

.变量循环尾 ()

.版本 2

.常量 内容, "用户名1----密码"

.版本 2

.局部变量 x, 字节集.局部变量 aa, 文本型, , "0"

x ＝ 读入文件 (“c:\1.txt”)

aa ＝ 分割文本 (到文本 (x), #换行符, )

编辑框1.内容 ＝ aa [1]

编辑框2.内容 ＝ aa [2]

编辑框3.内容 ＝ aa [3]

编辑框4.内容 ＝ aa [4]

编辑框5.内容 ＝ aa [5]

.版本 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”，如果想这样也可以加，有些麻烦

.计次循环尾 ()

' 写出完毕

---