超强网络验证系统附远程服务支持库

易语言 2020-09-01 18:22:05

超强网络验证系统附远程服务支持库

这套网络验证我自己用了好几年,也是在几年前开发的,并且完整开源的源码

.如果真 (超级列表框.取表项数 () ≤ 0)
信息框 (“先读取要导出的充值卡信息!”, 48, “提示”)
返回 ()
.如果真结束
.如果真 (信息框 (“是否要导出选列表框中: ” + 到文本 (超级列表框.取表项数 ()) + “ 条数据?”, 64 + #是否钮, “提示”) = #是钮)
文件编号 = 取运行目录 () + “\” + “充值卡信息” + 到文本 (取现行时间 ()) + “.txt”
保存文本 = “充值卡号 充值密码 充值卡期限 是否已充值” + #换行符
.计次循环首 (超级列表框.取表项数 (), i)
读取文本 = 超级列表框.取标题 (i - 1, 2) + “ ” + 超级列表框.取标题 (i - 1, 3) + “ ” + 超级列表框.取标题 (i - 1, 4) + “ ” + 超级列表框.取标题 (i - 1, 7) + #换行符
保存文本 = 保存文本 + 读取文本
.计次循环尾 ()
写到文件 (文件编号, 到字节集 (保存文本))
信息框 (“已保存在当前程序运行目录!”, 64, “提示”)