超级列表框快速分割导入文本数据模块源码

.如果真 (是否为空 (是否清空))
是否清空 ＝ 真
.如果真结束
a ＝ 取现行时间 ()
bin ＝ 到字节集 (原文本)
.循环判断首 ()
bool ＝ 取字节集右边 (bin, 2) ＝ { 13, 10 }
.如果真 (bool)
bin ＝ 取字节集左边 (bin, 取字节集长度 (bin) － 2)
.如果真结束

.循环判断尾 (bool ＝ 真)
.如果真 (是否为空 (进度条) ＝ 假)
进度条.位置 ＝ 0
进度条.最大位置 ＝ 60
.如果真结束
处理事件 ()
bin ＝ { 0, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ bin ＋ { 0, 0 }
bin ＝ 子字节集替换 (bin, 到字节集 (#换行符), { 0, 0, 0, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 }, , )
处理事件 ()
.如果真 (是否为空 (进度条) ＝ 假)
进度条.位置 ＝ 11
.如果真结束
bin ＝ 子字节集替换 (bin, 到字节集 (分隔符), { 0, 0, 1, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 }, , )
处理事件 ()
.如果真 (是否为空 (进度条) ＝ 假)
进度条.位置 ＝ 46
.如果真结束
.判断开始 (是否清空)
超级列表框.表项 ＝ bin
.默认
超级列表框.表项 ＝ 超级列表框.表项 ＋ bin
.判断结束

处理事件 ()
.如果真 (是否为空 (耗时) ＝ 假)
耗时 ＝ 取时间间隔 (取现行时间 (), a, #秒)
.如果真结束
.如果真 (是否为空 (进度条) ＝ 假)
进度条.位置 ＝ 60