开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

楼主: 精易客服
收起左侧

[讨论] 【精易模块】命令征集帖

[复制链接]
结帖率:100% (1/1)
发表于 2023-3-2 23:21:37 | 显示全部楼层   湖北省武汉市
本帖最后由 月下美孤 于 2023-3-2 23:23 编辑


需要精易模块,调用格式:
1、
桌面右键菜单_创建SP (“tools”, , 分割文本 (“第一行|第二行|第三行|第四行”, “|”, ), 分割文本 (“cmd.exe|calc.exe|mspaint.exe|notepad.exe”, “|”, ), , )


桌面右键菜单_删除 (“tools”)
2、
桌面右键菜单_创建SP (“calc”, “calc.exe”)
桌面右键菜单_删除 (“calc”)







  
窗口程序集名保 留  保 留备 注
桌面右键菜单   
变量名类 型数组备 注
注册表注册表操作Ex  

子程序名返回值类型公开备 注
桌面右键菜单_创建SP整数型 成功返回空,失败返回失败原因
参数名类 型参考可空数组备 注
主菜单名文本型桌面右键显示的菜单名
主菜单软件路径文本型创建一级菜单如不填写,点击菜单会报错,创建二级菜单时此参数无效
二级菜单名称文本型二级菜单的显示名称数组
二级软件路径文本型二级菜单点击后打开的软件路径,数组最大长度为二级菜单的数量
主菜单图标字节集菜单的图标
二级菜单图标字节集二级菜单的图标
变量名类 型静态数组备 注
i整数型 
二级菜单数量整数型 
SubCommands关联项文本型SubCommands项的字符串值,以分号“;”隔开,用于主菜单与二级菜单相关联
判断 (取数组成员数 (二级菜单名称) = 0)  ' 只创建一级
注册表.写入键值Ex_文本 ( #HKEY_CLASSES_ROOT, “Directory\Background\shell\” + 主菜单名, “Icon”, 主菜单图标, #REG_SZ, )  ' //菜单图标
返回 (注册表.写入键值Ex_文本 ( #HKEY_CLASSES_ROOT, “Directory\Background\shell\” + 主菜单名 + “\command\”, “”, 到字节集 (主菜单软件路径), #REG_SZ, ))  ' //菜单点击后打开的软件路径



判断 (取数组成员数 (二级菜单名称)取数组成员数 (二级软件路径))
返回 (110)  ' 二级菜单软件路径与二级菜单名称 的 数组长度不一致!!



二级菜单数量 = 取数组成员数 (二级菜单名称)
重定义数组 (二级菜单图标, 真, 二级菜单数量)
变量循环首 (1, 二级菜单数量, 1, i)
' //第一步
注册表.写入键值Ex_文本 ( #HKEY_LOCAL_MACHINE, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\desm_MyMenu”到文本 (i), “Icon”, 二级菜单图标 [i], #REG_SZ, )  ' //二级菜单图标
注册表.写入键值Ex_文本 ( #HKEY_LOCAL_MACHINE, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\desm_MyMenu”到文本 (i), “”, 到字节集 (二级菜单名称 [i]), #REG_SZ, )  ' //二级菜单名称(默认项)
注册表.写入键值Ex_文本 ( #HKEY_LOCAL_MACHINE, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\desm_MyMenu”到文本 (i)“\command”, “”, 到字节集 (二级软件路径 [i]), #REG_SZ, )  ' //二级菜单点击后打开的软件路径
SubCommands关联项 = SubCommands关联项 + “desm_MyMenu”到文本 (i)“;”
变量循环尾 ()
' //第二步
注册表.写入键值Ex_文本 ( #HKEY_CLASSES_ROOT, “Directory\Background\shell\” + 主菜单名, “Icon”, 主菜单图标, #REG_SZ, )  ' //首级菜单图标
返回 (注册表.写入键值Ex_文本 ( #HKEY_CLASSES_ROOT, “Directory\Background\shell\” + 主菜单名, “SubCommands”, 到字节集 (SubCommands关联项), #REG_SZ, ))  ' //二级菜单链接(单个:mune1; 多个:menu1;menu2;menu3;...)


子程序名返回值类型公开备 注
桌面右键菜单_删除 用户删除桌面右键菜单,会同时删除主菜单名关联的二级菜单
参数名类 型参考可空数组备 注
主菜单名文本型桌面右键显示的菜单名
变量名类 型静态数组备 注
rev注册表_键 
关联的二级菜单项目文本型0
i整数型 
注册表.打开键Ex ( #HKEY_CLASSES_ROOT, “Directory\Background\shell\” + 主菜单名)
注册表.读取键值Ex ( #HKEY_CLASSES_ROOT, “Directory\Background\shell\” + 主菜单名, “SubCommands”, rev)
注册表.关闭键Ex ()
关联的二级菜单项目 = 分割文本 (字节集_到文本 (rev.键值), “;”, )  ' 二级菜单名称数组
如果真 (取数组成员数 (关联的二级菜单项目) > 0)  ' SubCommands有值,说明是二级菜单
变量循环首 (1, 取数组成员数 (关联的二级菜单项目), 1, i)
注册表.删除注册表项 ( #HKEY_LOCAL_MACHINE, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\” + 关联的二级菜单项目 [i]“\command”)  ' 经实测,需先删除commad,不然无法删除键值
注册表.删除注册表项 ( #HKEY_LOCAL_MACHINE, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\” + 关联的二级菜单项目 [i])
变量循环尾 ()
注册表.关闭键Ex ()
注册表.删除注册表项 ( #HKEY_CLASSES_ROOT, “Directory\Background\shell\” + 主菜单名 + “\command”)
注册表.删除注册表项 ( #HKEY_CLASSES_ROOT, “Directory\Background\shell\” + 主菜单名)

回复 支持 反对

使用道具 举报

发表于 2023-3-1 16:18:42 | 显示全部楼层   北京市北京市
排列窗口
回复 支持 反对

使用道具 举报

结帖率:71% (5/7)

签到天数: 2 天

发表于 2023-2-11 00:08:31 | 显示全部楼层   辽宁省抚顺市
希望添加一个,快速增大文件体积
回复 支持 反对

使用道具 举报

签到天数: 7 天

发表于 2022-11-3 18:28:29 | 显示全部楼层   山西省晋中市
  
子程序名返回值类型公开备 注
系统_获取已连接的WiFi信息整数型 已连接wifi个数
参数名类 型参考可空数组备 注
wifi账号文本型
wifi密码文本型
变量名类 型静态数组备 注
命令行1文本型 
取文本1文本型0
a整数型 
命令行2文本型 
取文本2文本型0
取文本3文本型0
命令行1 = 系统_取DOS执行结果 (“netsh wlan show profiles”, )
' 调试输出 (命令行1)
文本_取中间_批量_正则方式 (命令行1, “所有用户配置文件 : ”, #换行符, 取文本1, , , , , , )
' 调试输出 (取文本1)
计次循环首 (取数组成员数 (取文本1), a)
命令行2 = 系统_取DOS执行结果 (“netsh wlan show profile name^=” + 取文本1 [a]“ key^=clear ^”, )
' 调试输出 (命令行2)
文本_取中间_批量_正则方式 (命令行2, “关键内容            : ”, #换行符, 取文本2, , , , , , )
加入成员 (取文本3, 取文本2)
计次循环尾 ()
' 调试输出 (取文本3)
wifi账号 = 取文本1
wifi密码 = 取文本3
返回 (取数组成员数 (取文本1))

回复 支持 1 反对 0

使用道具 举报

发表于 2022-6-11 23:13:12 | 显示全部楼层   湖北省荆州市
tanye 发表于 2022-6-11 23:11
[e=1].版本 2

.子程序 文本_删除多余空行, 文本型

删除文本里面多余的空行,使用#换行符进行分割不至于漏掉文本
回复 支持 反对

使用道具 举报

发表于 2022-6-11 23:11:44 | 显示全部楼层   湖北省荆州市
  
子程序名返回值类型公开备 注
文本_删除多余空行文本型 
参数名类 型参考可空数组备 注
文本文本型
变量名类 型静态数组备 注
hhf文本型 
次数双精度小数型 
i整数型 
hhf = #换行符
判断循环首 (寻找文本 (文本, hhf, , ) > -1)
hhf = hhf + #换行符
判断循环尾 ()
次数 = 文本_取出现次数 (hhf, #换行符, ) - 1
判断 (次数 ≥ 3)
计次循环首 (次数, i)
文本 = 文本_替换 (文本, , , , #换行符#换行符#换行符, #换行符#换行符, , , , , , , , )
计次循环尾 ()



返回 (文本)


回复 支持 反对

使用道具 举报

结帖率:91% (10/11)

签到天数: 6 天

发表于 2022-5-6 10:04:40 | 显示全部楼层   湖南省长沙市

一个简单的判断文本中括号是否匹配的子程序
  
子程序名返回值类型公开备 注
文本_括号是否匹配逻辑型 检查文本值得半角括号()[]{}是否匹配。([)]之类的交叉视为不匹配。)(之类的成对却背靠背的视为不匹配
参数名类 型参考可空数组备 注
被检查文本文本型
变量名类 型静态数组备 注
变量整数型 
临时文本文本型 
正则表达式1正则表达式 
搜索结果搜索结果0
左大括号数量整数型 
右大括号数量整数型 
左中括号数量整数型 
右中括号数量整数型 
左小括号数量整数型 
右小括号数量整数型 
左大括号数量 = 0
右大括号数量 = 0
左中括号数量 = 0
右中括号数量 = 0
左小括号数量 = 0
右小括号数量 = 0
正则表达式1.创建 (“[\(\)\[\]\{\}]”, )
搜索结果 = 正则表达式1.搜索全部 (被检查文本)
临时文本 = “”
变量 = 1
计次循环首 (取数组成员数 (搜索结果), 变量)
临时文本 = 临时文本 + 搜索结果 [变量].取匹配文本 (被检查文本, )
如果 (搜索结果 [变量].取匹配文本 (被检查文本, )“(”)
左小括号数量 = 左小括号数量 + 1
如果 (搜索结果 [变量].取匹配文本 (被检查文本, )“)”)
右小括号数量 = 右小括号数量 + 1
如果 (搜索结果 [变量].取匹配文本 (被检查文本, )“[”)
左中括号数量 = 左中括号数量 + 1
如果 (搜索结果 [变量].取匹配文本 (被检查文本, )“]”)
右中括号数量 = 右中括号数量 + 1
如果 (搜索结果 [变量].取匹配文本 (被检查文本, )“{”)
左大括号数量 = 左大括号数量 + 1
如果 (搜索结果 [变量].取匹配文本 (被检查文本, )“}”)
右大括号数量 = 右大括号数量 + 1








计次循环尾 ()
如果 (左大括号数量 ≠ 右大括号数量 左中括号数量 ≠ 右中括号数量 左小括号数量 ≠ 右小括号数量)
返回 ()




判断循环首 (寻找文本 (临时文本, “()”, , ) > 0 寻找文本 (临时文本, “[]”, , ) > 0 寻找文本 (临时文本, “{}”, , ) > 0)
临时文本 = 子文本替换 (临时文本, “()”, “”, , , )
临时文本 = 子文本替换 (临时文本, “[]”, “”, , , )
临时文本 = 子文本替换 (临时文本, “{}”, “”, , , )
判断循环尾 ()
如果 (临时文本 = “”)
返回 ()

返回 ()
' 测试文本1:A{B(CD)[EF](g{H}i)……}
' 测试文本2:a{b(c[d)e]((g{H})(iii))}
' 测试文本3:a)b(c[88](OK)



i支持库列表   支持库注释   
RegEx正则表达式支持库

回复 支持 反对

使用道具 举报

发表于 2022-3-4 17:25:34 | 显示全部楼层   福建省福州市
2222222222222222222
回复 支持 反对

使用道具 举报

发表于 2022-3-4 17:25:21 | 显示全部楼层   福建省福州市
111111111111111111111
回复 支持 反对

使用道具 举报

结帖率:80% (4/5)
发表于 2022-3-3 10:54:06 | 显示全部楼层   江西省九江市
能不能加个向下滑动鼠标、拖动坐标
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表