文本分割..  

数组那里的括号提交后乱了,请自己改一下即可.

[e]
.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 账号, 文本型, , "0"
.程序集变量 密码, 文本型, , "0"

.子程序 _按钮1_被单击
.局部变量 数组1, 文本型, , "0"
.局部变量 a, 文本型, , "0"
.局部变量 i, 整数型

数组1 ＝ 分割文本 (编辑框1.内容, #换行符, )
重定义数组 (账号, 假, 取数组成员数 (数组1))
重定义数组 (密码, 假, 取数组成员数 (数组1))
.计次循环首 (取数组成员数 (数组1), i)
    a ＝ 分割文本 (数组1 , “----”, )
    账号 ＝ a [1]
    密码 ＝ a [2]
    调试输出 (账号 , 密码 )
.计次循环尾 ()
[/e]