超级列表框文本数据导入导出功能

.判断循环首 (已处理 ＜ 总数)
内循环数 ＝ 选择 (总数 － 已处理 ＜ 10000, 总数 － 已处理, 10000) ' 分块处理 减少卡顿 或者可以多线程构造?思路而已...

.计次循环首 (内循环数, 计次)
a ＝ a ＋ 1
文件号 ＝ 打开文件 (取运行目录 () ＋ “\导出的文本.txt”, , )
.如果真 (文件号 ＝ 0)
写到文件 (取运行目录 () ＋ “\导出的文本.txt”, 到字节集 ({ }))
文件号 ＝ 打开文件 (取运行目录 () ＋ “\导出的文本.txt”, , )
.如果真结束
移到文件尾 (文件号)
插入文本行 (文件号, 超级列表框1.取标题 (a － 1, 1) ＋ “----” ＋ 超级列表框1.取标题 (a － 1, 2))
关闭文件 (文件号)
.计次循环尾 ()
已处理 ＝ 已处理 ＋ 内循环数
处理事件 ()
.判断循环尾 ()