Easy Language 將資料夾檔案讀入 Megalist 框

版本 2 支援庫 shell

支援庫 iext

元件 視窗元件 1

單擊子程式按鈕 1。

區域性變數：局文字、文字。

局型別的區域性變數，文字。

區域性變數局陣列， textual， ，"0"

區域性變數、局索引、整數。

方框1內容 瀏覽資料夾（如果為 true，則為“選擇檔案目錄”（框 1。內容

如果真的結束了，請返回 （）。

如果為 true（將文字移到右側（框 1）。內容，1） ≠框1內容框 1內容

如果它真的結束了。

局型別 框 1內容 txt”。

用於查詢文件的局文字（局型別，）

超級列表框 1全部刪除 （）。

審判迴圈開始（局文字≠

局型別 框 1內容局文字。

局文字位於文字的左側（局文字，並向後查詢文字（局文字，“false）”1）。

局陣列拆分文字（局文字，“）。

如果為 true（取陣列成員數（局陣列）3）局索引超列表框 1插入表格條目（到文字（局索引 1），超級列表框 1在超級列表框 1 中設定標題（bureau index， 1， bureau array [1]）設定標題（局索引，2，局陣列 [2]）超級列表框 1

設定標題（局索引，3，局陣列[3]）超級列表框1如果標題真的結束，請設定標題（局索引，4，局型別）。

局文字查詢檔案（，判斷迴圈尾（）。

版本 2 支援庫 shell

單擊子程式按鈕 1。

瀏覽資料夾 （“選擇信任目錄”，程式集視窗程式集 1

單擊子程式按鈕 1。

區域性變數：局文字、文字。

局型別的區域性變數，文字。

區域性變數局陣列， textual， ，"0"

區域性變數、局索引、整數。

方框1內容 瀏覽資料夾（如果為 true，則為“選擇檔案目錄”（框 1。內容

如果真的結束了，請返回 （）。

如果為 true（將文字移到右側（框 1）。內容，1） ≠框1內容框 1內容

如果它真的結束了。

局型別 框 1內容 txt”。

用於查詢文件的局文字（局型別，）

超級列表框 1全部刪除 （）。

審判迴圈開始（局文字≠

局型別 框 1內容局文字。

局文字位於文字的左側（局文字，並向後查詢文字（局文字，“false）”1）。

局陣列拆分文字（局文字，“）。

如果為 true（取陣列成員數（局陣列）3）局索引超列表框 1插入表格條目（到文字（局索引 1），超級列表框 1在超級列表框 1 中設定標題（bureau index， 1， bureau array [1]）設定標題（局索引，2，局陣列 [2]）超級列表框 1

設定標題（局索引，3，局陣列[3]）超級列表框1如果標題真的結束，請設定標題（局索引，4，局型別）。

局文字查詢檔案（，判斷迴圈尾（）。

這涉及列表框文字的儲存方式。

1.將所有列表框文字組合在一起並儲存。

2、乙個乙個的寫出來，這個簡單一點，我就從這個開始吧列表框 1取專案數 （）。

列表框 1以專案文字 （） 為例。這裡你用的是列表框1，你自己就是乙個列表框，記得修改一下讀取 CI （，.）寫入 CI 項 （，計數週期主要使用這 5 個命令。

書面命令x ＝ 0

計數週期的第乙個（列表框 1。取專案數 （） x x 1

將 CI 項（“path”， listbox data“） 寫入文字 （x）， listbox1以專案文字 （x）） 為例。

計數週期尾部 （）。

要讀取的命令.計數週期的第乙個（列表框 1。取專案數 （） x x 1

列表框 1設定專案文字（x 1，讀取CI專案（“路徑”，列表框資料），並將其轉換為文字（x）。

計數週期尾部 （）。

列表框 1設定專案文字 （x 1

-1 的原因是因為它從 0 開始。