怎么写出超级列表框注册成功的帐号密码

开心每一天s

怎么写出超级列表框注册成功的帐号密码，注册成功后，超级列表框第4格是置标题注册成功，表格共有4项，序号，帐号，密码，状态，我要要注册成功的帐号和密码写出txt文本，也就是说在不停的注册，不停的写出

helper

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

.子程序 注册
.局部变量 帐号, 文本型
.局部变量 表项索引, 整数型
.局部变量 密码, 文本型
.局部变量 文件号, 整数型
.局部变量 返回文本, 文本型



' 以上是其他代码
.判断开始 (返回文本 ＝ “注册成功”)
    帐号 ＝ 超级列表框1.取标题 (表项索引, 1)
    密码 ＝ 超级列表框1.取标题 (表项索引, 2)
    .如果真 (文件号 ＝ 0)
        打开文件 (取运行目录 () ＋ “\_注册成功.txt”, #改写, )
    .如果真结束
    移到文件尾 (文件号)
    插入文本行 (文件号, 帐号 ＋ “----” ＋ 密码 ＋ “----注册成功”)
    ' 关闭文件(文件号) 等到不使用了再关闭。
.默认

[/e]

补充内容 (2013-12-19 18:46):
文件号=打开文件 (取运行目录 () ＋ “\_注册成功.txt”, #改写, )

﹎尐ゞL

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

.局部变量 sy, 整数型
.局部变量 记录, 文本型
.局部变量 账号, 文本型
.局部变量 密码, 文本型
.局部变量 原文本, 字节集

sy ＝ 超级列表框1.查找表项 (“注册成功”, , , 3)  ' 注册成功那列
账号 ＝ 超级列表框1.取标题 (sy, 1)
密码 ＝ 超级列表框1.取标题 (sy, 2)
记录 ＝ 账号 ＋ “----” ＋ 密码 ＋ “----” ＋ #换行符
原文本 ＝ 读入文件 (取运行目录 () ＋ “/记录.txt”)
写到文件 (取运行目录 () ＋ “/记录.txt”, 原文本 ＋ 到字节集 (记录))
[/e]



补充内容 (2013-12-17 19:22):
貌似多了个＋ “----”

﹎尐ゞL

其实最好在返回文本 注册成功 后做个判断写出

开心每一天s

﹎尐ゞL 发表于 2013-12-17 19:21
[e]
.版本 2
.支持库 iext

你这样写不行

hugaoming1314

直接注册成功后就写出

NeverLoveAgain

还没解决解 加下我吧QQ：1115219963

小冰—

一定要注册一个写出一个？


补充内容 (2013-12-17 20:40):
不能注册完了一起写出》?

开心每一天s

小冰— 发表于 2013-12-17 20:40
一定要注册一个写出一个？

万一中途出现意外不就功亏一篑了》