|
10精币
本帖最后由 明天靠自己 于 2011-11-3 23:31 编辑
能保存正确的号,余额大于0的号不能导出,谁帮忙看看哪写错了.
[e].版本 2
.支持库 iext
.支持库 spec
.子程序 _按钮2_被单击
.局部变量 a, 整数型
.局部变量 hm, 文本型
.计次循环首 (超级列表框1.取表项数 () - 1, a)
调试输出 (超级列表框1.取标题 (a, 2))
.如果真 (超级列表框1.取标题 (a, 2) = “密码正确”)
hm = 到文本 (读入文件 (取运行目录 () + “\正确文本.txt”))
写到文件 (取运行目录 () + “\正确文本.txt”, 到字节集 (hm + 超级列表框1.取标题 (a, 0) + “----” + 超级列表框1.取标题 (a, 1) + #换行符))
.如果真结束
.计次循环尾 ()
.子程序 _超级列表框1_右键单击表项
弹出菜单 (菜单, , )
.子程序 __启动窗口_创建完毕
.子程序 _按钮3_被单击
.局部变量 文件, 文本型
.局部变量 x, 整数型
.计次循环首 (超级列表框1.取表项数 () - 1, x)
.如果真 (到整数 (超级列表框1.取标题 (x, 3)) > 0)
文件 = 到文本 (读入文件 (取运行目录 () + “\U币文本.txt”))
写到文件 (取运行目录 () + “\U币文本.txt”, 到字节集 (文件 + 超级列表框1.取标题 (x, 0) + “----” + 超级列表框1.取标题 (x, 1) + “----” + “U币:” + 超级列表框1.取标题 (x, 3) + #换行符))
.如果真结束
.计次循环尾 ()
[/e]
|
最佳答案
查看完整内容
判断貌似没问题啊!!写到我觉得最好还是放到循环结束后。。我测试了个 。能成功。你看下吧。
|