我把文本導入超級列表框(本想像下邊這樣)序號人名電話 可我現在的代碼導入后是這樣的序號人名電話高手指點下怎么樣才能在人名前邊自動生成序號！.版本2.支持庫iext.如...我把文本導入超級列表框(本想像下邊這樣)
序號 人名 電話
01
可我現在的代碼導入后是這樣的
序號 人名 電話
xxx xxxx
高手指點下怎么樣才能在人名前邊自動生成序號！
.版本 2
.支持庫 iext
.如果真 (打開通用對話框.打開 ())
.如果真 (文件號 ≠ 0)
關閉文件 (文件號)
.如果真結束
文件號 ＝ 打開文件 (打開通用對話框.文件名, , )
信息框 (“文件號為：” ＋ 到文本 (文件號), #信息圖標, “文件號”)
顯示文件編輯框.內容 ＝ 讀入文本 (文件號, )
.如果真結束
超級列表框.全部刪除 ()
單行文本 ＝ 分割文本 (顯示文件編輯框.內容, #換行符, )
.計次循環首 (取數組成員數 (單行文本), I)
單元格文本 ＝ 分割文本 (單行文本 [I], “ ”, )
超級列表框.插入表項 (, , , , , )
.計次循環首 (取數組成員數 (單元格文本), II)
超級列表框.置標題 (I － 1, II － 1, 單元格文本 [II])
.計次循環尾 ()
.計次循環尾 ()
這是現在的代碼！高手指點下！謝啦！
.版本 2
.支持庫 iext
.子程序 _讀入文本按鈕_被單擊
.局部變量 單行文本, 文本型, , "0"
.局部變量 I, 整數型
.局部變量 單元格文本, 文本型, , "0"
.局部變量 II, 整數型
.如果真 (打開通用對話框.打開 ())
.如果真 (文件號 ≠ 0)
關閉文件 (文件號)
.如果真結束
文件號 ＝ 打開文件 (打開通用對話框.文件名, , )
信息框 (“文件號為：” ＋ 到文本 (文件號), #信息圖標, “文件號”)
顯示文件編輯框.內容 ＝ 讀入文本 (文件號, )
.如果真結束
超級列表框.全部刪除 ()
單行文本 ＝ 分割文本 (顯示文件編輯框.內容, #換行符, )
.計次循環首 (取數組成員數 (單行文本), I)
單元格文本 ＝ 分割文本 (單行文本 [I], “ ”, )
超級列表框.插入表項 (, , , , , )
.計次循環首 (取數組成員數 (單元格文本), II)
超級列表框.置標題 (I － 1, II － 1, 單元格文本 [II])
.計次循環尾 ()
.計次循環尾 ()
我是把文本導入超級列表框，文本格式是：
名字 電話
xxx
導入后是：
序號 名字電話
