批量发送临时会话必备工具

.如果真 (通用对话框1.打开 () ＝ 真)
读入文件 ＝ 到文本 (读入文件 (通用对话框1.文件名))
输出调试文本 (读入文件)
数组 ＝ 分割文本 (读入文件, #换行符, )
.如果真 (取数组成员数 (数组) ＝ 0)
信息框 (“导入数据失败”, 64, )
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (数组), 计次)
超级列表框1.插入表项 (0, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , )
超级列表框1.置标题 (sy, 1, 数组 [计次])
.计次循环尾 ()