易语言记事本源码
Ⅰ 易语言用大漠中文模块和精易模块多线程同时向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).计次循环尾 ()
.子程序 __启动窗口_将被销毁
保存常用文件列表 ()