超级列表框 导入 分割文本 出错！

qq2268

如题：

分割文本  导入数组后，如果被导入文本有空格，或者非   账号----密码，这格式就会提示下标的错误！

求大牛给个方法

﹎尐ゞL

[e]
.版本 2
.支持库 iext

.子程序 _导入账号_被选择
.局部变量 文件, 整数型
.局部变量 文本, 文本型
.局部变量 分割, 文本型, , "0"
.局部变量 再分割, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 j, 整数型

通用对话框1.标题 ＝ “请找到对应的txt文件选中并点击打开！”
通用对话框1.初始目录 ＝ 取运行目录 ()
.如果真 (通用对话框1.打开 () ＝ 假)
    返回 ()
.如果真结束
文件 ＝ 打开文件 (通用对话框1.文件名, , )
文本 ＝ 读入文本 (文件, )
关闭文件 (文件)
分割 ＝ 分割文本 (文本, #换行符, )
.计次循环首 (取数组成员数 (分割), i)
    再分割 ＝ 分割文本 (分割 , “----”, )
    .如果真 (取数组成员数 (再分割) ＝ 2)
        j ＝ 超级列表框1.插入表项 (, 到文本 (i), , , , )
        超级列表框1.置标题 (j, 1, 再分割 [1])
        超级列表框1.置标题 (j, 2, 再分割 [2])
    .如果真结束

.计次循环尾 ()
[/e]

无言士

用精易模块,里面有 文本_**去空格

补充内容 (2013-12-10 20:03):
文本_删首尾空
文本_删除空行,

﹎尐ゞL

加多个判断呗。。导入账号密码。。先第一次用换行符分割，然后第二次用----分割。然后判断


[e]
.版本 2
.支持库 iext

分割 ＝ 分割文本 (文本, #换行符, )
.计次循环首 (取数组成员数 (分割), i)
    再分割 ＝ 分割文本 (分割 , “----”, )
    .如果真 (取数组成员数 (再分割) ＝ 2)
        j ＝ 超级列表框1.插入表项 (, 到文本 (i), , , , )
        超级列表框1.置标题 (j, 1, 再分割 [1])
        超级列表框1.置标题 (j, 2, 再分割 [2])
   
    .如果真结束

.计次循环尾 ()
[/e]

ljmst

肯定是判断不严谨咯。。。。。

helper

上上面的就可以了