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

时间:2021-05-19

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

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

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对的支持。如果你想了解更多相关内容请查看下面相关链接

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章