多选文本文件导入超级列表框，导出EXCEL表格

把超级列表框中的内容导出到EXCEL表格中去。
不可更改要导入的txt文本的格式。
不可用于其他文本导入，否则出错。
路径数组 ＝ 多文件对话框 (“选择要导入的文件”, “文本文件（*.txt）|*.txt”, , 取运行目录 (), )
数组成员数 ＝ 取数组成员数 (路径数组)
进度条1.最大位置 ＝ 数组成员数
.计次循环首 (数组成员数, 循环变量1)
所有文本 ＝ 到文本 (读入文件 (路径数组 [循环变量1]))
大文本 ＝ 分割文本 (所有文本, #换行符, )
.计次循环首 (取数组成员数 (大文本), 循环变量2)
中文本 ＝ 分割文本 (大文本 [循环变量2], “,”, )
临时表项 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (临时表项, 0, 到文本 (临时表项 ＋ 1))
超级列表框1.置标题 (临时表项, 4, “禁行”)
超级列表框1.置标题 (临时表项, 1, 中文本 [1])
文本 ＝ 到文本 (中文本 [3])
文本2 ＝ 取文本左边 (到文本 (文本), 19)
超级列表框1.置标题 (临时表项, 2, 文本2)
小文本 ＝ 分割文本 (中文本 [5], “:”, )
超级列表框1.置标题 (临时表项, 3, 小文本 [2])
.如果真 (进度条1.位置 ＜ 进度条1.最大位置)
进度条1.位置 ＝ 进度条1.位置 ＋ 临时表项
.如果真结束

.计次循环尾 ()
.计次循环尾 ()