易语言将文本按照指定字符分割的代码

.版本 2
.程序集 窗口程序集1
.程序集变量 是否修改, 逻辑型
.程序集变量 文本数组, 文本型, , "0"
.程序集变量 数组成员数, 整数型
.子程序 _编辑框1_内容被改变
是否修改 ＝ 假
.子程序 _分割按钮_被单击
.局部变量 点击次数, 整数型, 静态
.局部变量 文本, 文本型
.局部变量 显示文本, 文本型, , "0"
.如果真 (是否修改 ＝ 假)
  文本数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
  数组成员数 ＝ 取数组成员数 (文本数组)
  点击次数 ＝ 1
  是否修改 ＝ 真
.如果真结束
.如果 (点击次数 ≤ 数组成员数)
  文本 ＝ 文本数组 [点击次数]
  显示文本 ＝ 分割文本 (文本, “:”, )
  .如果真 (取数组成员数 (显示文本) ＞ 1)
    编辑框2.内容 ＝ 显示文本 [1]
    编辑框3.内容 ＝ 显示文本 [2]
  .如果真结束
  点击次数 ＝ 点击次数 ＋ 1
.否则
  信息框 (“完成！”, 0, )
.如果结束