易語言怎麽寫壹個導入txt文本然後在進行分割的源碼

.版本?2.支持庫?iext

.程序集?窗口程序集1

.子程序?_按鈕1_被單擊

通用對話框1.過濾器?＝?“記錄文件(*.txt)|*.txt”

通用對話框1.標題?＝?“打開”

通用對話框1.打開?()

編輯框.內容?＝?通用對話框1.文件名

延時?(300)

句柄?＝?打開文件?(編輯框.內容,?#讀寫,?#無限制)

.如果真?(0?≠?句柄)

超級列表框1.全部刪除?()

移到文件首?(句柄)

.判斷循環首?(假?＝?是否在文件尾?(句柄,?真))

結果數組?＝?分割文本?(讀入壹行?(句柄),?“----”,?)

.如果真?(1?＜?取數組成員數?(結果數組))

表項索引?＝?超級列表框1.插入表項?(,?,?,?,?,?)

超級列表框1.置標題?(表項索引,?0,?結果數組?[1])

超級列表框1.置標題?(表項索引,?1,?結果數組?[2])

.如果真結束

.判斷循環尾?()

關閉文件?(句柄)

.如果真結束

超級列表框1.現行選中項?＝?0

i?＝?超級列表框1.現行選中項

h?＝?超級列表框1.取列數?()

編輯框1.內容?＝?超級列表框1.取標題?(i,?0)

編輯框2.內容?＝?超級列表框1.取標題?(i,?1)

.子程序?_按鈕2_被單擊

.如果?(i?＞?h?－?1)

信息框?(“載入資料完”,?0,?“提示”)

返回?()

.否則

i?＝?i?＋?1

編輯框1.內容?＝?超級列表框1.取標題?(i,?0)

編輯框2.內容?＝?超級列表框1.取標題?(i,?1)

.如果結束

.版本?2

.全局變量?句柄,?整數型

.全局變量?表項索引,?整數型

.全局變量?結果數組,?文本型,?,?"0"

.全局變量?i,?整數型

.全局變量?h,?整數型

上一篇:開發壹元奪寶APP要多少錢

下一篇:如何調取濟安線