|
分享源码
界面截图: |
|
是否带模块: |
纯源码 |
备注说明: |
- |
本帖最后由 Strator 于 2022-4-18 12:43 编辑
有时候文本件或文件夹要直接做个副本,懒得重命名,缝合了一个小工具,几个模块命令就直接拉了源码,编译模块文件会大100K左右。还记得源码来源的只有精易模块了,很是遗憾,其他的来源太多,不能一一感谢,都是众易友无私分享的代码。
效果图:
这是运行效果
运行效果
这是右键效果
右键效果
这是命名规则
命名规则效果
下面是源代码,后辍功能没有实现,以我的缝合水平估计得等好久了。哈哈!
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 命令 | 文本型 | | 0 | 文件右键菜单名称 | 文本型 | | | 文件夹右键菜单名称 | 文本型 | | |
文件右键菜单名称 = “新建文件副本”选择框1.选中 = zc项是否存在 ( #根类, “*\shell\” + 文件右键菜单名称 + “\command\”)文件夹右键菜单名称 = “新建文件夹副本”选择框2.选中 = zc项是否存在 ( #根类, “Directory\shell\” + 文件夹右键菜单名称 + “\command\”)取命令行 (命令 )如果真 (取数组成员数 (命令 ) ≠ 0 )载入 (窗口1, , 真) 如果真 (选择框1.选中 = 真)如果真 (加入文件右键菜单 (“新建文件副本”, , )) 信息框 (“加入文件右键菜单成功!”, 0, , )返回 ()信息框 (“加入文件右键菜单失败!”, 0, , )返回 ()如果真 (加入文件右键菜单 (“新建文件副本”, , 真)) 信息框 (“删除文件右键菜单成功!”, 0, , )返回 ()信息框 (“删除文件右键菜单失败!”, 0, , )|
加入文件右键菜单 | 逻辑型 | | |
菜单显示名 | 文本型 | | | | 目标程序名称 | 文本型 | | | | 是否删除 | 逻辑型 | | | | 如果真 (是否删除 = 真)如果真 (删除zc项 ( #根类, “*\shell\” + 菜单显示名 + “\command”) = 真)删除zc项 ( #根类, “*\shell\” + 菜单显示名 )返回 (真)返回 (假)如果真 (寻找文本 (菜单显示名, “\”, , 假) = -1 )如果真 (是否为空 (目标程序名称 ) = 真)目标程序名称 = 取运行目录 () + “\” + 取执行文件名 ()如果真 (写zc项 ( #根类, “*\shell\” + 菜单显示名 + “\command\”, 目标程序名称 + “ %1”) 且 写zc项 ( #根类, “*\shell\” + 菜单显示名 + “\Icon”, 目标程序名称 ) = 真)返回 (真)返回 (假)如果真 (选择框2.选中 = 真)如果真 (加入文件夹右键菜单 (“新建文件夹副本”, , )) 信息框 (“加入文件夹右键菜单成功!”, 0, , )返回 ()信息框 (“加入文件夹右键菜单失败!”, 0, , )返回 ()如果真 (加入文件夹右键菜单 (“新建文件夹副本”, , 真)) 信息框 (“删除文件夹右键菜单成功!”, 0, , )返回 ()信息框 (“删除文件夹右键菜单失败!”, 0, , )|
加入文件夹右键菜单 | 逻辑型 | | |
菜单显示名 | 文本型 | | | | 目标程序名称 | 文本型 | | | | 是否删除 | 逻辑型 | | | | 如果真 (是否删除 = 真)如果真 (删除zc项 ( #根类, “Directory\shell\” + 菜单显示名 + “\command”) = 真)删除zc项 ( #根类, “Directory\shell\” + 菜单显示名 )返回 (真)返回 (假)如果真 (寻找文本 (菜单显示名, “\”, , 假) = -1 )如果真 (是否为空 (目标程序名称 ) = 真)目标程序名称 = 取运行目录 () + “\” + 取执行文件名 ()如果真 (写zc项 ( #根类, “Directory\shell\” + 菜单显示名 + “\command\”, 目标程序名称 + “ %1”) 且 写zc项 ( #根类, “Directory\shell\” + 菜单显示名 + “\Icon”, 目标程序名称 ) = 真)返回 (真)返回 (假) 窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_窗口1 | | | |
_启动窗口. 销毁 () 取命令行 (命令 )文件路径 = 数组_合并文本 (命令, 字符 ( #空格键 )) i = 取文本长度 (文件路径 ) path = 取文本左边 (文件路径, 到数值 (到文本 (倒找文本 (文件路径, “\”, , 假)) )) filename = 取文本右边 (文件路径, i - 到数值 (到文本 (倒找文本 (文件路径, “\”, , 假)) )) time = 到文本 (取月份 (取现行时间 ()) ) + “月” + 到文本 (取日 (取现行时间 ()) ) + “日” + 到文本 (取小时 (取现行时间 ()) ) + “时” + 到文本 (取分钟 (取现行时间 ()) ) + “分” + 到文本 (取秒 (取现行时间 ()) ) + “秒”Separator = 符号.内容 num = 序号.内容 副本文件名.内容 = time + Separator + filename 判断 (间隔符.选中 = 真)副本文件名.内容 = time + Separator + filename 副本文件名.内容 = time + filename 间隔符.选中 = 真 Separator = 符号.内容 副本文件名.内容 = time + Separator + num + Separator + filename 判断 (日期.选中 = 真)副本文件名.内容 = time + Separator + num + Separator + filename 副本文件名.内容 = num + Separator + filename 判断 (加序号.选中 = 真)序号.内容 = “1”副本文件名.内容 = time + Separator + num + Separator + filename 副本文件名.内容 = time + Separator + filename 加序号.选中 = 真 num = 序号.内容 副本文件名.内容 = time + Separator + num + Separator + filename 文件属性 = 取文件属性 (文件路径 )判断 (位与 (文件属性, #子目录 ) ≠ 0 )目录_复制 (文件路径, path + 副本文件名.内容 )判断 (目录是否存在_ (path + 副本文件名.内容 ) ≠ 0 )信息框 (“文件夹副本新建成功”, 64, , )结束 ()信息框 (“文件夹副本新建失败,请检查文件名格式”, 16, , )结束 ()判断 (复制文件 (文件路径, path + 副本文件名.内容 )) 信息框 (“文件副本新建成功”, 64, , )结束 ()信息框 (“文件副本新建失败,请检查文件名格式”, 16, , )结束 ()结束 ()
补充内容 (2022-4-29 18:14):
因为窗体设计问题,需要一个非激活自动退出。
.版本 2
.子程序 _窗口1_被取消激活
.如果 (窗口_是否激活 (窗口1.取窗口句柄 ()) = 假)
结束 ()
|
评分
-
查看全部评分
|