.版本 2.程序集 窗口程序集1.程序集变量 快捷信息, 文本型.程序集变量 分割信息, 文本型, , "0".子程序 _输入编辑框_内容被改变.局部变量 M, 整数型.如果真 (输入编辑框.内容 ＝ “”) 内容列表框.可视 ＝ 假 返回 ().如果真结束内容列表框.清空 ().计次循环首 (取数组成员数 (分割信息), M) .如果 (寻找文本 (分割信息 [M], 输入编辑框.内容, , 假) ≠ -1) 内容列表框.插入项目 (0, 分割信息 [M], ) 内容列表框.可视 ＝ 真 .否则 .如果结束.计次循环尾 ().如果 (内容列表框.取项目数 () ＝ 0) 内容列表框.可视 ＝ 假.否则 .如果真 (内容列表框.取项目数 () ≤ 10) 内容列表框.高度 ＝ 14 × 内容列表框.取项目数 () .如果真结束 .如果真 (内容列表框.取项目数 () ＞ 10) 内容列表框.高度 ＝ 140 .如果真结束.如果结束.子程序 __启动窗口_创建完毕快捷信息 ＝ 到文本 (读入文件 (取运行目录 () ＋ “/信息源.txt”))分割信息 ＝ 分割文本 (快捷信息, “*”, ).子程序 _录入按钮_被单击写到文件 (取运行目录 () ＋ “/信息源.txt”, 到字节集 (输入编辑框.内容 ＋ “*” ＋ 快捷信息))__启动窗口_创建完毕 ().子程序 _内容列表框_列表项被选择输入编辑框.内容 ＝ 内容列表框.取项目文本 (内容列表框.现行选中项)内容列表框.清空 ()内容列表框.可视 ＝ 假.子程序 _输入编辑框_按下某键, 逻辑型.参数 键代码, 整数型.参数 功能键状态, 整数型.如果真 (键代码 ＝ 40) 内容列表框.现行选中项 ＝ 内容列表框.现行选中项 ＋ 1.如果真结束.如果真 (键代码 ＝ 38) 内容列表框.现行选中项 ＝ 内容列表框.现行选中项 － 1.如果真结束.如果真 (键代码 ＝ 13) _内容列表框_列表项被选择 ().如果真结束
