超级列表框保存的问题.

明天靠自己

能保存正确的号,余额大于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]

Xiao白

判断貌似没问题啊！！写到我觉得最好还是放到循环结束后。。我测试了个 。能成功。你看下吧。
测试.rar (1.44 KB, 下载次数: 129)

2011-11-4 04:01 上传

点击文件名下载附件
源码

清清淡淡

{:3_244:}用正则

明天靠自己

o1519038880 发表于 2011-11-3 11:24
用正则

不会写呢,求源码,求例程.

hoie

加个判断并写出就可以了，顺便说一下LZ的头像很邪恶

明天靠自己

hoie 发表于 2011-11-3 12:27
加个判断并写出就可以了，顺便说一下LZ的头像很邪恶

悲剧...就是不会写那个判断... 头像是牛奶,你懂的.

hoie

明天靠自己 发表于 2011-11-3 12:33
悲剧...就是不会写那个判断... 头像是牛奶,你懂的.

给个源码，我帮你改下

小明无敌

判断U币是否大于0

判断（U币＞0）
写到文件

这样慢慢写

明天靠自己

珍惜你的美 发表于 2011-11-3 12:46
判断U币是否大于0

判断（U币＞0）

写不对呢,贴源码出来了,能看看吗?