易語言讀取到編輯框,易語言 讀取TXT到編輯框

2022-02-02 20:15:16 字數 5293 閱讀 9584

1樓:歲歲年年相似

.版本 2

.支援庫 eapi

.支援庫 shellex

.程式集 視窗程式集1

.程式集變數 文字, 文字型, , "4"

.程式集變數 文字組, 文字型, , "0"

.程式集變數 字串, 文字型, , "8"

.程式集變數 註冊鍵, 整數型, , "8"

.程式集變數 計次, 整數型

.程式集變數 計數, 整數型

.子程式 __啟動視窗_建立完畢

編輯框1.是否允許多行 = 真

編輯框2.是否允許多行 = 真

編輯框3.是否允許多行 = 真

編輯框1.滾動條 = 2

字串 =

註冊鍵值 ()

時鐘1.時鐘週期 = 1000

.子程式 _時鐘1_週期事件

文字 [1] = 到文字 (讀入檔案 (取執行目錄 () + 「\123.txt」))

.如果真 (文字 [1] ≠ 文字 [2])

時鐘1.時鐘週期 = 0

文字處理 ()

.如果真結束

.子程式 文字處理

文字組 = 分割文字 (文字 [1], #換行符, )

文字 [4] = 「」

.變數迴圈首 (取陣列成員數 (文字組), 取陣列成員數 (文字組) - 1, -1, 計次)

.如果 (計次 = 取陣列成員數 (文字組))

文字 [2] = 文字組 [計次]

.否則文字 [3] = 文字組 [計次]

.如果結束

文字 [4] = 文字組 [計次] + #換行符 + 文字 [4]

.變數迴圈尾 ()

編輯框1.加入文字 (#換行符, 文字 [4])

計次 = 倒找文字 (文字 [3], 「  」, , 假) + 1

編輯框2.加入文字 (取文字左邊 (文字 [3], 計次), #換行符)

.計次迴圈首 (取文字長度 (文字 [2]), 計次)

.計次迴圈首 (8, 計數)

.如果真 (到大寫 (取文字中間 (文字 [2], 計次, 1)) = 字串 [計數])

_啟動視窗.獲取焦點 ()

模擬按鍵 (取** (字串 [計數], 1), , )

跳出迴圈 ()

.如果真結束

.計次迴圈尾 ()

.計次迴圈尾 ()

文字 [2] = 文字 [1]

編輯框3.加入文字 (#換行符)

時鐘1.時鐘週期 = 1000

.子程式 註冊鍵值

註冊鍵 [1] = 註冊熱鍵 (_啟動視窗.取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #a鍵)

註冊鍵 [2] = 註冊熱鍵 (_啟動視窗.取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #s鍵)

註冊鍵 [3] = 註冊熱鍵 (_啟動視窗.取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #d鍵)

註冊鍵 [4] = 註冊熱鍵 (_啟動視窗.取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #w鍵)

註冊鍵 [5] = 註冊熱鍵 (_啟動視窗.取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #j鍵)

註冊鍵 [6] = 註冊熱鍵 (_啟動視窗.取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #k鍵)

註冊鍵 [7] = 註冊熱鍵 (_啟動視窗.取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #u鍵)

註冊鍵 [8] = 註冊熱鍵 (_啟動視窗.取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #i鍵)

.子程式 _標籤1_反饋事件, 整數型

.引數 引數一, 整數型

.引數 引數二, 整數型

.計次迴圈首 (8, 計次)

.如果真 (引數一 = 註冊鍵 [計次])

編輯框3.加入文字 (字串 [計次])

.如果真結束

.計次迴圈尾 ()

有一點小問題,就是123.txt是隻取最後連續的兩行.第三行是取不到的,如:

aaaaa            2015-09-04 20:40:33

sffffff              2015-09-04 19:33:47d

2樓:匿名使用者

沒看懂啊................

易語言讀取txt檔案內容到編輯框

3樓:歲歲年年相似

.版本 2

.支援庫 eapi

.支援庫 shellex

.程式集 視窗程式集1

.程式集變數 文字, 文字型, , "4"

.程式集變數 文字組, 文字型, , "0"

.程式集變數 字串, 文字型, , "8"

.程式集變數 註冊鍵, 整數型, , "8"

.程式集變數 計次, 整數型

.程式集變數 計數, 整數型

.子程式 __啟動視窗_建立完畢

編輯框1.是否允許多行 = 真

編輯框2.是否允許多行 = 真

編輯框3.是否允許多行 = 真

編輯框1.滾動條 = 2

字串 =

註冊鍵值 ()

時鐘1.時鐘週期 = 1000

.子程式 _時鐘1_週期事件

文字 [1] = 到文字 (讀入檔案 (取執行目錄 () + 「\123.txt」))

.如果真 (文字 [1] ≠ 文字 [2])

時鐘1.時鐘週期 = 0

文字處理 ()

.如果真結束

.子程式 文字處理

文字組 = 分割文字 (文字 [1], #換行符, )

文字 [4] = 「」

.變數迴圈首 (取陣列成員數 (文字組), 取陣列成員數 (文字組) - 1, -1, 計次)

.如果 (計次 = 取陣列成員數 (文字組))

文字 [2] = 文字組 [計次]

.否則文字 [3] = 文字組 [計次]

.如果結束

文字 [4] = 文字組 [計次] + #換行符 + 文字 [4]

.變數迴圈尾 ()

編輯框1.加入文字 (#換行符, 文字 [4])

計次 = 倒找文字 (文字 [3], 「  」, , 假) + 1

編輯框2.加入文字 (取文字左邊 (文字 [3], 計次), #換行符)

.計次迴圈首 (取文字長度 (文字 [2]), 計次)

.計次迴圈首 (8, 計數)

.如果真 (到大寫 (取文字中間 (文字 [2], 計次, 1)) = 字串 [計數])

_啟動視窗.獲取焦點 ()

模擬按鍵 (取** (字串 [計數], 1), , )

跳出迴圈 ()

.如果真結束

.計次迴圈尾 ()

.計次迴圈尾 ()

文字 [2] = 文字 [1]

編輯框3.加入文字 (#換行符)

時鐘1.時鐘週期 = 1000

.子程式 註冊鍵值

註冊鍵 [1] = 註冊熱鍵 (_啟動視窗.取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #a鍵)

註冊鍵 [2] = 註冊熱鍵 (_啟動視窗.取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #s鍵)

註冊鍵 [3] = 註冊熱鍵 (_啟動視窗.取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #d鍵)

註冊鍵 [4] = 註冊熱鍵 (_啟動視窗.取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #w鍵)

註冊鍵 [5] = 註冊熱鍵 (_啟動視窗.取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #j鍵)

註冊鍵 [6] = 註冊熱鍵 (_啟動視窗.取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #k鍵)

註冊鍵 [7] = 註冊熱鍵 (_啟動視窗.取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #u鍵)

註冊鍵 [8] = 註冊熱鍵 (_啟動視窗.取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #i鍵)

.子程式 _標籤1_反饋事件, 整數型

.引數 引數一, 整數型

.引數 引數二, 整數型

.計次迴圈首 (8, 計次)

.如果真 (引數一 = 註冊鍵 [計次])

編輯框3.加入文字 (字串 [計次])

.如果真結束

.計次迴圈尾 ()

有一點小問題,就是123.txt是隻取最後連續的兩行.第三行是取不到的,如:

aaaaa            2015-09-04 20:40:33

sffffff              2015-09-04 19:33:47d

4樓:單吊一枝花

給你一個簡單的:

.版本 2

.子程式 _按鈕1_被單擊

編輯框1.內容 = 到文字 (讀入檔案 (取執行目錄 () + 「\你要指定檔名.txt」)) ''''「 你要指定的檔名」要存放在這個易語言檔案同一資料夾內

5樓:匿名使用者

.版本 2

.支援庫 dialogex.子程式 _按鈕1_被單擊.區域性變數 檔案路徑, 文字型

.區域性變數 檔案號, 整數型編輯框1.是否允許多行 = 真檔案路徑 = 開啟擴充套件對話方塊 (「開啟」, 「txt」, 「所有檔案(*.

*)|*.*」, 0, 「」, 假, 假, 假)

檔案號 = 開啟檔案 (檔案路徑, , )編輯框1.內容 = 讀入文字 (檔案號, )

易語言--如何讀取txt然後在編輯框裡面顯示內容。

6樓:本豪愛大米

編輯框1.內容=到文字(讀入檔案(「d:\1.txt」))

7樓:撒憐雙

你說話有點矛盾了吧,第一和第二都有顯示在編輯框1?而且哪個是編輯框1誰知道啊,你直接說是顯示在內容幾對應的編輯框還好。

易語言把txt文字讀取到編輯框 txt第一行 是編輯框1 第二行是編輯框2. 會了一鍵儲存成txt不會把txt匯入

8樓:歲歲年年相似

.版本 2

.程式集 視窗程式集1

.程式集變數 文字內容, 文字型

.程式集變數 內容, 文字型, , "0"

.子程式 __啟動視窗_建立完畢

文字內容 = 到文字 (讀入檔案 (取執行目錄 () + 「\儲存檔名.txt」))

內容 = 分割文字 (文字內容, #換行符, ).子程式 _按鈕5_被單擊

編輯框5.內容 = 取文字右邊 (內容 [5], 取文字長度 (內容 [5]) - 2)

易語言視窗銷燬問題,易語言如何關閉視窗?

啟動視窗。銷燬 真 登入。銷燬 真 驗證。銷燬 真 呼叫格式 無返回值 物件 銷燬 邏輯型 立即銷燬 系統核心支援庫 視窗。英文名稱 destroy 銷燬本視窗或視窗元件。視窗被銷燬後,所有在載入本視窗之後對本視窗及其內視窗元件所進行的修改或設定都將被拋棄,視窗被銷燬後如想再次使用必須重新裝載。注意...

易語言求助

版本 2 程式集 視窗程式集1 子程式 按鈕1 被單擊 時鐘1.時鐘週期 50 子程式 時鐘1 週期事件 標籤1.左邊 標籤1.左邊 5 標籤1.文字顏色 取隨機數 1,225 取隨機數 1,225 取隨機數 1,225 如果真 標籤1.左邊 0 時鐘1.時鐘週期 0 時鐘2.時鐘週期 50 如果真...

易語言迴圈

幫你加了一個 進度條用來顯示開啟空間的進度,還有判斷第一個空間開啟完畢了再開啟下一個,還有用一個按鈕來控制 開始 和 停止 版本 2 支援庫 htmlview 支援庫 spec 程式集 視窗程式集1 程式集變數 開啟進度,整數型 子程式 超文字瀏覽框1 載入進度改變 引數 進度百分比,整數型 開啟進...