觅风论坛

标题: 觅风易语言第十六课代码扩展作业 [打印本页]

作者: z593303958 时间: 2022-9-19 09:57
标题: 觅风易语言第十六课代码扩展作业
.版本 2
.支持库 edroptarget
.支持库 eAPI

.程序集窗口程序集_启动窗口

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

拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())

.子程序 _拖放对象1_得到文件
.参数接收到的文件路径, 文本型

编辑框1.内容＝接收到的文件路径

.子程序 _按钮1_被单击
.局部变量 n, 整数型
.局部变量 a, 整数型

创建目录 (“ico”)

a ＝提取资源文件图标 (编辑框1.内容, 0, 取运行目录 () ＋ “\ico\” ＋ “1.ico”, 1)
信息框 (a, 0, , )
.计次循环首 (a, n)
提取资源文件图标 (编辑框1.内容, 0, 取运行目录 () ＋ “\ico\” ＋到文本 (n) ＋ “.ico”, n)
.计次循环尾 ()

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

按钮1.禁止＝假

.子程序 _按钮2_被单击
.局部变量 res, 文本型
.局部变量 n, 整数型
.局部变量 lj, 文本型

编辑框1.内容＝ “”
按钮1.禁止＝真
lj ＝取运行目录 () ＋ “\ico\”
res ＝寻找文件 (lj ＋ “*.ico”, )

.如果真 (res ≠ “”)
删除文件 (lj ＋ res)
.如果真结束

' '编辑框1.内容＝ res ＋ “---”

.判断循环首 (真)
res ＝寻找文件 (, )

.如果真 (res ＝ “”)
返回 ()

.如果真结束
' '编辑框1.内容＝编辑框1.内容＋ res ＋ “;”
删除文件 (lj ＋ res)

.判断循环尾 ()

''写到最后，其实删除ico也可以在提取ico的时候放到同一个文件夹，那么删除的时候就可以删除整个文件夹了，为了练习语法，我就没有直接删除文件夹了

欢迎光临觅风论坛 (https://www.eyyba.com/)