易語言讀取txt源碼
1. 易語言如何讀取指定文件夾下面的所有*.txt的文件
你說的這種,要搜索指定文件夾下的所有文件,包括子文件下的文件。那麼你要用到遞歸方式來搜索,你欠缺基礎知識的學習,呵呵。下面,我提供給你,我專門製作的子程序,用來調用遞歸搜索的,只要你看的明白就成。
源碼如下:
.版本 2
.子程序 系統_搜索所有文件, , 公開, 遞歸方式搜索目錄下的所有符合文件,參數3和參數4為程序集型數組變數,返回[搜索到文本型數組]
.參數 要搜索的目錄, 文本型, , 要搜索的目錄(c:或c:\)
.參數 要搜索的文件, 文本型, 可空, [可空]要搜索的文件(a.exe或*.exe),如果為空默認搜索*.*
.參數 返迴路徑加文件名數組, 文本型, 可空 數組, [可空]程序集型返迴路徑加文件名文本數組,要定義在程序集型數組變數。
.參數 返迴文件名數組, 文本型, 可空 數組, [可空]程序集型返回單純的文件名文本數組,要定義在程序集型數組變數。
.局部變數 文件名, 文本型
.局部變數 路徑加文件名數組, 文本型, 靜態, "0", cjn_搜索所有文件調用
.局部變數 文件名數組, 文本型, 靜態, "0", cjn_搜索所有文件調用
處理事件 ()
.如果真 (要搜索的文件 = 「」)
要搜索的文件 = 「*.*」
.如果真結束
.如果真 (取文本右邊 (要搜索的目錄, 1) ≠ 「\」)
要搜索的目錄 = 要搜索的目錄 + 「\」
.如果真結束
文件名 = 尋找文件 (要搜索的目錄 + 要搜索的文件, )
.判斷循環首 (文件名 ≠ 「」)
加入成員 (路徑加文件名數組, 要搜索的目錄 + 文件名) ' 此[搜索到的文件數組]數組變數未定義,可在編寫的程序集中定義此數組(此為返回目錄+文件名)
加入成員 (文件名數組, 文件名) ' 此[搜索到的文件數組]數組變數未定義,可在編寫的程序集中定義此數組(此為返回單純的文件)
文件名 = 尋找文件 (, )
.判斷循環尾 ()
文件名 = 尋找文件 (要搜索的目錄 + 「*.*」, #子目錄)
.判斷循環首 (文件名 ≠ 「」)
.如果真 (取文本左邊 (文件名, 1) ≠ 「.」)
系統_搜索所有文件 (要搜索的目錄 + 文件名, 要搜索的文件)
.如果真結束
文件名 = 尋找文件 (, #子目錄)
.判斷循環尾 ()
復制數組 (返迴路徑加文件名數組, 路徑加文件名數組)
復制數組 (返迴文件名數組, 文件名數組)
2. 易語言怎麼讓組合框讀取 TXT文本內容和數值
.版本
2
.程序集
窗口程序集1
.程序集變數
文件號
.子程序
__啟動窗口_創建完畢
.局部變數
臨時文本,
文本型
.局部變數
分割,
文本型,
,
"0"
文件號
=
打開文件
(取運行目錄
()
+
「\test.txt」,
,
)
臨時文本
=
讀入一行
(文件號)
.判斷循環首
(臨時文本
≠
「」)
分割
=
分割文本
(臨時文本,
「丨」,
)
組合框1.加入項目
(分割
[1],
到數值
(分割
[2]))
臨時文本
=
讀入一行
(文件號)
.判斷循環尾
()
.子程序
_組合框1_列表項被選擇
編輯框1.內容
=
到文本
(組合框1.取項目數值
(組合框1.現行選中項))
直接將上述代碼復制粘貼到易語言中,然後再窗口中加一個組合框加一個編輯框,在源碼相同目錄下加入test.txt,文件內容就是你說的那個。