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

.如果真 (超级列表框.取表项数 () ≤ 0)

信息框 (“先读取要导出的充值卡信息！”, 48, “提示”)

返回 ()

.如果真结束

.如果真 (信息框 (“是否要导出选列表框中： ” ＋ 到文本 (超级列表框.取表项数 ()) ＋ “ 条数据？”, 64 ＋ #是否钮, “提示”) ＝ #是钮)

文件编号 ＝ 取运行目录 () ＋ “\” ＋ “充值卡信息” ＋ 到文本 (取现行时间 ()) ＋ “.txt”

保存文本 ＝ “充值卡号 充值密码 充值卡期限 是否已充值” ＋ #换行符

.计次循环首 (超级列表框.取表项数 (), i)

读取文本 ＝ 超级列表框.取标题 (i － 1, 2) ＋ “ ” ＋ 超级列表框.取标题 (i － 1, 3) ＋ “ ” ＋ 超级列表框.取标题 (i － 1, 4) ＋ “ ” ＋ 超级列表框.取标题 (i － 1, 7) ＋ #换行符

保存文本 ＝ 保存文本 ＋ 读取文本

.计次循环尾 ()

写到文件 (文件编号, 到字节集 (保存文本))

信息框 (“已保存在当前程序运行目录！”, 64, “提示”)