易语言快捷搜索信息与快捷录入信息的代码

今天小编就为大家分享一篇关于易语言快捷搜索信息与快捷录入信息的代码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧

快捷录入信息与关键词匹配功能代码

				?

									.版本 2

									.程序集 窗口程序集1

									.程序集变量 快捷信息, 文本型

									.程序集变量 分割信息, 文本型, , "0"

									.子程序 _输入编辑框_内容被改变

									.局部变量 M, 整数型

									.如果真 (输入编辑框.内容 ＝ “”)

									  内容列表框.可视 ＝ 假

									  返回 ()

									.如果真结束

									内容列表框.清空 ()

									.计次循环首 (取数组成员数 (分割信息), M)

									  .如果 (寻找文本 (分割信息 [M], 输入编辑框.内容, , 假) ≠ -1)

									    内容列表框.插入项目 (0, 分割信息 [M], )

									    内容列表框.可视 ＝ 真

									  .否则

									  .如果结束

									.计次循环尾 ()

									.如果 (内容列表框.取项目数 () ＝ 0)

									  内容列表框.可视 ＝ 假

									.否则

									  .如果真 (内容列表框.取项目数 () ≤ 10)

									    内容列表框.高度 ＝ 14 × 内容列表框.取项目数 ()

									  .如果真结束

									  .如果真 (内容列表框.取项目数 () ＞ 10)

									    内容列表框.高度 ＝ 140

									  .如果真结束

									.如果结束

									.子程序 __启动窗口_创建完毕

									快捷信息 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\信息源.txt”))

									分割信息 ＝ 分割文本 (快捷信息, “*”, )

									.子程序 _录入按钮_被单击

									写到文件 (取运行目录 () ＋ “\信息源.txt”, 到字节集 (输入编辑框.内容 ＋ “*” ＋ 快捷信息))

									__启动窗口_创建完毕 ()

									.子程序 _内容列表框_列表项被选择

									输入编辑框.内容 ＝ 内容列表框.取项目文本 (内容列表框.现行选中项)

									内容列表框.清空 ()

									内容列表框.可视 ＝ 假

									.子程序 _输入编辑框_按下某键, 逻辑型

									.参数 键代码, 整数型

									.参数 功能键状态, 整数型

									.如果真 (键代码 ＝ 40)

									  内容列表框.现行选中项 ＝ 内容列表框.现行选中项 ＋ 1

									.如果真结束

									.如果真 (键代码 ＝ 38)

									  内容列表框.现行选中项 ＝ 内容列表框.现行选中项 － 1

									.如果真结束

									.如果真 (键代码 ＝ 13)

									  _内容列表框_列表项被选择 ()

									.如果真结束