易語言記事本源碼
Ⅰ 易語言用大漠中文模塊和精易模塊多線程同時向5個記事本輸入文字，源碼我該怎麼寫拜託各位大大！
啟動線程 (&寫入程序1, , 寫入程序1句柄)
啟動線程 (&寫入程序3, , 寫入程序2句柄)
啟動線程 (&寫入程序3, , 寫入程序3句柄)
啟動線程 (&寫入程序4, , 寫入程序4句柄)
啟動線程 (&寫入程序5, , 寫入程序5句柄)
子程序 寫入程序1： 寫到文件（「C：\記事本1.txt」，「自定義內容」）
子程序 寫入程序2： 寫到文件（「C：\記事本2.txt」，「自定義內容」）
子程序 寫入程序3： 寫到文件（「C：\記事本3.txt」，「自定義內容」）
子程序 寫入程序4： 寫到文件（「C：\記事本4.txt」，「自定義內容」）
子程序 寫入程序5： 寫到文件（「C：\記事本5.txt」，「自定義內容」）
Ⅱ 高分求易語言 多功能記事本源碼 必須得包含 CMD命令 以及去除網吧一些限制的功能！ 還要有音樂播放等功能
源碼網上一大堆，自己搜。
天下網吧，精易論壇，易語言官方論壇 到處都是。
Ⅲ 易語言寫記事本
普通編輯框應該顯示不了行列，要用超級編輯框。
'
行數：
狀態條1.置文本
(0,
超級編輯框1.取行數
())
Ⅳ 求e語言編程大神給我編個這種記事本的源碼，1239811000發我
.版本 2
.程序集 窗口程序集1
.子程序 __啟動窗口_創建完畢
編輯框1.文本顏色 ＝ #白色
.子程序 _顏色選擇器1_顏色被改變
編輯框1.文本顏色 ＝ 顏色選擇器1.顏色
.子程序 __啟動窗口_滑鼠右鍵被放開, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態, 整數型
彈出菜單 (操作, , )
.子程序 _標簽1_滑鼠右鍵被放開, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態, 整數型
彈出菜單 (操作, , )
.子程序 _編輯框1_滑鼠右鍵被放開, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態, 整數型
彈出菜單 (操作, , )
.子程序 _最小化_被選擇
位置 ＝ 2
.子程序 _時鍾1_周期事件
_啟動窗口.標題 ＝ 到文本 (取現行時間 ())
.子程序 _標簽5_滑鼠左鍵被放開, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態, 整數型
寫到文件 (取運行目錄 () ＋ 「記事本.txt」, 到位元組集 (編輯框1.內容))
.子程序 _標簽6_滑鼠左鍵被放開, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態, 整數型
銷毀 ()
Ⅳ 跪求易語言記事本源碼。
.版本 2
.支持庫 iext2
.支持庫 iext
.支持庫 eAPI
.程序集 窗口程序集1
.程序集變數 文件路徑, 文本型
.程序集變數 當前是否正在打字, 邏輯型
.子程序 _超級編輯框1_內容被改變, , , 更改超級編輯框的顏色
.局部變數 顏色, 字元格式
顏色.文本顏色 ＝ 取顏色值 (取隨機數 (0, 255), 取隨機數 (0, 255), 取隨機數 (0, 255))
超級編輯框1.置選擇區字元格式 (顏色)
狀態條1.置文本 (0, 「行 」 ＋ 到文本 (超級編輯框1.取行數 ()) ＋ 「 文本長度 」 ＋ 到文本 (超級編輯框1.取文本長度 ()))
.子程序 __啟動窗口_創建完畢, , , 設置通用對話框
通用對話框1.過濾器 ＝ 「txt|*.txt」
通用對話框1.默認文件後綴 ＝ 「txt」
通用對話框1.標題 ＝ 「傳說記事本保存對話框...」
_時間日期_被選擇 ()
_炫銀皮膚_被選擇 ()
備忘錄提醒 ()
.子程序 __啟動窗口_位置被改變, , , 位置被改變後超級編輯框也跟著改變(按鈕1也跟著改變)
.如果真 (_啟動窗口.位置 ＝ 3)
超級編輯框1.寬度 ＝ 取屏幕寬度 () － 3
超級編輯框1.高度 ＝ 取屏幕高度 () － 80 － 按鈕1.高度 － 10
按鈕1.頂邊 ＝ 取屏幕高度 () － 狀態條1.高度 － 100
按鈕1.寬度 ＝ 取屏幕寬度 () － 5
按鈕1.高度 ＝ 狀態條1.高度 ＋ 10
.如果真結束
.如果真 (_啟動窗口.位置 ＝ 0)
超級編輯框1.寬度 ＝ _啟動窗口.寬度 － 10
超級編輯框1.高度 ＝ _啟動窗口.高度 － 55 － 按鈕1.高度 － 10
按鈕1.頂邊 ＝ 200
按鈕1.寬度 ＝ 560
.如果真結束
.子程序 _新建_被選擇, , , New文件
.如果真 (超級編輯框1.內容 ≠ 「」)
.如果真 (信息框 (「您還沒保存!請問您要進行保存嗎?」, 4, ) ＝ #是鈕)
通用對話框1.類型 ＝ 1
通用對話框1.打開 ()
寫到文件 (通用對話框1.文件名, 到位元組集 (超級編輯框1.內容))
.如果真結束
.如果真結束
.子程序 _打開_被選擇, , , Open文件
通用對話框1.類型 ＝ 0
通用對話框1.打開 ()
.如果真 (通用對話框1.文件名 ≠ 「」)
超級編輯框1.內容 ＝ 到文本 (讀入文件 (通用對話框1.文件名))
文件路徑 ＝ 通用對話框1.文件名
.如果真結束
.子程序 _保存_被選擇, , , Save文件
.如果真 (文件路徑 ＝ 「」)
通用對話框1.類型 ＝ 1
通用對話框1.打開 ()
寫到文件 (通用對話框1.文件名, 到位元組集 (超級編輯框1.內容))
.如果真結束
.如果真 (文件路徑 ≠ 「」)
寫到文件 (文件路徑, 到位元組集 (超級編輯框1.內容))
.如果真結束
.子程序 _保存到_被選擇, , , Save As文件
通用對話框1.類型 ＝ 1
通用對話框1.打開 ()
.如果真 (通用對話框1.文件名 ≠ 「」)
寫到文件 (通用對話框1.文件名, 到位元組集 (超級編輯框1.內容))
.如果真結束
.子程序 _撤銷_被選擇, , , Undo 文本
超級編輯框1.撤消 ()
.子程序 _剪切_被選擇, , , Cut 文本
超級編輯框1.剪切 ()
.子程序 _復制_被選擇, , , Copy 文本
超級編輯框1.復制 ()
.子程序 _粘連_被選擇, , , Paste文本
超級編輯框1.粘貼 ()
.子程序 _刪除_被選擇, , , Delete文本
超級編輯框1.刪除 ()
超級編輯框1.內容 ＝ 取文本左邊 (超級編輯框1.內容, 取文本長度 (超級編輯框1.內容) － 1)
.子程序 _尋找_被選擇, , , Find文本
載入 (Find窗口, , 真)
.子程序 _尋找下一個_被選擇, , , 還沒解決好
.子程序 _文本替換_被選擇, , , 文本替換
載入 (文本替換窗口, , 真)
.子程序 _跳到_被選擇, , , 還沒解決好
載入 (跳到窗口, , 真)
.子程序 _全選_被選擇, , , Select All文本
超級編輯框1.被選擇字元數 ＝ 取文本長度 (超級編輯框1.內容)
.子程序 _時間日期_被選擇, , , Time-Date
.局部變數 小時, 文本型
.局部變數 分鍾, 文本型
.局部變數 日期, 文本型
.局部變數 年份, 文本型
.局部變數 月份, 文本型
.局部變數 日份, 文本型
小時 ＝ 到文本 (取小時 (取現行時間 ()))
分鍾 ＝ 到文本 (取分鍾 (取現行時間 ()))
年份 ＝ 到文本 (取年份 (取現行時間 ()))
月份 ＝ 到文本 (取月份 (取現行時間 ()))
日份 ＝ 到文本 (取日 (取現行時間 ()))
狀態條1.置文本 (1, 小時 ＋ 「:」 ＋ 分鍾 ＋ 「 」 ＋ 年份 ＋ 「-」 ＋ 月份 ＋ 「-」 ＋ 日份)
.子程序 _傳說記事本v13_被選擇, , , About Notepad
信息框 (「軟體作者:古老的傳說」 ＋ #換行符 ＋ 「QQ:1041750677」 ＋ #換行符 ＋ 「MSN:[email protected]」 ＋ #換行符 ＋ 「編寫工具:易語言」 ＋ #換行符 ＋ 「軟體版本:1.3」 ＋ #換行符, 0, )
.子程序 _密碼保管_被選擇, , , Password Protect
載入 (密碼窗口, , 真)
.子程序 _備忘錄_被選擇, , , 載入備忘錄窗口
載入 (備忘錄窗口, , 真)
.子程序 備忘錄提醒, , , 備忘錄提醒
.局部變數 分割文本, 文本型, , "0"
.局部變數 今天日期, 文本型
.局部變數 分割今天日期, 文本型, , "0"
分割文本 ＝ 分割文本 (讀配置項 (取運行目錄 () ＋ 「\備忘錄.ini」, 「備忘錄」, 「提示日期」, ), 「日」, )
今天日期 ＝ 到文本 (取日期 (取現行時間 ()))
分割今天日期 ＝ 分割文本 (今天日期, 「日」, )
.如果真 (取數組成員數 (分割文本) ＝ 1 或 取數組成員數 (分割文本) ＞ 1)
.如果真 (分割文本 [1] ＝ 分割今天日期 [1])
狀態條1.置文本 (2, 「您今天有一份備忘錄噢^_^」)
.如果真結束
.如果真結束
.子程序 _銀白皮膚_被選擇, , , 銀白皮膚
更換新皮膚 (1)
.子程序 _淺白皮膚_被選擇, , , 淺白皮膚
更換新皮膚 (10)
.子程序 _淺灰皮膚_被選擇, , , 淺灰皮膚
更換新皮膚 (13)
.子程序 _淺藍皮膚_被選擇, , , 淺藍皮膚
更換新皮膚 (19)
.子程序 _淺黑皮膚_被選擇, , , 淺黑皮膚
更換新皮膚 (5)
.子程序 _炫銀皮膚_被選擇, , , 炫銀皮膚
更換新皮膚 (2)
.子程序 _炫白皮膚_被選擇, , , 炫白皮膚
更換新皮膚 (15)
.子程序 _炫藍皮膚_被選擇, , , 炫藍皮膚
更換新皮膚 (18)
.子程序 _深黑皮膚_被選擇, , , 深黑皮膚
更換新皮膚 (14)
.子程序 __啟動窗口_可否被關閉, 邏輯型, , 透明顯示最小化運行
.局部變數 變數1, 整數型
變數1 ＝ 255
.計次循環首 (255, )
設置窗口透明度 (_啟動窗口.取窗口句柄 (), 變數1)
變數1 ＝ 變數1 － 1
.如果真 (變數1 ＝ 1)
置托盤圖標 (#程序圖標, 「古老的傳說記事本v1.2」)
_啟動窗口.可視 ＝ 假
.如果真結束
.計次循環尾 ()
返回 (假)
.子程序 __啟動窗口_托盤事件, , , 透明顯示_啟動窗口
.參數 操作類型, 整數型
.局部變數 變數1, 整數型
.如果真 (操作類型 ＝ 1)
_啟動窗口.可視 ＝ 真
.計次循環首 (255, 變數1)
設置窗口透明度 (_啟動窗口.取窗口句柄 (), 變數1)
.計次循環尾 ()
.如果真結束
.如果真 (操作類型 ＝ 3)
彈出菜單 (圖標菜單, 取滑鼠水平位置 (), 取滑鼠垂直位置 ())
.如果真結束
.子程序 __啟動窗口_將被銷毀, , , 銷毀任務欄圖標
置托盤圖標 ({ }, )
.子程序 _打開傳說記事本_被選擇, , , _啟動窗口.可視=真
__啟動窗口_托盤事件 (1)
.子程序 _銷毀_被選擇, , , 銷毀軟體
銷毀 ()
.子程序 _超級編輯框1_按下某鍵, 邏輯型, , 正在打字中...
.參數 鍵代碼, 整數型
.參數 功能鍵狀態, 整數型
當前是否正在打字 ＝ 真
按鈕1.標題 ＝ 「正在打字中...」
時鍾1.時鍾周期 ＝ 800
返回 (真)
.子程序 _超級編輯框1_放開某鍵, 邏輯型, , 暫停打字中...
.參數 鍵代碼, 整數型
.參數 功能鍵狀態, 整數型
當前是否正在打字 ＝ 假
返回 (真)
.子程序 _時鍾1_周期事件, , , 暫停打字中...
.如果真 (當前是否正在打字 ＝ 假)
按鈕1.標題 ＝ 「暫停打字中...」
.如果真結束
.子程序 _超級編輯框1_選擇區被改變, , , 超級編輯框1.滾動
超級編輯框1.滾動 (1)
Ⅵ E語言怎樣做多功能記事本（帶源碼）
易語言的記事本例子多之又多但是windows記事本里的基本功能很少有做出來的，特別是查找和替換那一塊，官方論壇里開源區有一個叫做，開源傳說的記事本例子不錯！基本比windows的記事本都強悍了算是我見過的易語言開源記事本裡面最強悍的易源碼了你去瞅瞅不行留下郵箱有空源碼我發給你不過我很少上網的都是手機瀏覽
Ⅶ 求易語言記事本代碼
原型：
int
WINAPI
icePub_encryptFile(char
*strFilename,
char
*strOutputFilename,
char
*strKey)
輸入：strFilename
待加密文件名
strOutputFilename
加密後文件名
strKey
密鑰串，任意長度
輸出：
返回碼:
原型：
int
WINAPI
icePub_decryptFile(char
*strFilename,
char
*strOutputFilename,
char
*strKey)
輸入：strFilename
加密文件名
strOutputFilename
解密後文件名
strKey
密鑰串，任意長度
輸出：
返回碼:
文檔里有icePubDLL.dll下載
Ⅷ 易語言取記事本內容
思路是：讀入文件，分割文本，然後取出需要的文本。
你的記事本內容我改動了下：惺惺惜惺惺=888{*||*}多的多=111{*||*}維爾瓦額為=888（主要是便於分割）
用到3個編輯框、一個按鈕。我幫你把數字全取出來了。
代碼如下：
-------------------------------------------------------------------------
.版本 2
.程序集 窗口程序集1
.子程序 _按鈕1_被單擊
.局部變數 a, 文本型
.局部變數 b, 文本型, , "0"
.局部變數 n, 整數型
.局部變數 c, 文本型, , "0"
' txt中文本內容如下：
' 惺惺惜惺惺=888{*||*}多的多=111{*||*}維爾瓦額為=888
a ＝ 到文本 (讀入文件 (「C:\Users\Kolter\Desktop\a.txt」))
b ＝ 分割文本 (a, 「{*||*}」, )
.計次循環首 (取數組成員數 (b), n)
c ＝ 分割文本 (b [n], 「=」, )
.如果真 (n ＝ 1)
編輯框1.內容 ＝ c [2]
.如果真結束
.如果真 (n ＝ 2)
編輯框2.內容 ＝ c [2]
.如果真結束
.如果真 (n ＝ 3)
編輯框3.內容 ＝ c [2]
.如果真結束
.計次循環尾 ()
Ⅸ 易語言,寫個記事本的程序,保存的代碼怎麼寫
添加一個通用對話框
.版本 2
.程序集 窗口程序集_啟動窗口
.子程序 _保存_被選擇
.如果真 (通用對話框1.打開 () ＝ 真)
寫到文件 (通用對話框1.文件名, 到位元組集 (編輯框1.內容))
. 如果真結束
Ⅹ 求一段易語言個人記事本的源碼
.版本 2
.程序集 啟動窗口程序集.程序集變數 現行文件名, 文本型.程序集變數 當前被搜尋文本, 文本型.程序集變數 是否區分大小寫, 邏輯型.程序集變數 常用文件名, 文本型, , "3".程序集變數 常用文件菜單項, 菜單, , "3", 成員數目必須與「常用文件名」相等
.子程序 __啟動窗口_尺寸被改變
編輯框.移動 (5, 5, 取用戶區寬度 () － 10, 取用戶區高度 () － 10)
.子程序 _新建_被選擇
.如果真 (詢問保存文檔 () ＝ 假) 編輯框.內容 ＝ 「」 標題 ＝ 「E 語言記事本」 設置修改狀態 (假) 現行文件名 ＝ 「」.如果真結束
.子程序 _打開_被選擇.局部變數 文件號, 整數型
.如果真 (詢問保存文檔 () ＝ 假) 通用對話框1.標題 ＝ 「請輸入欲打開的文本文件名：」 通用對話框1.類型 ＝ 0 .如果真 (通用對話框1.打開 () ＝ 真) .如果真 (打開並讀入文件 (通用對話框1.文件名)) 加入常用文件名 (通用對話框1.文件名) .如果真結束
.如果真結束
.如果真結束
.子程序 _常用文件1_被選擇.局部變數 變數1, 整數型.局部變數 當前菜單項, 菜單
.如果真 (詢問保存文檔 () ＝ 真) 返回 ().如果真結束當前菜單項 ＝ 取事件組件 ().計次循環首 (取數組成員數 (常用文件菜單項), 變數1) .如果真 (常用文件菜單項 [變數1] ＝ 當前菜單項 且 常用文件名 [變數1] ≠ 「」) 打開並讀入文件 (常用文件名 [變數1]) .如果真結束
.計次循環尾 ()
.子程序 打開並讀入文件, 邏輯型, , 成功返回真，失敗返回假.參數 文件名, 文本型.局部變數 窗口標題, 文本型.局部變數 文件號, 整數型.局部變數 是否讀入成功, 邏輯型
編輯框.內容 ＝ 「」設置修改狀態 (假)窗口標題 ＝ 「E 語言記事本」現行文件名 ＝ 「」
文件號 ＝ 打開文件 (文件名, #讀入, ).如果 (文件號 ≠ 0) 編輯框.內容 ＝ 讀入文本 (文件號, ) 關閉文件 (文件號) 現行文件名 ＝ 文件名 窗口標題 ＝ 窗口標題 ＋ 「 - 」 ＋ 現行文件名 是否讀入成功 ＝ 真.否則 信息框 (「打開文件失敗！」, #錯誤圖標, 「錯誤」).如果結束標題 ＝ 窗口標題返回 (是否讀入成功)
.子程序 _保存_被選擇
保存文檔 ()
.子程序 _另存為_被選擇
通用對話框1.標題 ＝ 「請輸入欲另存到的文本文件名：」通用對話框1.類型 ＝ 1.如果真 (通用對話框1.打開 () ＝ 真) 保存文檔 (通用對話框1.文件名).如果真結束
.子程序 _列印_被選擇
.如果真 (列印機1.開始列印 (, ) ＝ 真) 列印機1.寫文本行 (編輯框.內容) ' 「寫文本行」命令會自動換行及換頁 列印機1.結束列印 ().如果真結束
.子程序 _退出_被選擇
.如果真 (詢問保存文檔 () ＝ 假) 銷毀 () ' 通過銷毀主窗口退出程序.如果真結束
.子程序 _撤消_被選擇
編輯框.發送信息 (199, 0, 0)
.子程序 _剪切_被選擇
編輯框.發送信息 (768, 0, 0)
.子程序 _復制_被選擇
編輯框.發送信息 (769, 0, 0)
.子程序 _粘貼_被選擇
編輯框.發送信息 (770, 0, 0)
.子程序 _全選_被選擇
編輯框.發送信息 (177, 0, -1)
.子程序 _日期_被選擇
編輯框.被選擇文本 ＝ 時間到文本 (取現行時間 (), #日期部分)
.子程序 _時間_被選擇
編輯框.被選擇文本 ＝ 時間到文本 (取現行時間 (), #時間部分)
.子程序 _設置字體_被選擇.局部變數 新字體, 字體
通用對話框1.類型 ＝ 2.如果真 (通用對話框1.打開 () ＝ 假) 返回 ().如果真結束新字體.加粗 ＝ 通用對話框1.加粗新字體.傾斜 ＝ 通用對話框1.傾斜新字體.刪除線 ＝ 通用對話框1.刪除線新字體.下劃線 ＝ 通用對話框1.下劃線新字體.字體名稱 ＝ 通用對話框1.字體名稱新字體.字體大小 ＝ 通用對話框1.字體大小編輯框.字體 ＝ 新字體編輯框.文本顏色 ＝ 通用對話框1.字體顏色
.子程序 _查找_被選擇
載入 (搜尋窗口, _啟動窗口, 假)
.子程序 _關於_被選擇
載入 (關於窗口, , 真)
.子程序 是否已被修改, 邏輯型
返回 (編輯框.發送信息 (184, 0, 0) ≠ 0)
.子程序 設置修改狀態.參數 是否已被修改, 邏輯型, 可空, 默認為設置成被修改
編輯框.發送信息 (185, 選擇 (是否為空 (是否已被修改) ＝ 真 或 是否已被修改 ＝ 真, 1, 0), 0)
.子程序 __啟動窗口_可否被關閉, 邏輯型
返回 (取反 (詢問保存文檔 ()))
.子程序 詢問保存文檔, 邏輯型, , 返回真表示用戶選擇了中止.局部變數 詢問返回, 整數型
.如果真 (是否已被修改 () ＝ 真) 詢問返回 ＝ 信息框 (「文件已經被修改，是否保存？」, #取消是否鈕 ＋ #詢問圖標, 「詢問」) .如果真 (詢問返回 ＝ #取消鈕) 返回 (真) .如果真結束 .如果真 (詢問返回 ＝ #是鈕) .如果真 (保存文檔 () ＝ 真) 返回 (真) .如果真結束
.如果真結束
.如果真結束返回 (假)
.子程序 保存文檔, 邏輯型, , 返回真表示用戶選擇了中止.參數 文件名, 文本型, 可空.局部變數 保存文件名, 文本型.局部變數 文件號, 整數型
保存文件名 ＝ 選擇 (是否為空 (文件名), 現行文件名, 文件名).如果真 (保存文件名 ＝ 「」) 通用對話框1.標題 ＝ 「請輸入欲保存到的文本文件名：」 通用對話框1.類型 ＝ 1 .如果真 (通用對話框1.打開 () ＝ 假) 返回 (真) .如果真結束 保存文件名 ＝ 通用對話框1.文件名.如果真結束設置修改狀態 (假)文件號 ＝ 打開文件 (保存文件名, #重寫, ).如果真 (文件號 ≠ 0) .如果 (寫出文本 (文件號, 編輯框.內容) ＝ 真) 關閉文件 (文件號) 現行文件名 ＝ 保存文件名 標題 ＝ 「E 語言記事本 - 」 ＋ 現行文件名 加入常用文件名 (保存文件名) 返回 (假) .否則 關閉文件 (文件號) .如果結束
.如果真結束信息框 (「保存文件失敗！」, #錯誤圖標, 「錯誤」)返回 (假)
.子程序 _查找上一個_被選擇
搜尋 (假)
.子程序 _查找下一個_被選擇
搜尋 (真)
.子程序 搜尋.參數 是否為搜尋下一個, 邏輯型.局部變數 搜尋位置, 整數型
.如果真 (當前被搜尋文本 ＝ 「」) 返回 ().如果真結束搜尋位置 ＝ 編輯框.起始選擇位置 ＋ 1 ' 搜尋位置應該從 1 開始，而編輯框的「起始選擇位置」屬性值是從 0 開始。.如果真 (是否為搜尋下一個) 搜尋位置 ＝ 搜尋位置 ＋ 編輯框.被選擇字元數.如果真結束.如果 (是否為搜尋下一個) 搜尋位置 ＝ 尋找文本 (編輯框.內容, 當前被搜尋文本, 搜尋位置, 是否區分大小寫).否則 搜尋位置 ＝ 倒找文本 (編輯框.內容, 當前被搜尋文本, 搜尋位置, 是否區分大小寫).如果結束.如果 (搜尋位置 ＝ -1) 信息框 (「未找到指定文本」 ＋ #左引號 ＋ 當前被搜尋文本 ＋ #右引號, #錯誤圖標, 「錯誤」).否則 編輯框.起始選擇位置 ＝ 搜尋位置 － 1 ' 轉換回編輯框的「起始選擇位置」屬性值。 編輯框.被選擇字元數 ＝ 取文本長度 (當前被搜尋文本).如果結束
.子程序 __啟動窗口_創建完畢.局部變數 變數1, 整數型
載入常用文件 ()常用文件菜單項 [1] ＝ 常用文件1常用文件菜單項 [2] ＝ 常用文件2常用文件菜單項 [3] ＝ 常用文件3.計次循環首 (取數組成員數 (常用文件菜單項), 變數1) 常用文件菜單項 [變數1].標題 ＝ 「&」 ＋ 到文本 (變數1) ＋ 「. 」 ＋ 常用文件名 [變數1].計次循環尾 ().計次循環首 (取數組成員數 (常用文件菜單項) － 1, 變數1) 事件轉移 (常用文件菜單項 [變數1 ＋ 1], 常用文件1).計次循環尾 ()顯示常用菜單項 ()
.子程序 顯示常用菜單項.局部變數 變數1, 整數型
.如果真 (常用文件名 [1] ＝ 「」) 返回 ().如果真結束連續賦值 (真, 常用文件分隔條.可視, 常用文件菜單項 [1].可視).計次循環首 (取數組成員數 (常用文件菜單項) － 1, 變數1) .如果真 (常用文件名 [變數1 ＋ 1] ≠ 「」) 常用文件菜單項 [變數1 ＋ 1].可視 ＝ 真 .如果真結束
.計次循環尾 ()
.子程序 加入常用文件名.參數 欲加入文件名, 文本型.局部變數 變數1, 整數型.局部變數 數組成員數目, 整數型
檢查 (欲加入文件名 ≠ 「」)數組成員數目 ＝ 取數組成員數 (常用文件菜單項).計次循環首 (數組成員數目, 變數1) .如果真 (常用文件名 [變數1] ＝ 「」) 跳出循環 () ' 找到一個空白菜單項 .如果真結束 .如果真 (文本比較 (常用文件名 [變數1], 欲加入文件名, 假) ＝ 0) 返回 () ' 該常用文件菜單項已經存在 .如果真結束
.計次循環尾 ().如果真 (變數1 ＞ 數組成員數目) ' 如果已經沒有了空白菜單項位置，則將第一個菜單項推出 .計次循環首 (數組成員數目 － 1, 變數1) 常用文件名 [變數1] ＝ 常用文件名 [變數1 ＋ 1] 常用文件菜單項 [變數1].標題 ＝ 「&」 ＋ 到文本 (變數1) ＋ 「. 」 ＋ 常用文件名 [變數1] .計次循環尾 () 變數1 ＝ 數組成員數目 ' 置為指向最後一個菜單項的位置.如果真結束常用文件名 [變數1] ＝ 欲加入文件名常用文件菜單項 [變數1].標題 ＝ 「&」 ＋ 到文本 (變數1) ＋ 「. 」 ＋ 欲加入文件名顯示常用菜單項 ()
.子程序 讀入常用文件列表, 文本型.參數 讀入序號, 整數型
檢查 (讀入序號 ≥ 1 且 讀入序號 ≤ 取數組成員數 (常用文件菜單項))返回 (取文本注冊表項 (「E 記事本」, 「常用文件」, 到文本 (讀入序號), ))
.子程序 寫出常用文件.參數 寫出序號, 整數型
檢查 (寫出序號 ≥ 1 且 寫出序號 ≤ 取數組成員數 (常用文件菜單項))寫注冊表項 (「E 記事本」, 「常用文件」, 到文本 (寫出序號), 常用文件名 [寫出序號])
.子程序 載入常用文件.局部變數 變數1, 整數型
.計次循環首 (取數組成員數 (常用文件菜單項), 變數1) 常用文件名 [變數1] ＝ 讀入常用文件列表 (變數1).計次循環尾 ()
.子程序 保存常用文件列表.局部變數 變數1, 整數型
.計次循環首 (取數組成員數 (常用文件名), 變數1) 寫出常用文件 (變數1).計次循環尾 ()
.子程序 __啟動窗口_將被銷毀
保存常用文件列表 ()