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

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

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

运行结果:

总结

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

(0)

相关推荐

  • 易语言将日期时间转换成纯数字格式的代码

    将时间转换到纯数字格式的代码 .版本 2 .程序集 窗口程序集1 .程序集变量 年, 文本型 .程序集变量 月, 文本型 .程序集变量 日, 文本型 .程序集变量 时, 文本型 .程序集变量 分, 文本型 .程序集变量 秒, 文本型 .子程序 获取时间 年 = 到文本 (取年份 (取现行时间 ())) .判断开始 (取月份 (取现行时间 ()) < 10) 月 = 到文本 ("0") + 到文本 (取月份 (取现行时间 ())) .默认 月 = 到文本 (取月份 (取现行时间 (

  • 易语言获取任意按键对应的键代码

    获取任意键的键代码 .版本 2 .程序集 窗口程序集1 .子程序 _键代码编辑框_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 键代码编辑框.内容 = 到文本 (键代码) 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解更多相关内容请查看下面相关链接

  • 易语言设置热键呼出窗口的代码

    设置热键呼出窗口的代码 .版本 2 .支持库 shellEx .程序集 窗口程序集1 .程序集变量 F3, 整数型 .子程序 __启动窗口_创建完毕 F3 = 注册热键 (_启动窗口.取窗口句柄 (), 热键呼出标签.取窗口句柄 (), 0, #F3键) .子程序 _热键呼出标签_反馈事件, 整数型 .参数 呼出, 整数型 .参数 参数二, 整数型 .如果真 (呼出 = F3) _启动窗口.位置 = 1 ' 1. 居中 2. 最小化 3. 最大化 _启动窗口.总在最前 = 真 处理事件 () _

  • 易语言秒数与时分秒格式转换工具的代码

    秒数与时分秒格式转换的代码 .版本 2 .程序集 窗口程序集1 .子程序 _秒数转换成时间按钮_被单击 .局部变量 总秒数 .局部变量 时 .局部变量 分 .局部变量 秒 总秒数 = 到数值 (输入秒数编辑框.内容) 秒 = 到数值 (输入秒数编辑框.内容) 分 = 取整 (秒 ÷ 60) 秒 = 秒 % 60 .如果真 (分 ≥ 60) 时 = 取整 (分 ÷ 60) 分 = 分 % 60 .如果真结束 信息框 (到文本 (总秒数) + "秒 = " + 到文本 (时) + &quo

  • 易语言创建一组随机数并将其排序的代码

    创建随机数并将其排序的代码 .版本 2 .程序集 窗口程序集1 .子程序 _排序按钮_被单击 .局部变量 计次 .局部变量 寄存器, 整数型, , "20" .局部变量 N 置随机数种子 () .计次循环首 (取数组成员数 (寄存器), 计次) 寄存器 [计次] = 取随机数 (1, 100) .计次循环尾 () .计次循环首 (取数组成员数 (寄存器), 计次) .计次循环首 (取数组成员数 (寄存器) - 1, N) .判断开始 (寄存器 [N] > 寄存器 [计次]) .默

  • 易语言使用如果真命令判断编辑框内容是否正确的代码

    如果真判断代码 .版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 编辑框1.获取焦点 () .子程序 _显示内容按钮_被单击 .如果真 (编辑框1.内容 ≠ "中国队") 信息框 ("已修改为正确内容", 48, , ) 编辑框1.内容 = "中国队" .如果真结束 编辑框1.内容 = 编辑框1.内容 + "加油!" 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定

  • 易语言制作双色球随机选号工具的代码

    双色球随机选号代码 .版本 2 .程序集 窗口程序集1 .子程序 _随机选号按钮_被单击 .局部变量 z, 逻辑型 .局部变量 随机号 随机号 = 取随机数 (1, 33) .如果 (随机号 < 10) 红球编辑框1.内容 = "0" + 到文本 (随机号) .否则 红球编辑框1.内容 = 到文本 (随机号) z = 假 .如果结束 .循环判断首 () 随机号 = 取随机数 (1, 33) .如果 (随机号 = 到数值 (红球编辑框1.内容)) z = 真 .否则 .如果 (随机

  • 易语言删除数组重复成员的代码

    删除数组重复成员的代码 .版本 2 .支持库 spec .程序集 窗口程序集1 .程序集变量 数组, 整数型, , "0" .子程序 __启动窗口_创建完毕 置随机数种子 () .计次循环首 (10, ) 加入成员 (数组, 取随机数 (1, 5)) .计次循环尾 () 调试输出 (数组) .子程序 _去重按钮_被单击 .局部变量 计次1, 整数型 .局部变量 计次2, 整数型 .计次循环首 (取数组成员数 (数组), 计次1) .如果真 (计次1 > 取数组成员数 (数组))

  • 易语言取出两个编辑框中相同内容的代码

    对比两个编辑框内容的代码 .版本 2 .程序集 窗口程序集1 .子程序 _对比按钮_被单击 .局部变量 循环计次1, 整数型 .局部变量 文本1, 文本型, , "0" .局部变量 循环计次2, 整数型 .局部变量 文本2, 文本型, , "0" 对比结果编辑框.内容 = "" 文本1 = 分割文本 (编辑框1.内容, #换行符, ) 文本2 = 分割文本 (编辑框2.内容, #换行符, ) .计次循环首 (取数组成员数 (文本1), 循环计次1

  • 易语言设置日期框禁止选择以前日期的代码

    禁止日期框选择小于当前日期的代码 .版本 2 .程序集 窗口程序集1 .子程序 _日期框_选择日期被改变 .如果真 (日期框.今天 < 取现行时间 ()) 信息框 ("不可选择以前的日期!", 16, "提示", ) 日期框.今天 = 取现行时间 () 返回 () .如果真结束 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解更多相关内容请查看下面相关链接

  • 易语言子程序数据传递的应用代码

    子程序数据传递应用代码 .版本 2 .程序集 窗口程序集1 .子程序 _显示按钮_被单击 .局部变量 整数变量1, 整数型 .局部变量 整数变量2, 整数型 .局部变量 小数变量1, 小数型 .局部变量 小数变量2, 小数型 .局部变量 文本型变量1, 文本型 .局部变量 文本型变量2, 文本型 参数赋值 (整数变量1, 整数变量2, 小数变量1, 小数变量2, 文本型变量1, 文本型变量2) 编辑框1.加入文本 ("参考整数型参数中的变量:" + 到文本 (整数变量1) + #换行符

  • 易语言自定义数据类型的使用代码

    自定义数据类型表 .版本 2 .数据类型 消息类型 .成员 键盘消息, 文本型 自定义数据类型使用代码 .版本 2 .程序集 窗口程序集1 .子程序 _按钮1_被单击 .局部变量 接收返回, 消息类型 接收返回 = 自定义返回的数据类型 () 信息框 (接收返回.键盘消息, 64, "自定义数据类型", ) .子程序 自定义返回的数据类型, 消息类型 .局部变量 消息类型, 消息类型 消息类型.键盘消息 = "anxia123++.." 返回 (消息类型) 运行结果

  • 易语言获取随机数并且不重复的代码

    取随机数而且不重复的代码 .版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 .局部变量 数组, 整数型, , "0" .局部变量 计次变量, 整数型 .局部变量 随机位置, 整数型 .计次循环首 (50, 计次变量) 加入成员 (数组, 计次变量) .计次循环尾 () .计次循环首 (5, 计次变量) 置随机数种子 () 随机位置 = 取随机数 (1, 取数组成员数 (数组)) ' 取出的随机数是数组成员的位置 输出调试文本 (数组 [随机位置]) 删除成员 (数组

  • 易语言获取计算机硬盘信息的代码

    常量数据表 .版本 2 .常量 GetDiskList, "<文本长度: 613>" 取磁盘信息代码 .版本 2 .程序集 窗口程序集1 .子程序 _取硬盘信息按钮_被单击 硬盘信息编辑框.内容 = 取硬盘列表 () .子程序 取硬盘列表, 文本型, 公开 .局部变量 Script, 对象 .局部变量 ret, 文本型 Script.创建 ("MSScriptControl.ScriptControl", ) Script.写属性 ("Lang

  • 易语言用代码体现如果、如果真和判断的区别

    如果.如果真.判断的区别 .版本 2 .程序集 窗口程序集1 .子程序 _如果按钮_被单击, , , 如果() .如果 (输入编辑框.内容 = 到文本 (1)) 提示标签.标题 = "[如果命令提示]你输入的是1号指令" .否则 .如果 (输入编辑框.内容 = 到文本 (2)) 提示标签.标题 = "[如果命令提示]你输入的是2号指令" .否则 .如果 (输入编辑框.内容 = 到文本 (3)) 提示标签.标题 = "[如果命令提示]你输入的是3号指令&qu

随机推荐