彗星虚表操作TXT大文本加入超级列表框

.子程序 载入数据
.局部变量 启动时间, 整数型
.局部变量 次数, 整数型

启动时间 ＝ 取启动时间 ()
标签_提示.标题 ＝ “提示：正在载入数据，请稍候……”
_按钮_清空所有数据_被单击 ()
.如果真 (取数组成员数 (数据) ＝ 0)
文件_大TXT读入 (txt路径, 数据, 次数)
.如果真结束
列表框.置表项数 (次数)
列表框.事件_填充表项 (&_列表框_填充表项)
标签_提示.标题 ＝ “提示：加入完毕！当前共有表项：” ＋ 到文本 (列表框.取表项数 ()) ＋ “；耗时：” ＋ 到文本 (取启动时间 () － 启动时间) ＋ “毫秒。”

.子程序 文件_大TXT读入, 逻辑型
.参数 文件路径, 文本型
.参数 数组_每行文本, 文本型, 参考 数组
.参数 文本行数, 整数型, 参考
.局部变量 快速文本, 快速文本对象

.如果真 (快速文本.从文件读 (文件路径))
数组_每行文本 ＝ 快速文本.分割文本 (#换行符, )
文本行数 ＝ 取数组成员数 (数组_每行文本)
返回 (真)
.如果真结束
返回 (假)