拿去修改一下,自己用用还是可以的,伪数据库,写到文件。
.如果真 (超级列表框1.取表项数 () = 0)
写到文件 (取运行目录 () + “/1.mdb”, 到字节集 (到文本 (编辑框5.内容)))
.如果真结束
.计次循环首 (超级列表框1.取表项数 (), 次数)
' 原始内容 = 到文本 (到字节集 (读入文件 (“C:\Documents and Settings\Administrator\桌面\1.mdb”)))
' 写到文件 (“C:\Documents and Settings\Administrator\桌面\1.mdb”, 到字节集 (到文本 (超级列表框1.取标题 (次数 - 1, 0) + “----” + 超级列表框1.取标题 (次数 - 1, 1) + “----” + 超级列表框1.取标题 (次数 - 1, 2) + “----” + 超级列表框1.取标题 (次数 - 1, 3) + “----” + 超级列表框1.取标题 (次数 - 1, 4) + “----” + 超级列表框1.取标题 (次数 - 1, 5) + “----” + 超级列表框1.取标题 (次数 - 1, 6) + #换行符)))
编辑框5.加入文本 (超级列表框1.取标题 (次数 - 1, 0) + “----” + 超级列表框1.取标题 (次数 - 1, 1) + “----” + 超级列表框1.取标题 (次数 - 1, 2) + “----” + 超级列表框1.取标题 (次数 - 1, 3) + “----” + 超级列表框1.取标题 (次数 - 1, 4) + “----” + 超级列表框1.取标题 (次数 - 1, 5) + “----” + 超级列表框1.取标题 (次数 - 1, 6) + #换行符)
写到文件 (取运行目录 () + “/1.mdb”, 到字节集 (到文本 (编辑框5.内容)))
.计次循环尾 ()
上一篇 欢乐斗地主游戏识图记牌器工具
下一篇 菜鸟裹裹多线程快递查询工具