请教下大佬，超级列表框文本分割导入问题

lainian

写了一个文本导入到超级列表框，现在标准格式是AAA----BBB----CCC ，这样可以正常导入，但是如果导入的文本出现不是这个格式的就会报成员错误，然后程序崩溃，有什么办法能判断导入的文本是否是标准格式，

  

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
文本	文本型
文本数组	文本型		0
i	整数型
ck	文本型
第一次分割数组	文本型		0
索引	整数型
用户token	文本型		0

文本 ＝ 到文本 (读入文件 (接收到的文件路径))
调试输出 (取文本编码 (文本))
如果真 (取文本编码 (文本) ＝ “UTF-8”)
文本 ＝ 编码_utf8到gb2312 (文本)

第一次分割数组 ＝ 分割文本 (文本, #换行符, )
计次循环首 (取数组成员数 (第一次分割数组), i)
用户token ＝ 分割文本 (第一次分割数组 [i], “----”, )
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))
超级列表框1.置标题 (索引, 1, 用户token [1])
超级列表框1.置标题 (索引, 2, 用户token [2])
超级列表框1.置标题 (索引, 3, 用户token [3])
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库
e2ee	E2EE互联网服务器套件
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 e2ee<br /> .支持库 iext<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 ck, 文本型<br /> .局部变量 第一次分割数组, 文本型, , "0"<br /> .局部变量 索引, 整数型<br /> .局部变量 用户token, 文本型, , "0"<br /> <br /> <br /> 文本 ＝ 到文本 (读入文件 (接收到的文件路径))<br /> 调试输出 (取文本编码 (文本))<br /> .如果真 (取文本编码 (文本) ＝ “UTF-8”)<br />     文本 ＝ 编码_utf8到gb2312 (文本)<br /> .如果真结束<br /> <br /> <br /> <br /> <br /> 第一次分割数组 ＝ 分割文本 (文本, #换行符, )<br /> <br /> .计次循环首 (取数组成员数 (第一次分割数组), i)<br />     用户token ＝ 分割文本 (第一次分割数组 <i>, “----”, )<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br /> <br />     超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))<br />     超级列表框1.置标题 (索引, 1, 用户token [1])<br />     超级列表框1.置标题 (索引, 2, 用户token [2])<br />     超级列表框1.置标题 (索引, 3, 用户token [3])<br /> <br /> <br /> <br /> .计次循环尾 ()

算法艺术家

  

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
文本	文本型
文本数组	文本型		0
i	整数型
ck	文本型
第一次分割数组	文本型		0
索引	整数型
用户token	文本型		0

文本 ＝ 到文本 (读入文件 (接收到的文件路径))
调试输出 (取文本编码 (文本))
如果真 (取文本编码 (文本) ＝ “UTF-8”)
文本 ＝ 编码_utf8到gb2312 (文本)

超级列表框_导入数据 (文本, 超级列表框1, “----”, 假)

i支持库列表	支持库注释
spec	特殊功能支持库
e2ee	E2EE互联网服务器套件

.版本 2<br /> .支持库 spec<br /> .支持库 e2ee<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 ck, 文本型<br /> .局部变量 第一次分割数组, 文本型, , "0"<br /> .局部变量 索引, 整数型<br /> .局部变量 用户token, 文本型, , "0"<br /> <br /> 文本 ＝ 到文本 (读入文件 (接收到的文件路径))<br /> 调试输出 (取文本编码 (文本))<br /> .如果真 (取文本编码 (文本) ＝ “UTF-8”)<br />     文本 ＝ 编码_utf8到gb2312 (文本)<br /> .如果真结束<br /> <br /> 超级列表框_导入数据 (文本, 超级列表框1, “----”, 假)

算法艺术家

  

子程序名	返回值类型	公开	备 注
超级列表框_导入数据	整数型		将文本导入到超级列表框、行隔符为换行符，返回最后索引  空文本返回-1
参数名	类 型	参考	可空	数组	备 注
文本数据	文本型				预导入列表的文本数据、
超级列表框	超级列表框
列隔符	文本型				列与列的分隔符号 只导入一列 不需要填写
是否保留原先数据	逻辑型				默认不保留

变量名	类 型	静态	数组	备 注
行组	文本型		0
列组	文本型		0
i	整数型
索引	整数型
n	整数型

如果真 (文本数据 ＝ “”)
返回 (-1)

行组 ＝ 分割文本 (文本数据, #换行符, )
超级列表框.可视 ＝ 假
超级列表框.禁止重画 ()
如果真 (是否保留原先数据 ＝ 假)
超级列表框.全部删除 ()

计次循环首 (取数组成员数 (行组), i)
' 调试输出 (行 [i])
列组 ＝ 分割文本 (行组 [i], 列隔符, )
索引 ＝ 超级列表框.插入表项 (, , , , , )
计次循环首 (取数组成员数 (列组), n)
超级列表框.置标题 (索引, n － 1, 列组 [n])
计次循环尾 ()
计次循环尾 ()
超级列表框.允许重画 ()
超级列表框.可视 ＝ 真
返回 (索引)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超级列表框_导入数据, 整数型, 公开, 将文本导入到超级列表框、行隔符为换行符，返回最后索引  空文本返回-1<br /> .参数 文本数据, 文本型, , 预导入列表的文本数据、<br /> .参数 超级列表框, 超级列表框, 参考<br /> .参数 列隔符, 文本型, 可空,  列与列的分隔符号 只导入一列 不需要填写<br /> .参数 是否保留原先数据, 逻辑型, 可空, 默认不保留<br /> .局部变量 行组, 文本型, , "0"<br /> .局部变量 列组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 n, 整数型<br /> <br /> <br /> .如果真 (文本数据 ＝ “”)<br />     返回 (-1)<br /> .如果真结束<br /> <br /> 行组 ＝ 分割文本 (文本数据, #换行符, )<br /> 超级列表框.可视 ＝ 假<br /> 超级列表框.禁止重画 ()<br /> <br /> .如果真 (是否保留原先数据 ＝ 假)<br />     超级列表框.全部删除 ()<br /> .如果真结束<br /> <br /> .计次循环首 (取数组成员数 (行组), i)<br />     ' 调试输出 (行 <i>)<br />     列组 ＝ 分割文本 (行组 <i>, 列隔符, )<br />     索引 ＝ 超级列表框.插入表项 (, , , , , )<br />     .计次循环首 (取数组成员数 (列组), n)<br />         超级列表框.置标题 (索引, n － 1, 列组 [n])<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 超级列表框.允许重画 ()<br /> 超级列表框.可视 ＝ 真<br /> 返回 (索引)

是可可吖

多加几个成员数   但是置标题取前3个成员就行了